delphi 判断UEFI与 Legacy BIOS启动模式

本文整理自网络，侵删。

 
{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

function GetFirmwareEnvironmentVariableA(lpName, lpGuid: LPCSTR; pBuffer: Pointer;
  nSize: DWORD): DWORD; stdcall; external kernel32 name 'GetFirmwareEnvironmentVariableA';

begin
  try
    GetFirmwareEnvironmentVariableA('','{00000000-0000-0000-0000-000000000000}', nil,0);
    if (GetLastError = ERROR_INVALID_FUNCTION) then
      Writeln('Legacy BIOS')
    else
      Writeln('UEFI Boot Mode');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.
 

相关阅读 >>

Delphi指针

Delphi中 tstringlist和thashedstringlist的性能对比

如何访问局域网的access数据库

Delphi stringgrid常用属性和常用操作

Delphi 读取文件的md5值

Delphi 截取字符串的用法

Delphi adoconnection1连接mssql数据库方法

Delphi通过ip或机器名获取局域网mac地址

Delphi获取外部程序菜单并模拟点击菜单

Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 判断UEFI与 Legacy BIOS启动模式