Mit einem Button eine Tastenkombi simulieren

[Luckie]

Dieser Code offnet den Datei-Öffnen-Dialof vom Notepad:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  hWindow, hMenu, hSubmenu, ItemID: Cardinal;
begin
  hWindow := FindWindow(nil, 'Unbenannt - Editor');
  if hWindow <> 0 then
  begin
    hMenu := GetMenu(hWindow);
    if hMenu <> 0 then
    begin
      hSubmenu := GetSubMenu(hMenu, 0);
      ItemID := GetMenuItemID(hSubMenu, 1);
      SendMessage(hWindow, WM_COMMAND, MAKEWPARAM(ItemID, BM_CLICK), 0);
    end;
  end;
end;