Usuario logeado

[SOAD_]

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]

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]

se me olvidaba..

para llamar solo vasta con hacer esto

Edit1.Text := GetUserName;

:p:D

[aeff]

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_]

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