mainform.cpp

C++ BUILDER精彩编程实例集锦(源码)3 第五部分 系统编程 第六部分 数据库应用

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
#include "Registry.hpp"
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{//隐藏磁盘驱动器
   long NoDrives=0;
   switch(this->DriveComboBox1->Drive)
   {
     case 'a':
        NoDrives=1;
        break;
     case 'b':
        NoDrives=2;
        break;
     case 'c':
        NoDrives=4;
        break;
     case 'd':
        NoDrives=8;
        break;
     case 'e':
        NoDrives=16;
        break;
     case 'f':
        NoDrives=32;
        break;
     case 'g':
        NoDrives=64;
        break;
     case 'h':
        NoDrives=128;
        break;
     case 'i':
        NoDrives=256;
        break;
     case 'j':
        NoDrives=512;
        break;
     case 'k':
        NoDrives=1024;
        break;
     case 'l':
        NoDrives=2048;
        break;
     case 'm':
        NoDrives=4096;
        break;
     case 'n':
        NoDrives=8192;
        break;
     case 'o':
        NoDrives=16384;
        break;
     case 'p':
        NoDrives=32768;
        break;
     case 'q':
        NoDrives=65536;
        break;
     case 'r':
        NoDrives=131072;
        break;
     case 's':
        NoDrives=262144;
        break;
     case 't':
        NoDrives=524288;
        break;
     case 'u':
        NoDrives=1084576;
        break;
     case 'v':
        NoDrives=2169152;
        break;
     case 'w':
        NoDrives=4338304;
        break;
     case 'x':
        NoDrives=8676608;
        break;
     case 'y':
        NoDrives=17353216;
        break;
     case 'z':
        NoDrives=34706432;
        break;
   }
   TRegistry  *Reg=new TRegistry();
   Reg->RootKey=HKEY_CURRENT_USER;
   Reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer",true);
   Reg->WriteInteger("NoDrives",NoDrives);
   Reg->CloseKey();
   delete Reg;
   MessageBox(Handle,"隐藏驱动器操作成功！需要注销或重新启动计算机才能生效","信息提示",MB_OK);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{//取消磁盘驱动器隐藏
   TRegistry  *Reg=new TRegistry();
   Reg->RootKey=HKEY_CURRENT_USER;
   Reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer",true);
   Reg->DeleteValue("NoDrives");
   Reg->CloseKey();
   delete Reg;
   MessageBox(Handle,"取消驱动器隐藏操作成功！需要注销或重新启动计算机才能生效","信息提示",MB_OK);

}
//---------------------------------------------------------------------------