Ir para conteúdo
  • Cadastre-se

dev botao

Nome Computador Da Conexao Remota


Ver Solução Respondido por Hetosoft Sistemas,
  • Este tópico foi criado há 3338 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
  • Solution

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 por hetoandrade
  • Curtir 2
  • Obrigado 1
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3338 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.