bueno.. no pude editar el mensaje anterio.. se quedo medio pegado el asunto...
era pa' decirte que es una funcion.. y es así
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