versteckte freigaben finden

[MacBones]

Hab da halt die JEDI runtergeladen und eingebunden, hab ich hier irgendwo bei im Forum gefunden, als ich die Suche verwendet hab.
Also die auferufene Function lautet:

Delphi-Quellcode:

function NetShareEnum(servername: LPTSTR; level: DWORD; var butptr: Pointer;
  prefmaxlen: DWORD; var entriesread: DWORD; var totalentries: DWORD;
  resume_handle: PDWORD): Integer; stdcall; external 'netapi32.dll';

Der aufruf lautet wie folgt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  shareBuffer: PSHARE_INFO_502;
  s2: TShareInfo502Array;
  dwRead, dwEntries: Cardinal;
  i: Integer;
  server: LPTSTR;
begin
listbox1.Clear;
server:= nil;

  NetShareEnum(server, 502, Pointer(shareBuffer), DWORD(-1), dwRead, dwEntries, nil);
  s2 := TShareInfo502Array(shareBuffer);
  for i := 0 to dwRead - 1 do begin
    listbox1.Items.Add(s2[i].shi502_netname);
  end;
end;

Das wars im Prinzip.