//获取操作系统安装磁盘盘符delphitop.comfunctionGetSysDisk:S****ing;vars:PChar;beginGetMem(s,255);Get…
Xe10.2测试可用。functionSetScreen(x,y:Word):Boolean;varDevMode:TDeviceMode;beginResult:=EnumDisplayS…
Unit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtr…
procedureTForm1.Button1Click(Sender:TObject);beginCaption:=Languages.NameFromLocaleID[GetThreadLocal…
上一个例子是从DLL中接受数据,那怎么给DLL传递数据呢?还有,在接受数据时,让Timer一直在那扫描也不是个好办法…
前言:博友"鹏"来信探讨关于钩子的问题,核心困难是:dll中的数据如何传递出来.在接下来的两个例子中探讨这个问…
目前对钩子的理解:譬如我们用鼠标在某个窗口上双击了一次,或者给某个窗口输入了一个字母A;首先发现这些事件…
使用钩子函数[4]-钩子链和CallNextHookEx的返回值SetWindowsHookEx函数的第一个参数表示钩子类型,共有14种选…
分两步:一、建立DLL,并在DLL实现钩子的设置、释放和钩子函数;二、再建一个工程调用测试.第一步:做DLL先建立…
//按字母排序的窗口公用消息:WM_ACTIVATEWM_ACTIVATEAPPWM_APPWM_APPCOMMANDWM_ASKCBFORMATNAMEWM_CANCELJO…
programProject2;****$APPTYPECONSOLE********$R*.res****usesSystem.SysUtils,System.IOUtils,Types,TypIn…
//此极速字符串替换函数为[盒子论坛hq200306兄]所作,在此感谢!亲测原本48秒的长文本替换操作,现在只要几…
functionIsAppmethodInstalled(SVers:String):Boolean;varVers:Integer;i:Integer;DefApp:String;begin//ch…
unitGetSid;interfaceusesWindows,SysUtils;functionGetCurrentUserSid:string;implementationconstHEAP_ZE…
功能:获取windows系统的缩放比例vardc:HDC;scale:Double;begindc:=GetDC(0);scale:=GetDeviceCaps(dc,LOGP…
usesWindows,ComObj,ShlObj,ActiveX;{函数功能:创建指定文件的快捷方式TargetFile:快捷方式指向的文件或目…
Windows检测到诸如键盘或鼠标输入之类的活动–长时间闲置后,系统可能会进入睡眠模式和/或关闭显示设备的电…
如果安装了给定程序ID的程序并在系统中注册,则以下代码将返回True;否则,则返回False。usesSystem.Win.Co…
functionBlockInput(fBlockInput:Boolean):DWORD;stdcall;external'user32.dll';//delphitop.com//点击按钮…
functionGetEnvVariable(Name:string;User:Boolean=True):string;varStr:array[0..255]ofchar;beginwithTRe…