Hi, ich will ein programm schreiben, mit dem ich aus meinen Editfenster in das Programm(Ultima Online) schreiben kann.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20:
| procedure StringToUO(zeile: string); var hUO: THandle; i: byte; begin hUO := Libc.system('Ultima Online'); if hUO <> 0 then begin for i := 1 to Length(zeile) do begin Sendmessage(hUO,WM_CHAR,Ord(zeile[i]),0); end; Sendmessage(hUO,WM_CHAR,13,0); end; end;
procedure TForm1.Button1Click(Sender: TObject); begin StringToUO('Edit1.Edit'); end; |
unter windows würde es gehen, aber unter Linux gibt es keine Sendmessage, und WM_CHAR erkennt er auch nicht. Was muss ich da eingeben?
FindWindow hab ich durch libc.system ersetzt das geht doch oder?
Wäre nett wenn mir einer weiterhelfen könnte.
<==noob
Moderiert von UGrohne: Delphi-Tags eingefügt und Code gekürzt