Ich habe mir Winspy besorgt und darin das Edit-Fenster ausgewählt sowie mittels des integrierten Code-Generatos den Quelltext erzeugt.
Wenn ich diesen ausführe, blinkt das Edit kurz auf, es wird jedoch nichts an das Edit gesandt. Es wird jedoch das Eingabefenster aktiviert,
wenn ich
SetForeGroundWindow(wndMain);
setze .
Hier der von Winspy generierte Programmcode:
Delphi-Quellcode:
var
wndMain, wndChild: HWND;
begin
wndMain := FindWindow('
#32770','
Eingabe');
if wndMain <> 0
then
begin
wndChild := FindWindowEx(wndMain, 0, '
Edit',
nil);
if wndChild <> 0
then
begin
ShowMessage('
Window Handle: ' + IntToStr(wndChild));
FlashControl(wndChild);
// internal function
end;
end;
SetForeGroundWindow(wndMain);
end.
Mir fehlt im Grunde der Befehl, um Text an das "wndChild" zu senden.
Der Befehl
SetWinText(wndChild, 'test');
macht nichts...