Mit einem Button eine Tastenkombi simulieren

[KridRed]

Zitat von Luckie:

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

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  hWindow, hMenu, hSubmenu, ItemID: Cardinal;
  buffer: array[0..255] of Char;
begin
  ZeroMemory(@buffer, sizeof(buffer));
  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;

Hi Luckie,

GENAU DAS hab ich gebraucht... vielen Dank


Gruß,


Dirk