各位好,我最近刚学Delphi 请多执教 ：）（见内）

Question

var
hCurrentWindow: HWnd;
szText: array[0..254] of char; 
begin
     MyStringList.Clear;
     hCurrentWindow := GetWindow(application.Handle, GW_HWNDFIRST);
     while hCurrentWindow <> 0 do
     begin
          if GetWindowText(hCurrentWindow, @szText, 255) > 0 then
             MyStringList.Add(StrPas(@szText));
          hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);
     end;
end;

Answer 1

var
hCurrentWindow: HWnd;
szText: array[0..254] of char; 
begin
     MyStringList.Clear;
     hCurrentWindow := GetWindow(application.Handle, GW_HWNDFIRST);
     while hCurrentWindow <> 0 do
     begin
          if GetWindowText(hCurrentWindow, @szText, 255) > 0 then
             MyStringList.Add(StrPas(@szText));
          hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);
     end;
end;