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;

相关阅读 >>

Delphi中frame和form有何区别

Delphi 判断目录是否存在,不存在则创建目录并打开,存在则直接打开

Delphi禁用,启用网卡

Delphi 获取cpu monitor使用率

Delphi 极速字符串替换函数字符串转16进制

Delphi delete 删除字符串中指定的字符串

Delphi单元文件基本结构

incsecond:将一个tdatetime变量加减一定数量的秒数

Delphi edit中只能输入数字并且只能输入一个小数点

Delphi getfileversion 获取文件版本

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...