Delphi dicas

Captura usuário logado

//Para Capturar o usuário Logado no Windows



Function GetNetUserName: string;

Var

NetUserNameLength: DWord;

Begin

        NetUserNameLength:=50;

        SetLength(Result, NetUserNameLength);

        GetUserName(pChar(Result),NetUserNameLength);

        SetLength(Result, StrLen(pChar(Result)));

End;