Obtener el Nombre Real del Usuario de Windows

[leodenis784]

Hola a Todos...

Deseo Obtener el Nombre Real del Usuario de Windows, ya se que la siguiente funcion, me muestra el nombre de usuario.


function GetUserName : String;
var
pcUser : PChar;
dwUSize : DWORD;
begin
dwUSize := 21;
GetMem( pcUser, dwUSize );
try
if Windows.GetUserName( pcUser, dwUSize ) then
Result := pcUser
finally
FreeMem( pcUser );
end;
end;

Label1.Caption:=GetUserName;




Bien, pero en realidad no es eso lo que me interesa, me interesa que si el Usuario es "JUAN PEREZ", me muestre ese nombre ("JUAN PEREZ") en lugar el Usuario "J.perez".

Un Saludo,

Espero Puedan Ayudarme.

[luisgutierrezb]

creo que este tip (http://www.swissdelphicenter.ch/en/showcode.php?id=69) te servira perfectamente, como observacion en lugar de usuar el "NameSamCompatible" usa el "NameDisplay"

[leodenis784]

El ejemplo que me enviaste me funciono Perfectamente!

Mil Gracias!