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 tadodataset 加载数据到fdmemtable1

Delphi 使用google translate实现tts

idhttp相关：伪造来源地址、cookie欺骗、通过代理访问

Delphi function 与 procedure

Delphi中in的使用

在一个exe文件中查找指定内容,找到则返回起始位置,否则返回0

Delphi datasnap传输流/文件问题

Delphi 检查字符串是不是 包含 中文和获取中文字符个数

Delphi 本地数据库备份与还原(Delphi)

Delphi调用createprocess创建进程

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

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