发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 6.17 得到Win 95 的计算机名字
发信站: 哈工大紫丁香 (2000年09月01日16:27:58 星期五), 站内信件

得到Win 95 的计算机名字?  

问 How can I learn Windows'95 Machine Name?

答function ComputerName : String;

var
   CNameBuffer : PChar;
  fl_loaded : Boolean;
  CLen : ^DWord;

begin

    GetMem(CNameBuffer,255);
    New(CLen);
    CLen^:= 255;

    fl_loaded := GetComputerName(CNameBuffer,CLen^);

    if fl_loaded then
      ComputerName := StrPas(CNameBuffer)
    else
      ComputerName := 'Unkown';

    FreeMem(CNameBuffer,255);
    Dispose(CLen);

end;


 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]