Netzwerkfreigabe aufheben?? Wie?

[Christian Seehase]

Moin Stresslein,

Zitat von Stresslein:

Was ich bräuchte ist noch ein Code mit dem man eine normale Ordnerfreigabe aufheben kann.

Missverständnis meinerseits.

Das geht mit NetShareDel

Beispiel für NT:

Delphi-Quellcode:

// Deklarationen
const
  NERR_Success = 0;

type
  NET_API_STATUS = DWORD;

function NetShareDel(
  const servername : LPWSTR;
  const netname    : LPWSTR;
  const reserved   : DWORD) : NET_API_STATUS; stdcall; external 'netapi32.dll';

// Aufruf
var
  dwResult : DWORD;

begin
  dwResult := NetShareDel(nil,'Freigabename',0);
  if dwResult <> NERR_Success then begin
    ShowMessage(SysErrorMessage(dwResult));
  end;
end;