Usuario logeado

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