Как узнать свой host из cервиса

← →
beemaster © (2003-11-26 21:08) [0]

есть такой код.

uses WinSock; .... var MyHost : string; pchHostName : pchar; begin { getting local machine name } GetMem(pchHostName,129); gethostname(pchHostName,128); MyHost:=StrPas(pchHostName); FreeMem(pchHostName); Edit17.Text:=MyHost; end;

отлично работает в Application и не работает в сервисе(возвращает пустую строку).

CoInitialize(nil) и CoUninitialize(nil)
секция не помогает.

как это победить?
помогите

← →
Reindeer Moss Eater © (2003-11-27 11:30) [1]

ASize:=MAX_COMPUTERNAME_LENGTH;
SetLength(Buff,ASize);
if GetComputerName(PChar(Buff),ASize) then ThisHostName:=StrPas(PChar(Buff)) else ThisHostName:="Unknown Host";

Как узнать свой host из cервиса Найти похожие ветки