Как узнать имя пользователя
Как узнать имя пользователя
Как узнать имя пользователя function GettingUserName: string; //Win95 or later and NT3.1 or later var Len: Cardinal; pStr: PChar; begin pStr:=nil; Len:=256; try pStr:=StrAlloc(Len); GetUserName(pStr,Len); Result:=pStr; finally if pStr<>nil then StrDispose(pStr); end; end; procedure TForm1.Button4Click(Sender: TObject); begin Edit1.Text:='UserName="'+GettingUserName+'"'; Edit1.SetFocus; Application.ProcessMessages; end;
