[Iskariote0087]

De esta manera con poner en la caja de texto 'TxtCod.text' el codigo del Host y hacindo click sobre el boton se conecta directamente.Una cosa curiosa y que no he conseguido solucionar es que cuando se conecta te deja la conexion minimizada, es una chorrada porque con maximizarla ya esta pero no he encontrado la manera de que se ejecute maximizado.
Espero que te sirva la verdad es que si estas constantemente conectandote a diferentes equipos es una manera de ganar tiempo.
De todas formas si a alguien sabe como ejecutar un programa que este en el Host al que te has conectado desde el programa que esta en el servidor pues ya sabe......un saludo

Código Delphi [-]
procedure TForm1.BtPcAnywhereClick(Sender: TObject);
var
  sinHandle1: THandle;
  tienda:string;
  searchResult : TSearchRec;
  codigo:string;
  tiendaAejecutar:string;
begin

    
  if FindFirst('C:\Documents and Settings\All Users\Datos de programa\Symantec\pcAnywhere\*.CHF', faAnyFile, searchResult) = 0 then   // si es o ha encontrado algo
  begin
    repeat
      Codigo:=AnsiMidStr(searchResult.Name, 1, 5);
      tienda:=AnsiMidStr(searchResult.Name, 6, 35);
      tiendaAejecutar:= Codigo+  tienda;
      If txtCod.Text= codigo then
        shellexecuteA(sinHandle1,'open',
             pansichar('C:\Documents and Settings\All Users\Datos de programa\Symantec\pcAnywhere\'+ tiendaAejecutar) ,nil,nil,sW_normal);
    until FindNext(searchResult) <> 0;
  end;
  findclose(searchResult);
  Form1.Enabled:=false;
  Form1.Enabled:=true;
 
end;

Un saludete Perretes
Iskariote