Ich möchte eig einen kompletten Text in ein Editfeld in einem Programm einfügen, jedoch beschränke ich mich jetzt erstmal auf eine Taste
Kann da jemand helfen? Ich finde immer nur "simulieren" aber nur bei aktiven Fenstern.
Ich habe nur das gefunden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
wnd: HWND;
i: Integer;
s: string;
begin
wnd := FindWindow('notepad', nil);
if wnd <> 0 then
begin
wnd := FindWindowEx(wnd, 0, 'Edit', nil);
// Write Text in Notepad.
// Text ins Notepad schreiben.
s := 'Hello';
for i := 1 to Length(s) do
SendMessage(wnd, WM_CHAR, Word(s[i]), 0);
// Simulate Return Key.
PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
// Simulate Space.
PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
end;
end;
Aber wenn ich anstatt notepad, Garena eintrage so geht das nicht
Du derefernzierst p2 einmal und weißt die Adresse von i zu. Das heißt p2 (also der Zeiger auf einen Zeiger) zeigt auf den Zeiger p1 welchen du so auf i zeigen lässt.