局域网中文件夹的共享 Windows NT/2000/XP[6]

    editsharename: tedit; //共享名称

    editinfo: tedit;//备注

    button1: tbutton;

    button2: tbutton;

    procedure btselectclick(sender: tobject);

    procedure button1click(sender: tobject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  formshare: tformshare;

implementation

{$r *.dfm}

procedure tformshare.btselectclick(sender: tobject);

var

  directory: string;

begin

  if selectdirectory('选择一个目录','', directory) then

    editdir.text := directory;

end;

procedure tformshare.button1click(sender: tobject);

begin

  if editdir.text = '' then

    begin