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

Código Delphi [-]
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;

[aeff]

tambien puedes hacerlo de la siguiente forma colega:

Código Delphi [-]
var
  vUserName: array[0..132] of Char;
begin
  GetEnvironmentVariable('USERNAME', vUserName, sizeof(vUserName));
  ShowMessage(vUserName);
end;

jejeje!!

[SOAD_]

Empezado por BlueSteel

se me olvidaba..

para llamar solo vasta con hacer esto

Edit1.Text := GetUserName;

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