[fofka]

Доброго дня всем. Такой процедурой я узнаю имя компьютера.

procedure TForm5.CompName;
 var
  ComputerName: array[0..255] of Char;
  nSize: DWORD;
begin
  nSize:= 256;
  GetComputerName(ComputerName, nSize);
  Edit1.Text:=ComputerName;
end;

Как узнать имя пользователя, который в данный момент работает на компе?

[NumLock]

GetUserName

[fofka]

Благодарю за подсказку.