[santana]

Empezado por marcoszorrilla

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;
  
    Ejemplo de llamada: 
                  Label1.Caption:=GetUserName;

DIOS MIO!!!!! Y yo que pensaba que no sabía nada de PHP!!!! Con lo que se parece a Delphi!!!!!

Marcos, necesitas vacaciones

Un abrazo.