var hostName : array [0..255] of char; begin gethostname(hostName, sizeof (hostName)); end;
产生原因:D2009的Char为宽字符WideChar,而gethostname第一个参数是PAnsiChar。
解决方法:将hostName的声明改成array [0..255] of AnsiChar;即可。
var hostName : array [0..255] of char; begin gethostname(hostName, sizeof (hostName)); end;