Как узнать имя пользователя?
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; |