Menüpunkt eines fremden Programms betätigen

[toms]

Hi,

Habe hier ein Beispiel
in VB gefunden, um z.B bei Notepad "Datei", "Öffnen.." automatisch auszuführen.

In Delphi sieht's so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hWnd : Integer;
  hMainMenu : Integer;
  hMenu : Integer;
  MenuID : Integer;
begin
    hWnd := FindWindow('Notepad', nil);
    If hWnd <> 0 Then
    begin
      hMainMenu := GetMenu(hWnd);
      hMenu := GetSubMenu(hMainMenu, 0);
      MenuID := GetMenuItemID(hMenu, 1);
      SendMessage(hWnd, WM_COMMAND, MenuID, 0);
   end;
end;