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 此可获得所有窗口標題(可找到系統程序)
     Memo1.Lines.Add(StrPas(@WinText));
     hCurWindow:=GetWindow(hCurWindow,GW_HWNDNEXT); //查找下个程序窗口句柄.
   end;
end;