Сообщество Чайников

Вопрос

Как можно узнать имя компьютера (сетевая идентификация), на котором в данный момент выполняется приложение?

Ответ

Используй f-ю GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL;

— берет сабж из реестра.

procedure GetInfo(var ComputerName, UserName: String); var buf: PChar; cmp: Byte; begin cmp := 255; GetMem(buf, cmp); try GetComputerName(buf, cmp); ComputerName := buf; GetUserName(buf, cmp); UserName := buf; finally FreeMem(buf); end; end;

Из конференции Expert_FAQ