EnumPrinterDrivers = Zugriffsverletzung (Anfängerfrage)

[Andreas2k]

Dumme Frage aber kann ich es nicht auch einfach so machen:
statt 2x EnumPrinterDrivers aufzurufen rufe ich es 3x auf (1x um die nötige Buffersize zu ermitteln, 1x mit dem pBuffer in der Größe von BytesNeeded um den ItemsCount zu erhalten, 1x der finale aufruf mit dem @array[0] (=SetLength(array, ItemsReturned))

Delphi-Quellcode:

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

// BufferSize ermitteln
if not EnumPrinterDrivers(nil, nil, 2, nil, 0, BytesNeeded, ItemsReturned) then
    begin
      if GetLastError = ERROR_INSUFFICIENT_BUFFER then
         begin
           try
            // pBuffer Speicher reservieren
            pBuffer := System.AllocMem(BytesNeeded);
            // Anz. Items des Arrays ermitteln
            if EnumPrinterDrivers(nil, nil, 2, pBuffer, BytesNeeded, BytesNeeded, ItemsReturned) then
                begin
                  // Array Länge setzen
                  SetLength(aDriverList, ItemsReturned);
                  result := EnumPrinterDrivers(nil, nil, 2, @aDriverList[0], BytesNeeded, BytesNeeded, ItemsReturned);
                end;
           finally
            // Speicher freigeben
            FreeMem(pBuffer);
           end;
         end;
    end;

Kann man das so machen oder ist das zu gefährlich / dümmlich ?