Доброго дня всем. Такой процедурой я узнаю имя компьютера.
Код HTML:
procedure TForm5.CompName;
var
ComputerName: array[0..255] of Char;
nSize: DWORD;
begin
nSize:= 256;
GetComputerName(ComputerName, nSize);
Edit1.Text:=ComputerName;
end;
Как узнать имя пользователя, который в данный момент работает на компе?