Netzwerkfreigabe aufheben?? Wie?

[Stresslein]

Hallo,
wie der Titel schon sagt suche ich einen Code um eine Freigabe im Netzwerk aufzuheben. Schonmal im Vorraus recht herzlichen Dank!

Viele Grüße
Stresslein

[Christian Seehase]

Moin Stresslein,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Schau Dir mal die Funktion WNetCancelConnection2 an.

[Stresslein]

kannst du mir mal ein beispiel daran zeigen? wäre dankbar^

[Stresslein]

Ist das WnetCancelConnection2 nicht nur für ein Netzlaufwerk?? Dies habe ich nämlich benutzt um ein Netzlaufwerk zu deaktivieren. Was ich bräuchte ist noch ein Code mit dem man eine normale Ordnerfreigabe aufheben kann. Vielen Dank für die Mithilfe

Viele Grüße
Stresslein

[xineohp]

moin,

theoretisch könntest du einfach den Eintrag in der Registy löschen, erstens ist dann allerdings ein Neustart fällig und zweitens ist es nicht besonders elegant

EDIT:
Ich hab mal ein bisschen gegoogelt: Schau dir mal den Konsolenbefehl net share genauer an, das sollte dir weiter helfen.

[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;