怪怪怪,在XP/2000下正常执行,但在win98下竟然不正常!!!

Question

我用GetComputerName函数去获取本机的计算机名,在XP/2000下都得到正常结果,满以为在win98下也应该可以,但竟然在win98下得到一个空串:(,还请高手指教.procedure TForm1.Button1Click(Sender: TObject);
var
  CN: array[0..14] of char;
  j: DWORD;
begin
  j := 15;
  if GetComputerName(CN, j) then
    Edit1.Text := string(CN);
end;

Answer 1

试试这个呢
function getname(): string;
var
  buf: PChar;
  nSize: DWORD;
begin
  nSize:= MAX_COMPUTERNAME_LENGTH + 1;
  GetMem(buf, nSize);
  try
    if GetComputerName(buf, nSize) then
      result:=(StrPas(buf));
  finally
    FreeMem(buf);
  end;
end;