Delphi Base

WindSon

导航

随笔分类 -  Delphi(函数)

API函数
读取软件的版本信息 GetFileVersionInfo
摘要：function GetBuildInfo(FileName: string; var V1, V2, V3, V4: Word): Boolean; var VerInfoSize, VerValueSize, Dummy: DWORD; VerInfo: Pointer; VerValue: P 阅读全文

posted @ 2020-04-09 00:20 windsonvip 阅读(882) 评论(0) 推荐(0)

Delphi 检测鼠标键盘多久没有活动
摘要：function GetInputAwayTime():DWORD; var lpi:TLastInputInfo; begin lpi.cbSize := sizeof(lpi); GetLastInputInfo(lpi); Result := Round((GetTickCount()-lpi 阅读全文

posted @ 2020-03-28 14:49 windsonvip 阅读(448) 评论(0) 推荐(0)

Delphi 使用API函数AnimateWindow实现窗体特效功能
摘要：API函数 AnimateWindow 使用： 函数功能：窗体显示和隐藏时产生特殊的动画效果；可以产生两种类型的动画效果： 滚动动画 和 滑动动画 函数原型：BOOL AnimateWindow(HWND hWnd, DWORD dwTime, DWORD dwFlags) 参数说明：hWnd 指定 阅读全文

posted @ 2020-03-25 21:45 windsonvip 阅读(393) 评论(0) 推荐(0)

Delphi 判断字符是否是汉字
摘要：function IsHZ(ch: WideChar): boolean; var i: Integer; begin i := Ord(ch); if (i < 19968) or (i > 40869) then result := False else result := True; end; 阅读全文

posted @ 2020-03-24 21:55 windsonvip 阅读(557) 评论(0) 推荐(0)

Delphi 判断当前系统是否64位
摘要：uses Winapi.Windows; function IsWin64: Boolean; var IsWow64Process: function(Handle: THandle; var Res: BOOL): BOOL; stdcall; GetNativeSystemInfo: proc 阅读全文

posted @ 2020-03-24 21:52 windsonvip 阅读(595) 评论(0) 推荐(0)

Delphi 判断操作系统是32位或是64位
摘要：function IsWin64: Boolean; var Kernel32Handle: THandle; IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcal 阅读全文

posted @ 2020-03-16 22:14 windsonvip 阅读(1073) 评论(0) 推荐(0)

delphi 弹出输入框的InputQuery, InputQuery 函数用法
摘要：delphi 弹出输入框的InputQuery, InputQuery 函数用法 procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := InputBox('输入窗口标题', '输入提示', '默认输 阅读全文

posted @ 2020-03-16 17:48 windsonvip 阅读(1378) 评论(0) 推荐(0)

delphi Wmi 获取操作系统信息
摘要：uses ActiveX, ComObj; function GetWMIProperty(WMIProperty: string): string; var Wmi, Objs, Obj: OleVariant; Enum: IEnumVariant; C: Cardinal; begin Wmi 阅读全文

posted @ 2020-03-16 17:46 windsonvip 阅读(720) 评论(0) 推荐(0)

DELPHI 检测服务器地址是否有效
摘要：利用DELPH 的ICMP控件检测服务器地址 function CheckNetServer():Boolean; begin IdIcmpClient1.Host := '192.168.1.230'; //服务器地址 IdIcmpClient1.Ping; if IdIcmpClient1.Re 阅读全文

posted @ 2020-03-16 17:43 windsonvip 阅读(303) 评论(0) 推荐(0)

delphi判断字符是否是汉字
摘要：function IsHZ(ch: WideChar): boolean; var i: Integer; begin i := Ord(ch); if (i < 19968) or (i > 40869) then result := False else result := True; end; 阅读全文

posted @ 2020-03-16 17:20 windsonvip 阅读(215) 评论(0) 推荐(0)

delphi获得唯一ID字符串
摘要：//这是我三层开发中常用的一个函数，直接调用CreateSortID uses System.Win.ComObj,System.RegularExpressions,System.StrUtils,System.SysUtils; function CreateID(ll: Integer): s 阅读全文

posted @ 2020-03-16 17:18 windsonvip 阅读(769) 评论(0) 推荐(0)