鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

取得本机电脑名称

来源:互联网 作者:佚名 时间:2015-11-04 09:11
取得本机电脑名称 GetComputerName function GetPCName : String ;var LocalMachine: PChar; Len: DWord;begin Len := MAX_COMPUTERNAME_LENGTH + 1; // 取得本机电脑名称 GetMem(LocalMachine,Len); if GetComputerName(LocalMachine,Len) then Result := L

取得本机电脑名称

GetComputerName
function GetPCName : String ;
var
  LocalMachine: PChar;
  Len: DWord;
begin
  Len := MAX_COMPUTERNAME_LENGTH + 1; // 取得本机电脑名称
  GetMem(LocalMachine,Len);
  if GetComputerName(LocalMachine,Len) then Result := LocalMachine
  else  Result := 'UnKnow';
  FreeMem(LocalMachine,Len);
end;
上一篇:MEID校验码算法
下一篇:delphi控制ppt
网友评论
<