Zimmerk的杂物堆

摘要： //声明:GetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar; {接收文本的缓冲区的指针} nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}//举例:var arr: array[0..254] of Char;begin GetWindowText(Handle, @arr, SizeOf(arr)); ShowMessage(arr); {Form1}end;//标题文本个 阅读全文

摘要： //声明: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 阅读全文