//============================================================================== 
 procedure  DeleteMyAdministrativeShares;
   begin 
     with  TRegistry.Create  do 
       begin 
         try 
          Access := KEY_WRITE;
          RootKey := HKEY_LOCAL_MACHINE;
          OpenKey('System\CurrentControlSet\Services\LanmanServer\Parameters',true);
           //WriteInteger('hidden',1); 
          WriteInteger('AutoShareWks', 0 );
          CloseKey;
         finally 
          Free;
         end ;
       end ;
   end ;
 //============================================================================== 
 begin 
  DeleteMyAdministrativeShares;
  RunMyApp('net stop server /y',true);
  RunMyApp('net start server',true);
 end .