Delphi-Help

Главная Статьи Windows Как узнать имя пользователя?

Как узнать имя пользователя?

Оцените материал
(0 голосов)


Как узнать имя пользователя?

function TForm1.GettingUserName: string;
var
  Size: cardinal;
  pStr: PChar;
  Res: boolean;
begin
   pStr := nil;
   Size := MAX_COMPUTERNAME_LENGTH + 1;
   try
      pStr := StrAlloc( Size );
      Res := GetUserName( pStr, Size );
      if Res then
         Result := StrPas( pStr )
      else
         Result := 'Имя пользователя неизвестно';
   finally
      if pStr <> nil then StrDispose( pStr );
   end;
end;
Прочитано 4822 раз

Авторизация



Счетчики