unit1.h

刻录机源码

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
#include <FileCtrl.hpp>
#include <Menus.hpp>
#include <IniFiles.hpp>
#include "mbCDBC.hpp"
#include "mbDrvLib.hpp"
#include "mbExDD.hpp"

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

class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TSplitter *Splitter1;
        TSplitter *Splitter2;
        TPanel *pDrivesDir;
        TSplitter *Splitter3;
        TPanel *Panel2;
        TDriveComboBox *DriveCB;
        TPanel *Panel12;
        TBitBtn *bNetwork;
        TPanel *Panel11;
        TFileListBox *lbFiles;
        TDirectoryListBox *lbDir;
        TPanel *pDiscFiles;
        TListView *clBox;
        TPanel *Panel4;
        TBitBtn *bSaveISO;
        TBitBtn *bBurnISO;
        TPanel *Panel10;
        TBitBtn *bClear;
        TCheckBox *cPathInfo;
        TPanel *pTop;
        TLabel *lDrive;
        TBitBtn *bCaps;
        TBitBtn *bDisc;
        TComboBox *cbDrives;
        TPanel *Panel9;
        TBitBtn *bBurn;
        TBitBtn *bAdvance;
        TComboBox *cbSpeed;
        TPanel *pTop2;
        TLabel *Label1;
        TBitBtn *bQErase;
        TBitBtn *bCErase;
        TBitBtn *bLoad;
        TBitBtn *bReady;
        TBitBtn *bEject;
        TMCDBurner *mcdb;
        TTimer *Timer1;
        TPopupMenu *PopupMenu1;
        TMenuItem *ClearAll1;
        TExDragDrop *ExplorerDragDrop;
        TPopupMenu *PopupMenu2;
        TMenuItem *Remove1;
        TOpenDialog *od;
        TPanel *Panel1;
        TMemo *Memo1;
        TPanel *pbottom;
        TLabel *Label5;
        TLabel *Label6;
        TLabel *lSize;
        TProgressBar *pcd;
        TProgressBar *pHBuf;
        TProgressBar *pBuf;
        TButton *bAbort;
        void __fastcall Panel12Resize(TObject *Sender);
        void __fastcall clBoxDragOver(TObject *Sender, TObject *Source,
          int X, int Y, TDragState State, bool &Accept);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall bBurnClick(TObject *Sender);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall cbDrivesChange(TObject *Sender);
        void __fastcall bQEraseClick(TObject *Sender);
        void __fastcall bLoadClick(TObject *Sender);
        void __fastcall bEjectClick(TObject *Sender);
        void __fastcall bReadyClick(TObject *Sender);
        void __fastcall bClearClick(TObject *Sender);
        void __fastcall bSaveISOClick(TObject *Sender);
        void __fastcall bCEraseClick(TObject *Sender);
        void __fastcall mcdbAddDir(TObject *Sender, AnsiString &LongName,
          AnsiString &ShortName, bool &Skip);
        void __fastcall bCapsClick(TObject *Sender);
        void __fastcall clBoxDragDrop(TObject *Sender, TObject *Source,
          int X, int Y);
        void __fastcall cbSpeedDropDown(TObject *Sender);
        void __fastcall ClearAll1Click(TObject *Sender);
        void __fastcall mcdbEraseDone(TObject *Sender, bool WithError);
        void __fastcall bDiscClick(TObject *Sender);
        void __fastcall mcdbWriteDone(TObject *Sender, AnsiString Error);
        void __fastcall Label1Click(TObject *Sender);
        void __fastcall mcdbFinalizingTrack(TObject *Sender);
        void __fastcall bAbortClick(TObject *Sender);
        void __fastcall ExplorerDragDropDropped(TObject *Sender,
          int ItemsCount);
        void __fastcall Remove1Click(TObject *Sender);
        void __fastcall mcdbAddFile(TObject *Sender,
          const AnsiString FullPath, AnsiString &LongFileName,
          AnsiString &ShortFileName, TDateTime &DateTime, int Attr,
          __int64 FileSize, bool &Skip);
        void __fastcall bBurnISOClick(TObject *Sender);
        void __fastcall cPathInfoClick(TObject *Sender);
        void __fastcall clBoxEditing(TObject *Sender, TListItem *Item,
          bool &AllowEdit);
        void __fastcall bNetworkClick(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall bAdvanceClick(TObject *Sender);
        void __fastcall mcdbDebugMessage(TObject *Sender,
          AnsiString Message, BYTE mType);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
        AddFilesToCD();
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
short SessionToImport;
bool  QuickSaveISO;
bool  ccEject;
bool  ccShowFiles;
bool  ccImportSession;

// constants
#define  MaxFiles 600000
#define  MaxDirs  20000

//---------------------------------------------------------------------------
#endif