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;