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
