Как узнать что за пользователь запустил мою программу?

[Ce4kok]

Как узнать что за пользователь запустил мою программу?
Подскажите пожалуйста, а то совсем не шарю в этом.

Главная цель узнать <Name>

C:\Documents and Settings\<Name>\Application Data\

[Kotofff]

function GetUserFromWindows: string;
var
  UserName : string;
  UserNameLen : Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    Result := Copy(UserName,1,UserNameLen - 1)
  else
    Result := 'Unknown';
end;

[Ce4kok]

Большое спасибо!!!