NetDFSEnum - Problem mit LPBYTE

[OldGrumpy]

So sollte es gehen, siehe Kommentare:

Delphi-Quellcode:

procedure TForm1.btnDFSClick(Sender: TObject);
var
  p, pData : DFS_INFO_3;
  ps       : DFS_STORAGE_INFO;
  // er und hResume sind DWORDS, übergeben wird der Funktion jeweils ein Pointer auf diese DWORDS
  //daher die Fehlermeldung
  er,
  hResume  : DWORD;
  res,
  I, j     : DWORD;
  Domain   : PWideChar;
begin
  StringToWideChar(FDomainName, Domain, Length(FDomainName));
  res := NetDFSEnum(Domain, 3, MAX_PREFERRED_LENGTH, @pData, @er, @hResume);
  while (res = ERROR_SUCCESS) do
  begin
    p := pData;
    NetApiBufferFree(@pData);
    res := NetDFSEnum(Domain, 3, MAX_PREFERRED_LENGTH, @pData, @er, @hResume);
  end;
end;

Allerdings kann ich nicht sagen, was DFS_INFO_3 ist - erwartet wird ja ein Bytepointer...