Tastatur Eingabe emulieren

[madtom]

Hallo R600,

ich kenne das Spiel nicht, aber vielleicht kann man ja die Tastatureingabe "faken", etwa so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hNotepad: HWND;
begin
  hNotepad := FindWindow('notepad', nil);
  if hNotepad <> 0 then
  begin
    SetForegroundWindow(hNotepad);
    Sleep(250);
     // Drop down &Bearbeiten (Edit) menu in the "german" Notepad
    keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);
    keybd_event(Ord('B'), MapVirtualKey(Ord('B'), 0), 0, 0);
    keybd_event(Ord('B'), MapVirtualKey(Ord('B'), 0), KEYEVENTF_KEYUP, 0);
    keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0);
    ...

Beste Grüße