Foros Club Delphi - Usuario locales

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Usuario locales (https://www.clubdelphi.com/foros/showthread.php?t=3214)

jfontane

28-08-2003 00:18:07

Usuario locales

Hola a todos, lo que les queria preguntar es como puedo hacer en delphi para que mi aplicacion me de el usuario actual de la maquina, es decir que si estoy logueado como administrador, obtener el valor 'administrador' o si estoy logueado como pepe que me de 'pepe'.
Salu2 y gracias

sanxpue

28-08-2003 03:06:26

haber si te funciona esto compañero :

Código:

Function RegresaUsuario : String;

Var

  UsuarioX : Array[0..50] of Char;

  D : LongWord;

Begin        

    D := 50; //el tamaño de tu array

    FillChar(UsuarioX,SizeOf(UsuarioX),#0);

    GetUserName(UsuarioX,D);

End;

Saludos desde Puebla Pue...
[email protected]

sanxpue

28-08-2003 03:09:07

Perdon la D

la D debe ser un LongWord
y antes de llamar al GetUserName

le asignas el tamaño de tu arreglo
en el caso anterioe es
D := 50

jejejeje
saludos

Voutarks

28-08-2003 13:02:17

La respuesta está en http://www.q3.nu/trucomania/truco.cgi?138&esp que es practicamente lo mismo que se ha posteado antes

La franja horaria es GMT +2. Ahora son las 17:01:30.