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.