Como obtener el Nombre de usuario sin usar GetUserName

[menfis]

Buenas

Mi duda es la siguiente, deseo saber el "Nombre" del usuario que está conectado en el sistema. Cuando me refiero a Nombre lo hago al que se puede cambiar desde Panel de Control -> Cuentas de usuario, no al del Usuario del sistema.
No se si me he explicado muy bien pero os pongo un ejemplo:

Imaguienemos que creo un usuario llamado Usuario1, bien ahora voy Panel de Control -> Cuentas de Usuario y decido cambiarle el nombre por Usuario999. Pues bien este es el nombre que XP utilizará cuando te Logeas o estás pinchas en Inicio arriba de todo pero no es el nombre con el que se creó la cuenta (de hecho si vais a C:\Documents and Settings\ la carpeta creada es Usuario1 no Usuario999.

De aquí que viene el problema porque si intento utilizar en Delphi las funciones GetUserName, GetUserNameEx o GetEnvironmentVariable('USERNAME') siempre devuelven Usuario1 no Usuario999.

Conoceis alguna función que devuelva esta información, es decir la información del usuario conectado en este momento.

Muchas Gracias

[Jan]

Hola menfis:
Se me ocurre que puedes probar con la función SHGetFolderPath para obtener la carpeta local del usuario, y de ahí extraer su nombre.

Espero que te sirva.

[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;