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;