Получить имя текущего пользователя

Советы » Компьютер » Получить имя текущего пользователя

function

GetCurrentUserName: string

;  const


   cnMaxUserNameLen = 254;  var


   sUserName: string

;    dwUserNameLen: DWORD;  begin


   dwUserNameLen := cnMaxUserNameLen - 1;    SetLength(sUserName, cnMaxUserNameLen);    GetUserName(PChar(sUserName), dwUserNameLen);    SetLength(sUserName, dwUserNameLen);    Result := sUserName;  end

;

 procedure

TForm1.Button1Click(Sender: TObject);  begin


   ShowMessage(GetCurrentUserName);  end

;

 

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com