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 inttohex 查看字符的十六进制值

Delphi tstreamreader tfile assignfile读取文本文件

Delphi 获取屏幕缩放比例

Delphi xe5 android toast

Delphi webbrowser获取页面全部链接

如何在 Delphi 中静态链接 sqlite

Delphi 如何将整数值转换为罗马数字表示形式

Delphi idhttpserver接收http get请求解码问题

Delphi 的链式代码

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

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