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

#include <vcl.h>
#pragma hdrstop
#include "EncryptFormFile.h"
#include "DecryptFormFile.h"
#include "AboutFormFile.h"
#include "AddShellFormFile.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "XPMenu"
#pragma resource "*.dfm"
TAboutForm *AboutForm;
TPascalFun *PascalFun; //引用Delphi函數(shù)的類
//---------------------------------------------------------------------------
__fastcall TAboutForm::TAboutForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::EncryptFileClick(TObject *Sender)
{
EncryptForm->Show();
this->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::DecryptFileClick(TObject *Sender)
{
DecryptForm->Show();
this->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::ExitClick(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::AddShellClick(TObject *Sender)
{
AddShellForm->Show();
this->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::ViewHelpClick(TObject *Sender)
{
AnsiString Helpfile=ExtractFilePath(Application->ExeName)+"Help.CHM";//幫助文檔的路徑
ShellExecute(Handle,NULL,Helpfile.c_str(),NULL,NULL,SW_SHOWNORMAL);  //打開幫助文檔
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::FormCreate(TObject *Sender)
{
try{
TStringList *tmp=new TStringList;
tmp->Text="測試當(dāng)前文件所在的地方能否創(chuàng)建文件";
tmp->SaveToFile(".\\IsCanWrite.txt");
tmp->Free();
DeleteFile(".\\IsCanWrite.txt");
}
catch (...)
{
 ShowMessage("請把 "+ExtractFileName(Application->ExeName)+" 及 HELP.chm 復(fù)制到硬盤下使用。");
 Application->Terminate();
}
//----------------------------檢測并注冊文件類型
  Registry = new TRegistry;
  Registry->RootKey = HKEY_CLASSES_ROOT;
  Registry->OpenKey(".gv", TRUE);
  Registry->WriteString("","NoKeyNoOpen");
  Registry->CloseKey();  
  Registry->OpenKey(".coco", TRUE);
  Registry->WriteString("","NoKeyNoOpen");
  Registry->CloseKey();
  Registry->OpenKey("NoKeyNoOpen\\shell\\open\\command", TRUE);
  Registry->WriteString("",Application->ExeName+" %1");
  Registry->CloseKey();
   Registry->OpenKey("NoKeyNoOpen\\DefaultIcon", TRUE);
  Registry->WriteString("",ExtractFilePath(Application->ExeName)+"FileIcon.ico");
  Registry->CloseKey();
  
    Registry->Free();
//----------------------------檢測并注冊文件類型
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::SetupAllDeleteClick(TObject *Sender)
{
if(Application->MessageBoxA("<<滅文器 v1.00>>可以徹底地刪除文件(即文件刪除被恢復(fù)后也只是一堆亂碼)，更好地保證您文件的安全。\n是否想安裝<<滅文器 v1.00>>到系統(tǒng)文件夾“發(fā)送到”?",Application->Title.c_str(),MB_YESNO)==IDYES)
{
PascalFun->LoadFromRes("AllDeleteEXE","ExeFile",PascalFun->GetSystemPath()+"\\滅文器 v1.00.exe");
ShowMessage("安裝成功!您若想用<<滅文器 v1.00>>刪除文件，就把選定的文件或文件夾發(fā)送到<<滅文器 v1.00>>。");
}
}
//---------------------------------------------------------------------------