Nome Computador Da Conexao Remota

[Hetosoft Sistemas]

Tem como o exe que esta em um Servidor saber

qual o Nome do cumputador REMOTO ;

 

 

ex: SERVIDOR

 

ex: HETOPROG pc que chamou via conexao remota o SERVIDOR

 

quero saber o nome do pc do cliente nao do servidor

que no caso seria HETOPROG

[Hetosoft Sistemas]

Conseguir

USERNAME     = nome do usuario conexao remota
CLIENTNAME   = nome da maquina que abrio a conexao remota
USERPROFILE  = caminho da pasta de meus documentos do usuario


Edit1.Text  := GetEnv('USERNAME');



function TForm1.GetEnv(Variable: string): string;
var Buffer : Integer;
begin
  Buffer := GetEnvironmentVariable(PChar(Variable), nil, 0);
  if Buffer > 0 then
     begin
     SetLength(Result, Buffer - 1);
     GetEnvironmentVariable(PChar(Variable), PChar(Result), Buffer);
     end
  else
     Result := '';
end;

 

 

essa é pra saber se esta em uma conexao remota ou desktop

 

procedure TForm1.Button1Click(Sender: TObject);
begin
   if IsRemoteSession=True then
    Edit1.Text:='Conexao Remota'  else
    Edit1.Text:= 'Desktop' ;
end;


function TForm1.IsRemoteSession: boolean;
var res : integer;
begin
  res := GetSystemMetrics (SM_REMOTESESSION);
  Result := (res <> 0);
end;
 

Editado 6 Fevereiro, 2015 por hetoandrade