//Not直接实现十六进制取反var I, J : word; begin I := $96E5; J := Not I; ShowMessage(Format('%x',[J])); end; ...
API函数 函数来源：FUNCTION ulong ShowScrollBar(ulong hwnd,ulong wBar,ulong bShow) LIBRARY "user32.dll" constant long SB_HORZ = 0constant long SB_VERT = 1cons ...
Delphi Tips "函数篇" "StrToDate()" "语法篇" 函数篇 StrToDate() function StrToDate(const S: string): TDateTime; function StrToDate(const S: string; const Format ...
1。使最小化按钮变灰：setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_minimizebox );2。使最大化按钮变灰：setwindowlong(handle,gwl_style,getwindow ...
在OnShow加入弹出式窗口事件： procedure TForm1.FormShow(Sender: TObject); begin ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_NEGATIVE); end; 关掉窗口滑动事件在OnClose加入： proce ...
delphi获取目录下所有文件名 https://www.cnblogs.com/zhangzhifeng/p/5746026.html delphi 控件背景透明代码 https://www.cnblogs.com/blogpro/p/11339119.html Delphi控件的透明与不透明（要 ...
分类：
其他好文 时间：
2019-10-11 00:42:09
阅读次数：
72
url protocol 让浏览器运行本地的EXE程序。例如：点击浏览器的一个下载链接，就会打开本地的迅雷。 1）注册表注册 2）编辑HTML 3）DELPHI程序 ...
分类：
Web程序 时间：
2019-10-10 10:44:29
阅读次数：
98
DELPHI控件升级 1）DELPHI里面卸载旧版控件； 2）WINDOWS里面卸载旧版控件； 3）删除旧版控件所在安装文件夹； 4）删除旧版的DCU,DCP,BPL文件； 5）安装新版控件； 6）程序换用新版控件的BPL文件； 7）用新版控件，DELPHI编译源码，报错？ 解决方法可能有：http ...
//PDevMode = _devicemodeW;// _devicemodeW = record// dmDeviceName: array[0..CCHDEVICENAME - 1] of WideChar; {打印设备名称,唯一值}// dmSpecVersion: Word; {DevMo ...
