Delphi dicas

Pega usuario logado

Function usuario: string;

var

buffer: array[0..255] of char;

size: dword;

begin

        size := 256;

        if GetUserName(buffer, size) then

        Result := buffer

        else

        Result := ''

end;





//Abraços!