EnumPrinterDrivers = Zugriffsverletzung (Anfängerfrage)

[Andreas2k]

Ich würde gerne mittels EnumPrinterDrivers die Liste der installierten Druckertreiber auslesen.
Das auslesen funktioniert auch, ich bekomme die korrekte Liste doch dann haut das Programm eine Zugriffsverletzung raus.

Zitat:

---------------------------
Printer
---------------------------
Zugriffsverletzung bei Adresse 004058CF in Modul 'Printer.exe'. Lesen von Adresse 00000000.
---------------------------
OK
---------------------------

Ich bin leider ein wenig aus der übung und habe auch früher solche API geschichten gemieden. Diesmal würde ich aber gerne verstehen wie es geht und wo da der Fehler ist. Im Debugger wirkt es irgendwie als hätte ich zu viel Speicher reserviert.

Delphi-Quellcode:

function GetPrinterDrivers(): boolean;
var
    arDriverList : array of TDriverInfo2;
    pBuffer      : Pointer;
    pcbNeeded    : DWORD;
    pcReturned   : DWORD;
    ErrorTxt     : array [0..500] of char;
    i            : integer;
begin

// Aufruf mit Buffersize 0 soll die benötigte Größe in pcbNeeded schreiben.
// ^--------------------------------------------+
if not EnumPrinterDrivers(nil, nil, 2, pBuffer, 0, pcbNeeded, pcReturned) then
    begin
      GetMem(pBuffer, pcbNeeded);
    end;

result := EnumPrinterDrivers(nil, nil, 2, pBuffer, pcbNeeded, pcbNeeded, pcReturned);

if result then
   begin
     arDriverList := pBuffer;
     for i := 0 to  pcReturned -1 do form1.Memo1.Lines.add(arDriverList[i].pName);
     FreeMem(pBuffer, pcbNeeded);
   end
      else
    begin
      FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError, 0, ErrorTxt, 500, nil);
      ShowMessage(ErrorTxt);
    end;
end;