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 关于 array of const

Delphi 分解时间 �cdecodedate、decodetime … decodedatetime …

关于Delphi下的三元运算符（三目运算）

Delphi 移动windows开始按钮到任务栏中的任何位置

Delphi 根据窗口类判断程序是否运行

Delphi xe5 android 黑屏的临时解决办法

Delphi systemparametersinfo 用法

Delphi 读取正在被占用的txt文件

Delphi10.3通过json.serializers单元对大量数据序列化

Delphi判断某个程序是否已经启动

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

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