Como obter o username logado no Windows em Delphi
Esta função permite que através da rotina GetUserName da API do Windows seja possível recuperar o usuário (username) que se logou ao windows.
function UsuarioLogado : string;
var nsize: Cardinal;
UserName: string;
begin
nsize := 25;
SetLength(UserName,nsize);
if GetUserName(PChar(UserName), nsize) then
begin
SetLength(UserName,nsize-1);
Result := UserName;
end;
end;