Zitat von
skh:
2. Tedit mit dem bekannten Passwort gefüllt werden (noch nicht gelöst!)
Code:
procedure TForm4.FormCreate(Sender: TObject);
var
wnd: HWND;
begin
wnd := FindWindow('TForm1','Form1');
wnd := FindWindowEx(wnd, 0, 'TEdit', nil);
if wnd <> 0 then
begin
SendMessage(wnd,WM_SETTEXT,0,Integer(Pchar('deinPasswort hier')));
end;
end;
Tform1 ist hierbei der Classname der Form die du ansprechen willst und Form1 ist die Caption
Tedit ist der Classname vom Edit (könnte bei deinem Fenster anders heißen
Zitat:
3. der OK-Button aktiviert werden (noch nicht gelöst!)
fast genau so
Code:
...
wnd := FindWindow('TForm1','Form1');
wnd := FindWindowEx(wnd, 0, nil, 'OK');
if wnd <> 0 then
begin
SendMessage(wnd,BM_CLICK,0,0);
end;
...
nicht getestet, sollte aber gehen