Einzelnen Beitrag anzeigen

Benutzerbild von Dani
Dani

Registriert seit: 19. Jan 2003
732 Beiträge
 
Turbo Delphi für Win32
 
#16

Re: Text an Eingabezeile schicken

  Alt 21. Nov 2004, 22:57
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='Editthen
  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
Dani H.
  Mit Zitat antworten Zitat