Tasten senden problem

[turboPASCAL]

Ein Beispiel um Text ins Notepat einzufügen über SendMessage, FindWindow, FindWindowEx

Delphi-Quellcode:

procedure TForm1.ButtonXClick...
const
  mystring: string =
    'DerSuperduperBlaBlaTextStringdenmaneinfuegenwill oder so :-)';
var
  wh: HWND;
  i: Integer;
begin
  wh := FindWindow('Notepad', nil); //Notepad window finden
  if wh <> 0 then
  begin
    wh := FindWindowEx(wh, 0, 'Edit', nil); // das edit feld im Notepad
    for i := 1 to length(mystring) do
    begin
      // Word() oder Ord() - Hauptsache aus z.B. 'A' wird 65 :-)
      SendMessage(wh, WM_CHAR, Word(mystring[i]), 0);  
    end;
  end else
    ShowMessage('Sorry, Window not found, start the Notepad pleace ?');
end;

also sollte es auch so eine Reihe von Chars an dein Prg. senden
(wenn das Windowhandle bzw. Fenster/Programmname stimmt):

Delphi-Quellcode:

procedure ...
const
  mystring: string = 'DerSuperduperBlaBlaCheat';
var
  wh: HWND;
  i: Integer;
begin
  wh := FindWindow('GTA: ...', nil); // Window finden
  Windows.SetFocus(wh); // Focus auf das empfangende Prg. damit es auch Keys verarbeitet ?
  if wh <> 0 then
  begin
    for i := 1 to length(mystring) do
    begin
      // Word() oder Ord() - Hauptsache aus z.B. 'A' wird 65 :-)
      SendMessage(wh, WM_CHAR, Word(mystring[i]), 0);  
    end;
    Windows.SetFocus(Handle); // Focus auf dein Prg.
  end else
    ShowMessage('Sorry, Window not found, start the Notepad pleace ?');
end;