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

#include <vcl.h>
#include "PascalFunctions.hpp"
#include "DecryptFormFile.h"
#pragma hdrstop
TPascalFun *PascalFun; //引用Delphi函數的類
USERES("NoKeyNoOpen.res");
USEFORM("AboutFormFile.cpp", AboutForm);
USEFORM("DecryptFormFile.cpp", DecryptForm);
USEFORM("EncryptFormFile.cpp", EncryptForm);
USEUNIT("MyClassFile.cpp");
USEUNIT("PascalFunctions.pas");
USEFORM("AddShellFormFile.cpp", AddShellForm);
USEUNIT("Compress_LH5.pas");
USERC("AddShell.rc");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE,char *str, int)
{
        try
        {        Application->Initialize();
                 Application->Title = "No Key No Open 2005";
                 Application->CreateForm(__classid(TAboutForm), &AboutForm);
                 Application->CreateForm(__classid(TDecryptForm), &DecryptForm);
                 Application->CreateForm(__classid(TEncryptForm), &EncryptForm);
                 Application->CreateForm(__classid(TAddShellForm), &AddShellForm);
                 if(String(str).Length()!=0)
                 {
                 DecryptForm->Show();
                 DecryptForm->FileList->Items->Text= PascalFun->GetLongFileName(String(str));
                 }
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------