Fremde Anwendung steuern

[StefanG]

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