如何得到本机计算机名

Question

请教:DELPHI生成的可执行程序在WIN98下如何可以得到本机的计算机名.

Answer 1

var
  CNameBuffer: PChar; fl_loaded: Boolean;
  CLen: ^DWord; ComputerName: string;
begin
  GetMem(CNameBuffer, 255);
  New(CLen);
  CLen^ := 255;
  fl_loaded := GetComputerName(CNameBuffer, CLen^);
  if fl_loaded then
    ComputerName := StrPas(CNameBuffer)
  else
    ComputerName := 'Unkown';
  label2.caption := ComputerName;
  FreeMem(CNameBuffer, 255);
  Dispose(CLen);
end;