PHostName: PAnsiChar;
hostname: PWideChar;
GetMem(hostname, 2 * length(StrPas(PHostName)) + 2);
StringToWideChar(StrPas(PHostName), hostname, Length(StrPas(PHostName)) +
2);
freemem(hostname);
PHostName: PAnsiChar;
hostname: PWideChar;
GetMem(hostname, 2 * length(StrPas(PHostName)) + 2);
StringToWideChar(StrPas(PHostName), hostname, Length(StrPas(PHostName)) +
2);
freemem(hostname);