Fórum como pegar usuario e nome da maquina ? #165950

Caro amigo,

Veja aí um exemplo simples.

Atenciosamente,

Daniel Araújo


function NomeComputador : String;
var
lpBuffer : PChar;
nSize : DWord;
const
Buff_Size = MAX_COMPUTERNAME_LENGTH + 1;
begin
nSize := Buff_Size;
lpBuffer := StrAlloc(Buff_Size);
GetComputerName(lpBuffer,nSize);
Result := String(lpBuffer);
StrDispose(lpBuffer);
end;

[quote:956aa67b6e=´Rodrigo Costa´]Como faço para pegar o usuário que se logou no windows e o nome da máquina (host da estação) ?

Ex: usuario: rgcosta host: Micro01

Preciso disso para implementar auditoria num sistema !

Obrigado.[/quote:956aa67b6e]

pra ver o nome do usuario logado no windows...

me desculpe por nao lembrar, mas sei que é possivel e facil lendo uma chave do Windows nao lembro o caminho.
ja encontrei essa funcao na Net, vou procura-la novamente se encontrar de envio,
Um abraco.