Anderes Program -> Menü klicken

[DeddyH]

Ich hoffe, ich habe nicht allzuviele Fehler gemacht, aber hier ein Beispiel, um in Notepad "Speichern unter" auszulösen:

Delphi-Quellcode:

procedure TfrmTest.btnSaveClick(Sender: TObject);
var
  Wnd: HWND;
  mnu: hMenu;
  ID: UINT;
begin
  //Fensterhandle ermitteln
  Wnd := FindWindow('notepad',nil);
  if Wnd <> 0 then
    begin
      //Menü des Fensters ermitteln
      mnu := GetMenu(Wnd);
      if mnu <> 0 then
        begin
          //Untermenü des ersten Items ("Datei")
          mnu := GetSubMenu(mnu,0);
          if mnu <> 0 then
            begin
              //4. Item ("Speichern unter")
              ID := GetMenuItemID(mnu,3);
              if ID <> 0 then
                //auslösen
                PostMessage(Wnd,WM_COMMAND,ID,0);
            end;
        end;
    end;
end;