频道分类
您的位置:网站首页 > 函数

Delphi 过滤所有空格的函数

//Delphi过滤所有空格的函数functionTrimAll(Str:string):string;beginResult:=StringReplace(Str,'','',[r…

类别:函数 标签: 作者:admin 日期:2019-10-11 10.49.00

Delphi android windows IOS通用获取程序版本

****$IFDEFANDROID****functionGetAppVersion:S****ing;varPackageManager:JPackageManager;PackageInfo:JP…

类别:函数 标签: 作者:admin 日期:2019-10-08 10.49.44

Delphi GetPublicIP 获取公网iP

USESIdHTTP;functionGetPublicIP:string;varstrIP,URL:string;iStart,iEnd,i:Integer;MyIdHTTP:TIdHTTP;beg…

类别:函数 标签: 作者:admin 日期:2019-10-05 15.49.16

Delphi 获取CPUid的函数

typeTCPUID=array[1..4]ofLongint;functionGetCPUID:TCPUID;assembler;register;asmPUSHEBX{Saveaffectedre…

类别:函数 标签: 作者:admin 日期:2019-09-30 19.08.47

Delphi 根据磁盘盘符获取简单的硬盘编号

functionGetHDCode(Drv:string):string;varVolumeSerialNumber:DWORD;MaximumComponentLength:DWORD;FileSy…

类别:函数 标签: 作者:admin 日期:2019-09-30 19.06.46

Delphi 快速读取写入注册表参数值的函数

usesRegis****y;functionReadRegisry(RegKey:s****ing;Default:s****ing;MyRootKey:Hkey;MyOpenKey:s****in…

类别:函数 标签: 作者:admin 日期:2019-09-30 18.50.27

Delphi 改造ShellExecute 精简函数

procedureRunPro(ProName:string);//打开一个文件beginShellExecute(Application.Handle,'open',Pchar(ProN…

类别:函数 标签: 作者:admin 日期:2019-09-30 18.22.52

Delphi 简单的封装MessageBox对话框

procedureMyInfo(M:string);beginApplication.MessageBox(Pchar(M),'提示',MB_OK+MB_IconInformation);end;…

类别:函数 标签: 作者:admin 日期:2019-09-30 18.20.48

Delphi 获取闪盘列表

functionGetFlashDisks:TStrings;varbuf:array[0..MAX_PATH-1]ofChar;M_Result:Integer;i:Integer;tmpStr:s…

类别:函数 标签: 作者:admin 日期:2019-09-30 18.05.46

Delphi 验证GUID的函数

usesSystem.Win.ComObj,ActiveX;functionCheckComObj(progID:string):Boolean;varmyGuid:TGUID;beginResult…

类别:函数 标签: 作者:admin 日期:2019-09-30 18.00.15

Delphi 新建一个TXT文档函数

{新建一个TXT文档}ProcedureNewTxt(FileName:String);VarF:Textfile;{定义F为Textfile}BeginAssignFile(F,F…

类别:函数 标签: 作者:admin 日期:2019-09-28 20.38.04

Delphi 位运算

位运算Delphi的按位运算符共有六个:notandorxorshrshl;其中的notandorxor也叫逻辑运算符,其实功能都是一样的…

类别:函数 标签: 作者:admin 日期:2019-09-09 20.47.53

Delphi SaveLog 方便的记录日志

procedureSaveLog(constsMsg:string);varsList:TStringList;fn:string;beginsList:=TStringList.Create;fn:…

类别:函数 标签: 作者:admin 日期:2019-09-09 14.43.44

Delphi 中的自动引用计数使用规则

Delphi用户应该早已经熟悉自动引用计数的概念(ARC),Delphi很早就开始支持接口、动态数组和字符串的自动引…

类别:函数 标签: 作者:admin 日期:2018-03-29 23.22.28

delphi 采集功能代码GetStr

FunctionGetStr(STR_Source,STR_Start,STR_End:String):STring;VarI:Integer;S:String;beginforI:=Pos(STR_…

类别:函数 标签: 作者:admin 日期:2018-03-12 22.10.07

delphi GetFileHashMD5

单元:System.HashfunctionGetFileHashMD5(FileName:String):String;varHashMD5:THashMD5;Stream:TStream;R…

类别:函数 标签: 作者:admin 日期:2018-02-27 15.47.09

delphi 检测链接和获取链接内容

usesWinInet;functionCheckUrl(Url:string):boolean;varhSession,hFile,hRequest:hInternet;dwIndex,dwCode…

类别:函数 标签: 作者:admin 日期:2018-02-26 00.15.53

delphi 根据窗口类判断程序是否运行

functionDelphiIDERunning:Boolean;beginResult:=FindWindow('TAppBuilder',nil)<>0;end;

类别:函数 标签: 作者:admin 日期:2018-02-24 01.39.37

delphi GetWindowHandle

functionGetWindowHandle(ProcessId:Cardinal):THandle;varhFound:THandle;functionEnumWindowsProcMy(_hwn…

类别:函数 标签: 作者:admin 日期:2018-02-20 21.44.07

delphi 获取计算机名称 函数

functionGetComputerNetName:string;varbuffer:array[0..255]ofchar;size:dword;beginsize:=256;ifGetCompu…

类别:函数 标签: 作者:admin 日期:2018-02-13 10.29.09