Capturar el usuario de WinXp y Win98??

[danytorres]

Buenas tardes amigos. Como puedo capturar el Usuario con el cual inicio secion en WinXp y Win98??? Agradezco su ayuda.

[[BlueSteel]]

Hola...

solo tienes que declarar esta funcion

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;

y lo llamas de la siguiente forma
Edit1.Text:=GetUserName;