关于设置文件共享的问题

Question

我想在打开服务器上非共享状态的文件之前把该文件设置为共享状态
关闭文件后又把共享状态撤了，请问该如何编程
现在下班了，明天来取，结贴！

Answer 1

str:='command.com /C net share '+edit7.text+'='+edit6.text;
  str:=str+' /UNLIMITED';
  str:=str+'/REMARK:'+'共享文件夹';
  str:=str+' /CACHE:Automatic';
if winexec(pchar(str),sw_hide)>31 then
  memo5.lines.add(edit6.text+'共享成功！')
else
  memo5.lines.add(edit6.text+'共享失败！');  str:='command.com /C net share '+edit7.text+'/delete';
if winexec(pchar(str),sw_hide)>31 then
  memo5.lines.add(Edit6.Text+'共享取消')
else
  memo5.Lines.Add(Edit6.Text+'取消共享失败');
  end;

Answer 2

edit7.text和edit6.text写什么，能否写清楚点？谢谢

Answer 3

DelphiStudy(自愧不如) 在吗/