//Delphi过滤所有空格的函数functionTrimAll(Str:string):string;beginResult:=StringReplace(Str,'','',[r…
****$IFDEFANDROID****functionGetAppVersion:S****ing;varPackageManager:JPackageManager;PackageInfo:JP…
USESIdHTTP;functionGetPublicIP:string;varstrIP,URL:string;iStart,iEnd,i:Integer;MyIdHTTP:TIdHTTP;beg…
typeTCPUID=array[1..4]ofLongint;functionGetCPUID:TCPUID;assembler;register;asmPUSHEBX{Saveaffectedre…
functionGetHDCode(Drv:string):string;varVolumeSerialNumber:DWORD;MaximumComponentLength:DWORD;FileSy…
usesRegis****y;functionReadRegisry(RegKey:s****ing;Default:s****ing;MyRootKey:Hkey;MyOpenKey:s****in…
procedureRunPro(ProName:string);//打开一个文件beginShellExecute(Application.Handle,'open',Pchar(ProN…
procedureMyInfo(M:string);beginApplication.MessageBox(Pchar(M),'提示',MB_OK+MB_IconInformation);end;…
functionGetFlashDisks:TStrings;varbuf:array[0..MAX_PATH-1]ofChar;M_Result:Integer;i:Integer;tmpStr:s…
usesSystem.Win.ComObj,ActiveX;functionCheckComObj(progID:string):Boolean;varmyGuid:TGUID;beginResult…
{新建一个TXT文档}ProcedureNewTxt(FileName:String);VarF:Textfile;{定义F为Textfile}BeginAssignFile(F,F…
位运算Delphi的按位运算符共有六个:notandorxorshrshl;其中的notandorxor也叫逻辑运算符,其实功能都是一样的…
procedureSaveLog(constsMsg:string);varsList:TStringList;fn:string;beginsList:=TStringList.Create;fn:…
Delphi用户应该早已经熟悉自动引用计数的概念（ARC），Delphi很早就开始支持接口、动态数组和字符串的自动引…
FunctionGetStr(STR_Source,STR_Start,STR_End:String):STring;VarI:Integer;S:String;beginforI:=Pos(STR_…
单元：System.HashfunctionGetFileHashMD5(FileName:String):String;varHashMD5:THashMD5;Stream:TStream;R…
usesWinInet;functionCheckUrl(Url:string):boolean;varhSession,hFile,hRequest:hInternet;dwIndex,dwCode…
functionDelphiIDERunning:Boolean;beginResult:=FindWindow('TAppBuilder',nil)<>0;end;
functionGetWindowHandle(ProcessId:Cardinal):THandle;varhFound:THandle;functionEnumWindowsProcMy(_hwn…
functionGetComputerNetName:string;varbuffer:array[0..255]ofchar;size:dword;beginsize:=256;ifGetCompu…