Text an Eingabezeile schicken

[Dani]

Zitat von Aike:

So, bin wieder da

Was ist denn das jetzt für eine Funktion? Ersetzt die die EnumTargetWindow-Funktion? Und wo gibt mir diese Function, wenn überhaupt, das handle für die Eingabezeile zurück?
sry, wenn ich auf 'm Schlauch steh', aber ich steig echt nicht durch

Vergiss die Funktion und TWindowList am besten wieder *g*

"The 4th Coming:AppClass" ist nicht das Fenster, das du suchst, sondern der Taskbar Eintrag. Das gesuchte Fenster hat den Klassennamen "#32770" und den Titel "Die 4. Offenbarung". Daher:

Delphi-Quellcode:

//Findet das erste Edit Control im D4O Fenster und speichert das Handle in einer globalen Variable

var
  D4OEdit: HWND = 0;

...

function EnumWindowCallback(WindowHandle: HWND; lParam1: lParam): Boolean; stdcall;
var sClassName: array[0..255] of Char;
begin
  Result := True;
  FillChar(sClassName[0], 256, 0);
  If GetClassName(WindowHandle, @sClassName, 256) <> 0 then
  If sClassName='Edit' then
  begin
   {Hier kannst du z.B prüfen, ob sich das Edit an einer bestimmten Position im Fenster befindet}
   D4OEdit := WindowHandle;
   Result := false;
  end;
end;

procedure FindD4OEdit;
var
  D4OHandle: HWND;
begin
  D4OHandle := FindWindow('#32770', 'Die 4. Offenbarung');
  If D4OHandle <> 0 then
   begin
    EnumChildWindows(D4OHandle, @EnumWindowCallback, 0));
   end else 
    begin
     //D4O läuft nicht
    end;
end;

Zitat:

btw. woher weißt du, dass The 4th Coming das deutsche Die 4te Offenbarung ist?

Google