Textinhalt eines Objekts einer anderen Anwendung

[toms]

Zitat von napsterxx:

Und wie geht das :S

Delphi-Quellcode:

function FindGarenaMainWindow: Hwnd;
const
  GarenaWindowTitle = 'Garena ';
  GarenaClassName = 'Afx:';
var
  NextHandle: Hwnd;
  WinTitle, WinClass: array[0..255] of char;
begin
  Result := 0;
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
  while NextHandle > 0 do
  begin
    GetWindowText(NextHandle, WinTitle, SizeOf(WinTitle));
    GetClassName(NextHandle, WinClass, SizeOf(WinClass));
    if (Copy(WinTitle, 1, Length(GarenaWindowTitle)) = GarenaWindowTitle) and
    (Copy(WinClass, 1, Length(GarenaClassName)) = GarenaClassName) then
    begin
      Result := NextHandle;
      Break;
    end
    else
      NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
  end;
end;