const
  DRIVER_INFORMATION = 11;

type
  TDriverInfo = packed record
    Address : DWORD;
    Unknown1 : DWORD;
    Unknown2 : DWORD;
    EntryIndex : DWORD;
    Unknown4 : DWORD;
    Name: array [0..MAX_PATH + 3] of Char;
   end;

  TDriverQueryInfo = packed record
    Count : integer;
    Unknown1 : DWORD;
    Unknown2 : DWORD;
    Drv : array [0..0] of TDriverInfo;
   end;
  PDriverQueryInfo = ^TDriverQueryInfo;


function NtQuerySystemInformation (infoClass: DWORD;  buffer: Pointer;  bufSize: DWORD;  returnSize: PDword): DWORD; stdcall; external 'ntdll.dll';


procedure GetInstallDriver;
var
  NeedByte : dword;
  Info : PDriverQueryInfo;
  x : integer;
begin
  NtQuerySystemInformation(DRIVER_INFORMATION, nil, 0, @NeedByte);
  Info := AllocMem(NeedByte * 2);
  NtQuerySystemInformation(DRIVER_INFORMATION, Info, NeedByte * 2, @NeedByte);

  for x := 0 to Info^.Count-1 do
  begin
    Writeln(Format('| $%-5s | %-48s |', [IntToHex(Info^.Drv[x].Address, 8), Info^.Drv[x].Name]));
  end;

  FreeMem(Info);
end;

begin
  GetInstallDriver();
  readln;
end.