随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1266万

//声明:
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;
posted on   万一  阅读(34595)  评论(15编辑  收藏  举报


点击右上角即可分享
微信分享提示