Como obtener el Nombre de usuario sin usar GetUserName

[menfis]

Muchas gracias Jan pero es precisamente lo que ya tengo, las carpetas de "Documents and Settings" se crean siempre con el nombre original y no cambian aunque tu vayas a "Panel de Control -> Control de Usuarios -> Cambiar Nombre del Usuario X" yo necesito el "nombre" del usuario cuando ya se ha cambiado no del original.

[bidi79]

Empezado por menfis

Muchas gracias Jan pero es precisamente lo que ya tengo, las carpetas de "Documents and Settings" se crean siempre con el nombre original y no cambian aunque tu vayas a "Panel de Control -> Control de Usuarios -> Cambiar Nombre del Usuario X" yo necesito el "nombre" del usuario cuando ya se ha cambiado no del original.

Es correcto lo que dices, esto pasa porque el usuario todabia no esta logeado y su carpeta actual sigue siendo la anterior a la que modificaste, mira cambiale el usuario cerra sesion y luego inicia con el nuevo usuario, vas a ver que ahora si te toma la carpeta nueva, ya que crea el perfil y sus consecuentes apartir del 1er logeo.
Salu2

[[cHackAll]]

La forma mas sencilla que tendrás es leer del Environment (variables de entorno) la variable "USERNAME", lo conseguirás con la API 'GetEnvironmentVariable'.

Por si no está del todo claro, Ejecutas cmd, y escribes "echo %USERNAME%"

ó

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var Buffer: array [0..31] of Char;
begin
 GetEnvironmentVariable('USERNAME', @Buffer, SizeOf(Buffer));
 Caption := Buffer
end;

Suerte!

[[cHackAll]]

Lo siento, ese fue un BUG. Procurare tu respuesta

[[cHackAll]]

Bueno acá está lo prometido, lo único malo es que lo hice en JavaScript.

<script>
var User = new ActiveXObject("Shell.Users").currentUser
var Name = User.setting("DisplayName")
if (!Name) Name = User.setting("LoginName")
alert(Name)
</script>

Lo copias a un nuevo html y lo utilizas; estoy analizando cómo hacer un buen uso de éste ActiveX. Este es un intento fallido!

Código Delphi [-]
uses ComObj;
 
procedure TForm1.FormCreate(Sender: TObject);
var UserList: Variant;
begin
 UserList := CreateOleObject('Shell.Users');
 Caption := UserList.currentUser.setting('DisplayName');
end;

Suerte!

[roman]

Empezado por cHackAll

Este es un intento fallido!

Sólo cambia los paréntesis por corchetes:

Código Delphi [-]
uses ComObj;
 
procedure TForm1.FormCreate(Sender: TObject);
var UserList: Variant;
begin
 UserList := CreateOleObject('Shell.Users');
 Caption := UserList.currentUser.setting['DisplayName'];
end;

// Saludos

[[cHackAll]]

Gracias Roman , menfis aca esta lo tuyo; espero lo utilices!

Código Delphi [-]
uses ComObj;
 
function GetCurrentUser: string;
var UserList: Variant;
begin
 UserList := CreateOleObject('Shell.Users');
 Result := UserList.currentUser.setting['DisplayName'];
 if Result = '' then
  Result := UserList.currentUser.setting['LoginName'];
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Caption := GetCurrentUser;
end;