精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>Re:如何获得用户的计算机名称

主题:Re:如何获得用户的计算机名称
发信人: teleme(Teleme)
整理人: teleme(2002-08-11 09:59:01), 站内信件
use windows

function GetsComputerName: 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
      result := StrPas(CNameBuffer)
   else
      result := 'Unkown';
   FreeMem(CNameBuffer, 255);
   Dispose(CLen);
end;


----
便

[关闭][返回]