Delphi7获取本机名称的代码

最新推荐文章于 2024-05-14 16:01:05 发布

最新推荐文章于 2024-05-14 16:01:05 发布 · 263 阅读

Delphi 专栏收录该内容

28 篇文章

订阅专栏

本文介绍了一个使用Pascal语言编写的简单函数，该函数用于获取运行系统的计算机名称。通过分配内存并调用系统API来实现这一目标。

function GetComputerNameEx: string; //获取本机名称
var
  ComputerName: PChar;
  size: DWord;
begin
  GetMem(ComputerName, 255);
  size := 255;
      //   获取计算机名称
  if GetComputerName(ComputerName, size) = False then
  begin
    result := '';
    FreeMem(ComputerName);
    Exit;
  end;
  result := ComputerName;
  FreeMem(ComputerName);
end;