Hola todos..

con qu� funci�n/componente puedo obtener el nombre del usuario de la red (win)?

en harbour por ejemplo, lo obtengo de esta manera: GETENV("USERNAME")

muchas gracias
chauuuuuuuuu

Hello Paola,

Wednesday, May 25, 2011, 8:07:57 PM, you wrote:

PB> Hola todos..

PB> con qu� funci�n/componente puedo obtener el nombre del usuario de la red PB> (win)?

PB> en harbour por ejemplo, lo obtengo de esta manera: PB> GETENV("USERNAME")

Del mismo modo: GetEnvironmentVariable

O bien usando el API de windows "GetUserName".

El 25/05/11 20:21, Jos� Mejuto escribi�:

Hola Paola,
Yo utilizo la siguiente funci�n:

functionGetCurrentUser(): string;
{$IFDEF WINDOWS}
var
    UserName: string;
    UserNameLen: Dword;
{$ENDIF}
begin
   {$IFDEF WINDOWS}
    UserNameLen:=255;
    SetLength(userName,UserNameLen) ;
    if GetUserName(PChar(UserName),UserNameLen) then
    begin
      Result:=AnsiToUtf8(Copy(UserName,1,UserNameLen-1));
    end
    else
    begin
      Result:='Desconocido';
    end;
   {$ENDIF}
   {$IFDEF UNIX}
   Result:=GetEnvironmentVariable('USERNAME');
   if Result='' then
   begin
     Result:=GetEnvironmentVariable('USER');
   end;
   {$ENDIF}
end;

El 26/05/2011 03:47 a.m., Antonio �vora escribi�:

El 25/05/11 20:21, Jos� Mejuto escribi�: > Hello Paola, >

Hola Antonio y Jos�..
muchas gracias por los datos!
chauuuuuuu