获得主机名和操作系统(Delphi)

最新推荐文章于 2021-07-26 05:33:31 发布

原创最新推荐文章于 2021-07-26 05:33:31 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #buffer #windows #function #string

本文提供了一种使用Pascal语言来获取当前运行的操作系统类型及计算机名称的方法。通过调用特定API，该方法能够准确地识别出是Windows NT系列还是Windows 9x系列操作系统，并能读取计算机的名称。

{判断是哪类操作系统}

function GetOperatingSystem: string;
var
osVerInfo: TOSVersionInfo;
begin
Result := '';
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
    case osVerInfo.dwPlatformId of
      VER_PLATFORM_WIN32_NT:
        begin
          Result := 'Windows NT/2000/XP'
        end;
      VER_PLATFORM_WIN32_WINDOWS:
        begin
          Result := 'Windows 95/98/98SE/Me';
        end;
    end;
end;

{获得计算机名}

function GetComputerName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result := strpas(buffer);
end;