//声明: GetClassName( hWnd: HWND; {指定窗口句柄} lpClassName: PChar; {缓冲区} nMaxCount: Integer {缓冲区大小} ): Integer; {返回类名大小; 失败返回 0}
//测试1: 新建一个工程, 主窗口的类名默认是 TForm1, 用程序获取一下看看 var ps: array[0..254] of Char; begin GetClassName(Handle, ps, 255); ShowMessage(ps); {TForm1} end;
//测试2: 看看 "计算器" 窗口的类名(先启动计算器) var h: HWND; ps: array[0..254] of Char; begin h := FindWindow(nil, '计算器'); {这句是获取计算器窗口的句柄} GetClassName(h, ps, 255); ShowMessage(ps); {SciCalc} end;
//测试3: 看看记事本窗口的类名(先重新启动记事本): var h: HWND; ps: array[0..254] of Char; begin h := FindWindow(nil, '无标题 - 记事本'); {这句是获取记事本窗口的句柄} GetClassName(h, ps, 255); ShowMessage(ps); {Notepad} end;
主要用到的是MSAA(MicrosoftActiveAccessibility)函数:ObjectFromLResult,该函数在动态链接库oleacc.dll中定义。usesSHDocVw,MsHtml,ActiveX;typeTObje…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls;type…
本文主要跟大家介绍Delphi中获取其它进程的窗口句柄,在Delphi中获取其它进程的窗口句柄,绝大部分人首先想到的会使用:FindWindow或者用GetWindow来遍历查找,如:handle:=FindWindow(nil,PChar…
Delphi窗体函数GetWindowLong-获取指定窗口的信息原型:LongGetWindowLong(HWNDhWnd,intnlndex);参数:hWnd目标窗口句柄,间接指向其窗口类。nlndex若指定值大于0,返回窗口内存中指定…
GetForegroundWindow函数获取一个前台窗口的句柄(用户当前工作的窗口)。函数原型:HWNDGetForegroundWindow(void);参数:无返回值:一个前台窗口的句柄。在某些情况下,如一个窗口失去激活时,前台窗口可…
GetClassName函数功能:该函数获得指定窗口所属的类的类名。函数原型:intGetClassName(HWNDhWnd,LPTSTRIpClassName,intnMaxCount);参数:hWnd:窗口的句柄及间接给出的窗口所属的…
FindWindow(lpClassName,{窗口的类名}lpWindowName:PChar{窗口的标题}):HWND;{返回窗口的句柄;失败返回0}//FindWindowEx比FindWindow多出两个句柄参数:FindWindo…
unitUnit2;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls;type…