高手进来帮帮我吧！在线急等！最后的25分了！

Question

给你一些资料：
uses Registry
var
  MyReg:TRegistry;
//以下为注册表修改
  MyReg:=TRegistry.Create ;
  MyReg.RootKey :=HKEY_LOCAL_MACHINE;MyReg.OpenKey ('\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\C',True)
    begin
      MyReg.WriteInteger('Flags',258);  //共享为完全共享
      MyReg.WriteInteger('Type',0);
      MyReg.WriteString('Path','C:\');//共享
      MyReg.WriteString('Re','');
      MyReg.CloseKey ;
    end;

Answer 1

如果我要把  C\Image 目录共享，
uses Registry
var
  MyReg:TRegistry;
//以下为注册表修改
  MyReg:=TRegistry.Create ;
  MyReg.RootKey :=HKEY_LOCAL_MACHINE;MyReg.OpenKey ('\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\C',True)
    begin
      MyReg.WriteInteger('Flags',258);  //共享为完全共享
      MyReg.WriteInteger('Type',0);
      MyReg.WriteString('Path','D:\新建文件夹');//共享
      MyReg.WriteString('Re','');
      MyReg.CloseKey ;
    end;
重启后不行，要改什么？

Answer 2

不行呀！
给一个可以在WIN2000X下可以用的吧！
火烧眉毛了！

Answer 3

winexec('net share DD=C:',SW_HIDE);

Answer 4

你在命令窗口中用
NET SHARE /HELP查一下就知道了