Delphi-PRAXiS - Delphi Freigabe unter Windows erstellen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Netzwerke (https://www.delphipraxis.net/14-netzwerke/)

- - Delphi Freigabe unter Windows erstellen (https://www.delphipraxis.net/8076-freigabe-unter-windows-erstellen.html)

Freigabe unter Windows erstellen

Hi,

ich habe den Thread weiter unten über das auflisten der Freigaben gelesen. War sehr aufschlußreich.
Da ich in einem Programm eine Freigabe selbst machen will, habe ich mir die Jedi-Libary herunter geladen und mit mal dran gemacht.

Ich komme damit aber nicht richtig klar.

folgendes habe ich ausprobiert:

Delphi-Quellcode:

			unit Main;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls, ShellApi, LmShare, LmAccess;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    ProgressBar1: TProgressBar;

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

const

  NERR_Success         = 0;

  MAX_PREFERRED_LENGTH = DWORD(-1);

type

  NET_API_STATUS = type DWORD;

  PSHARE_INFO_0 = ^SHARE_INFO_0;

  SHARE_INFO_0 =

    packed record

      shi0_netname : PWChar;

    end;

type 

  PSHARE_INFO_2 =^SHARE_INFO_2;

  SHARE_INFO_2 = packed record 

     shi2_netname      : PWChar;

     shi2_type         : Dword;

     shi2_remark       : PWChar;

     shi_permissions   : DWord;

     shi2_max_uses     : DWord;

     shi2_current_uses : DWord; 

     shi2_path         : PWChar;

     shi2_passwd       : PWChar; 

end;

var

  reg: TRegistry;

  buffer1, buffer2, buffer3: array [1..32] of Char;

  i: Integer;

  ipaddress, subnetmask, DefaultGateway: string;

  Adapter, Adapter_Key: string;

  stringlist: TStrings;

implementation

uses ipadresse;

{$R *.dfm}

function NetApiBufferFree(

    const Buffer : Pointer

    ) : NET_API_STATUS; stdcall; external 'netapi32.dll';

function NetShareEnum(

    const servername    : PWChar;

    const level         : DWord;

    const bufptr        : Pointer;

    const prefmaxlen    : DWord;

    const entriesread   : PDWord;

    const totalentries  : PDWord;

    const resume_handle : PDWord

    ) : NET_API_STATUS; stdcall; external 'netapi32.dll';

procedure TForm1.Button3Click(Sender: TObject);

var

  si2Work        : PSHARE_INFO_2;

  si2Save        : PSHARE_INFO_2;

  dwEntriesRead  : DWORD;

  dwTotalEntries : DWORD;

  i              : DWORD;

begin

  if NetShareEnum(nil,2,@si2Work,MAX_PREFERRED_LENGTH,@dwEntriesRead,@dwTotalEntries,nil) <> Nerr_Success then exit;

  try

    si2Save := si2Work;

    for i := 1 to dwEntriesRead do

    begin

      if si2Save.shi2_type = STYPE_DISKTREE then

           memo1.lines.Add(si2Save.shi2_netname);

      inc(si2Save);

    end;

  finally

    NetApiBufferFree(si2Work);

  end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

 share: PSHARE_INFO_2;

 err: DWord;

begin

     Share.shi2_netname:='SBK';

     share.shi2_type:=STYPE_DISKTREE;

     share.shi_permissions:=ACCESS_ALL;

     share.shi2_path:='c:\\mysql';

     NetShareAdd('',2,@Share,@err);

     ShowMessage(Inttostr(err));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

     Application.Terminate;

end;

end.

Die Funktion für das Auflisten (Button3Click) habe ich dem Thread entnommen. Das funktioniert auch.
Aber bei der Funktion zum Freigeben (Button4Click) bekomme ich immer eine Zugriffsverletzung, und das schon beim ersten zugriff auf Share.shi2_netname.

Kann mir einer von euch weiterhelfen?