本文整理自网络，侵删。
delphi 获取所有应用程序窗口标题 类似任务管理器procedure TForm1.Button1Click(Sender: TObject);
var
hCurWindow:HWnd;
WinText:array[0..255] of char;
begin
memo1.Lines.Clear;
hCurWindow:=GetWindow(Handle,GW_HWNDFirst);
while hCurWindow<>0 do
begin
if (GetWindowText(hCurWindow,@WinText,255)>0) and (IsWindowVisible(hcurwindow))
and(StrPas(@WinText)<>'Program Manager')and(StrPas(@WinText)<>self.Caption) then
//if GetWindowText(hCurWindow,@WinText,255)>0 then 此可获得所有窗口?祟}(可找到系?y程序)
Memo1.Lines.Add(StrPas(@WinText));
hCurWindow:=GetWindow(hCurWindow,GW_HWNDNEXT); //查找下个程序窗口句柄.
end;
end; 相关阅读 >>
Delphi 2010 复制整个文件夹(当然包括嵌套文件夹)
Delphi sendtextmessage 等方便的消息发送函数
更多相关阅读请进入《Delphi》频道 >>
