Text an Eingabezeile schicken

[Aike]

Hm, da passiert nichts.

Ich habe mal den Windows Taschenrechner gestartet und es mit dem ausprobiert - ohne Ergebnis :-/ Es wird zwar ein handle gefunden, aber in der Listbox tut sich nix.

[edit]Bei mir funktioniert das immer korrekt.[/edit]

[Dani]

Das Projekt im Anhang funktioniert bei mir...

[Aike]

Hm, ja, bei mir auch.

Also mit ...

Delphi-Quellcode:

var
  wlist : TWindowList;
begin
  wlist := TWindowList.Create;  // Objekt erzeugen
  try
    wlist.AddClassname := True;   // zusätzlich den Windows-Classname anfügen
    wlist.EnumTopLevelWindows;    // Alle Windows auflisten
    ListBox1.Items.Assign(wlist); // Ergebnis in eine Listbox kopieren
  finally
    wlist.Free;
  end;
end;

Bekomme ich als Ergebnis: The 4th Coming:AppClass ... Rechner:SciCalc
Aber "handle:=FindWindow('AppClass',nil);" liefert wieder nichts

Jetzt muss ich aber leider in 's Bett. Bin über 's WE nicht da, also nicht wundern. Aber ich hoffe, wir können das Prob Montag wieder bearbeiten

[Dani]

Wenn du TWindowList aus diesem Code Library Beitrag benutzt, hast du den Handle doch bereits:

Delphi-Quellcode:

function GetD4OHandle: HWND;
var
  wlist : TWindowList;
  idx: Integer;
begin
  Result := 0;
  wlist := TWindowList.Create;
  try
    wlist.AddClassname := True;  
    wlist.EnumTopLevelWindows;
    idx := wList.IndexOf('The 4th Coming:AppClass');
    If idx <> -1 then Result := wlist.Handles[idx];
  finally
    wlist.Free;
  end;
end;

[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

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

[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

[Aike]

*Total perplex*
Jetzt, tja, ähm, ich weiß nich' so genau

Delphi-Quellcode:

begin
  D4OEdit := WindowHandle;
  Result := false;
  showmessage('Result := false');
end;

... gibt immer die msg zurück, wenn das D4O Fenster geöffnet ist. Dazu muss die Eingabezeile gar nicht existieren (sprich: man muss nicht eingelogg sein), aber das wusstest du, denk ich mal

Jetzt müsste ich das/die handle(s) (alle) in eine Listbox eintragen oder per showmessage() anzeigen können, damit ich das richtige handle herauskriegen und dorthin einen Text schicken kann

[Dani]

Achso, ich dachte du willst dir einen Loader schreiben, der dich automatisch einlogt

Du musst wohl die Koordinaten der Controls mitinander vergeichen, um herauszufinden, ob das richtige dabei ist. (-> GetWindowRect)

[Aike]

Oh, automatisch einloggen ist auch nicht schlecht *rofl* Danach wurde ich schon gefragt, hab 's aber als nicht möglich abgestempelt Aber das ist wohl ein anderes Thema (weil umfangreich).

Diese MSDN ist mir schleierhaft.

Zitat:

Parameters
hWnd
[in] Handle to the window.
lpRect
[out] Pointer to a structure that receives the screen coordinates of the upper-left and lower-right corners of the window.

Welches handle soll das denn sein? Das von dem gesamten Programm oder müssen da alle handles aller Komponenten des Programmes rein?
Und dieser "Pointer to a structure" ...

[Dani]

Zitat von Aike:

Diese MSDN ist mir schleierhaft.
Welches handle soll das denn sein?

Das Handle "WindowHandle" in EnumWindowCallback, also das Handle des möglicherweise gesuchten Eingabefeldes

Zitat:

Und dieser "Pointer to a structure" ...

Einfach nur ein normales TRect