delphi2007 教程

delphi2007 教程
首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
如何得到所有可视化窗口的句柄？
如何得到所有可视化窗口的句柄？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061117103732213.html
我想得到已经运行的所有有窗口的应用程序的窗口句柄，不知道有什么好办法，大家帮帮忙。。

用FINDWINDOW。。。遍历查找。。

遍历窗口用EnumWindows，然后用IsWindowVisible判断窗口是否可视。

先谢谢大家了。  
  能给出几行代码看看吗？

posted on 2009-02-03 09:50 delphi2007 阅读(630) 评论(2)  编辑 收藏 引用

Feedback

# re: 如何得到所有可视化窗口的句柄？ 2009-06-14 21:20 00
var
handlelist: tstringlist;


procedure TForm1.Button1Click(Sender: TObject);

function GetProcessExePath(h: HWND): BOOL; stdcall;
function getfilename(str: string): string;
begin
result := UpperCase(ExtractFileName(str));
end;
var
pid: Cardinal;
pHandle: THandle;
buf: array[0..MAX_PATH] of Char;
str: string;
begin
GetWindowThreadProcessId(h, @pid);
pHandle := OpenProcess(PROCESS_ALL_ACCESS, False, pid);
GetModuleFileNameEx(pHandle, 0, buf, Length(buf));
CloseHandle(pHandle);
str := StrPas(buf);
handlelist.Add(IntTostr(h)+str);//句柄加文件路径
Result := True;
end;
var
i: integer;
begin
if form1.OpenDialog1.Execute then
begin
Edit1.Text := OpenDialog1.FileName;
EnumWindows(@getprocessexepath, 0);
for i := 0 to handlelist.count - 1 do
listbox1.items.add(handlelist.string[i]);
end;
end;  回复  更多评论
  

# re: 如何得到所有可视化窗口的句柄？ 2009-06-14 21:22 00
在百度找的 代码有很多错误  回复  更多评论
  

只有注册用户登录后才能发表评论。