hi,
Ich bin gerade dabei ein "Server Manager" zubasteln.
Das Programm dient dazu Spiele server zu starten und zu steuern.
Läuft bis jetzt alles gut nur das ich ein problem hab die Spieler vom Server zu Kicken.
Ich habe das so aufgebaut das auf der Anwendung ein JvStringGrid ist und alle Namen,spielstände usw... anzeigt und ich die zeile markiere und auf einen "Kickbutton" klicke.
Dann sollte eig aus der Spieleigenen Console die spieler aufgelistet werden und mit dem markierten namen (aus dem JvStringGrid)verglichen werden,anschließend
dann den kick befehl auf die console schreiben.
Das war ja alles noch kein problem nur das das Lesen aus dem Memo nicht klappen will.
so sieht der Code bis jetzt aus:
Kann mir vllt jemand Helfen wie ich ein Handle auf das Memo bekomme?
Soweit ich weiß wurde die Externe Console in C++ geschrieben.
Vielen Dank im voraus!
MFG
Ich bin gerade dabei ein "Server Manager" zubasteln.
Das Programm dient dazu Spiele server zu starten und zu steuern.
Läuft bis jetzt alles gut nur das ich ein problem hab die Spieler vom Server zu Kicken.
Ich habe das so aufgebaut das auf der Anwendung ein JvStringGrid ist und alle Namen,spielstände usw... anzeigt und ich die zeile markiere und auf einen "Kickbutton" klicke.
Dann sollte eig aus der Spieleigenen Console die spieler aufgelistet werden und mit dem markierten namen (aus dem JvStringGrid)verglichen werden,anschließend
dann den kick befehl auf die console schreiben.
Das war ja alles noch kein problem nur das das Lesen aus dem Memo nicht klappen will.
so sieht der Code bis jetzt aus:
Code:
procedure TFO_HD2Serv.bt_KickClickClick(Sender: TObject); var Name : String; PlayerNumber,i : integer; h : THandle; Command : String; begin if fAktRow <> 0 then Begin Dateneinlesen; //aktualisieren Name := JvStringGrid1.Cells[0,fAktRow]; End else Begin MessageDlg('Bitte Spieler auswählen!', mtInformation, [mbOK], 0); exit; End; PlayerNumber := ListeSpieler.GetNumberByName(Name); h := Findwindow(nil, 'Hidden & Dangerous II Console'); if h = 0 then h := Findwindow('Hidden & Dangerous II Console', nil); if h <> 0 then Begin command := Format('svcmd kickplayer %d',[PlayerNumber]); for I := 1 to length(command) do Postmessage(h,WM_CHAR,Word(command[i]),0); Postmessage(h,WM_Keydown,VK_RETURN,0); End; end;
Kann mir vllt jemand Helfen wie ich ein Handle auf das Memo bekomme?
Soweit ich weiß wurde die Externe Console in C++ geschrieben.
Vielen Dank im voraus!
MFG
Comment