用法://RandomMacAdressGenerator(':');//RandomMacAdressGenerator('-');//RandomMacAdressGenerator('.'…
usesShellApi,ShlObj,ComObj,ActiveX;functionGetFileVersion(constFileName:string):string;varFSO:OleVar…
usesShellApi;functionCopyDir(constfromDir,toDir:s****ing):boolean;varlpFileOp:TSHFileOpS****uct;begi…
DelphiXE里的StrPas要注意哦废话不多说了,直接上例子解说:procedureTForm1.Button1Click(Sender:TObject)…
delphi中的strpas功能Delphi中的strpas是将指针型数据转换为字符串varmystr:array[0..20]ofchar;beginmystr…
单元:Vcl.FileCtrlvarStoreDir:String;beginif(SelectDirectory('Selectoutputdirectory','',StoreDir))th…
单元:TlHelp32functionStopProcess(ExeFileName:string):Integer;constPROCESS_TERMINATE=$0001;varContin…
要先useSystem.Math;然後記得輸入的是extended,如果是double的話,小數位數就會有誤差//MyRound四捨五入//…
我们能看到以下代码varpSource,pDest:PChar;len:integer;.......................//一些代码Move(pSource,p…
functionSizeToStr(Size:int64):string;constK=int64(1024);M=K*K;G=K*M;T=K*G;beginifsize<KthenResult:=F…
delphiXEBerlinReadProcessMemoryWriteProcessMemorydelphiXE,Berlin[dcc32Error]Unit9.pas(93):E2033Type…
{functionCreateProcessWithLogonW(lpUsername,//user'snamelpDomain,//user'sdomainlpPassword:PWideChar;…
//通过会话ID得到会话名称procedureGetSessionUserName(dwSessionId:dword;varUserName:string);varbRes:bo…
functionCreateProcessWithLogonW(lpUsername,//user'snamelpDomain,//user'sdomainlpPassword:PWi…
//转换TColor到HTML颜色串functionColorToHtml(color:TColor):string;varRgbColor:TColorRef;beginRgbColor…
{*******************************************************}{}{Delphi公用函数单元}{&n...
functionUrlDecode(constAStr:AnsiString):AnsiString;varSp,Rp,Cp:PAnsiChar;s:AnsiString;beginSetLength…
首部functionRandomFrom(constAValues:arrayofstring):string;overload;$[StrUtils.pas功能随机返回字符串数…
为了实现在vista和更高版本的系统中能够获取任何文件的大图标(48*48像素,甚至256*256像素),真是找了很多…
functionIs1251Char(Char:WideChar):Boolean;//alittletrick:setcannotcontainnumbersover255butUTF-8encod…