delphi WinAPI: GetClassName - 获取指定窗口的类名
//声明:
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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.043324947357178 seconds