Ver la Versión Completa : Usuario logeado
SOAD_
09-11-2007, 08:07:36
Hola todos:
Nesesito saber, como puedo desde un servicio corriendo bajo la cuenta LocalSystem tener conocimiento si esta algun usuario logeado en la maq, de ser posible cual es su username. Todo esto preferentemente sin usar la API de Terminal Services...
chauu y gracias
BlueSteel
09-11-2007, 18:25:09
Hola
si quieres saber el nombre de usuario de Windows... te basta con la función GetUserName
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
espero que te sirva....
BlueSteel
09-11-2007, 18:27:06
se me olvidaba..
para llamar solo vasta con hacer esto
Edit1.Text := GetUserName;
:p:D
tambien puedes hacerlo de la siguiente forma colega:
var
vUserName: array[0..132] of Char;
begin
GetEnvironmentVariable('USERNAME', vUserName, sizeof(vUserName));
ShowMessage(vUserName);
end;
jejeje!!
SOAD_
11-11-2007, 05:49:36
se me olvidaba..
para llamar solo vasta con hacer esto
Edit1.Text := GetUserName;
:p:D
Les agradesco...
Pero tanto ese codigo, como el q envia el amigo aeff, creo q obtendrian el username del usuario q es propietario del hilo q llama al codigo... y les recuerdo q mi proceso corre como servicio bajo la cuenta LocalSystem, por lo q creo q no funcionaria... corrijanme si me equivoco y por favor ayudenme con una solucion... Thks
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.