Системное программирование для операционных систем

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Подтвердите что Вы не робот:
2. И нажмите на эту кнопку.
закрыть



p>

TVerDirectory *Report; //подготавливаемый отчет

__fastcall TDirThread(bool CreateSuspended):TThread(CreateSuspended) {} //конструктор

void __fastcall SetLists(void); //передача отчета главному окну программы

void __fastcall CheckStep(void); //отмечает в главном окне начало проверки каталогов

bool Term(void) {return Terminated;} //возвращает Terminated(protected - свойство)

};

//тип-поток для автоматического контроля проверяемых каталогов -

// при переименовке, добавлении и удалении файлов в данных каталогах (или их подкаталогах)

// инициирует проверку каталогов с подготовкой отчета

class TNotifyThread:public TThread

{

protected:

void __fastcall Execute(); //главная функция потока

public:

__fastcall TNotifyThread(bool CreateSuspended):TThread(CreateSuspended) {}//конструктор

bool Term(void) {return Terminated;} //возвращает Terminated(protected - свойство)

};

//тип-подготавливаемый отчет

class TVerDirectory

{

public:

TDirThread * Owner; //поток-владелец отчета - только указатель

AnsiString Path;

TStringList *DirList; //список подкаталогов проверяемого каталога

TGlobalList *GlobalList; //общий список имен файлов

TNameList *NameList; //список обнаруженных одноименных файлов

TNameList *ExNames; //проверяемые каталоги(пути) - только указатель

TVerDirectory(TStrings * fExNames, AnsiString fPath, TDirThread * aOwner);//-конструктор

~TVerDirectory(void); //-деструктор

void __fastcall Clear(void); //-очистка отчета

void __fastcall Fill(void); //-главная функция для подготовки отчета

bool __fastcall WorkFile(int PathNum,AnsiString Name); //-проверка файла

bool __fastcall WorkDir(AnsiString Path); //-проверка каталога

// (с рекурсивными вызовами для подкаталогов)

void __fastcall SetNameList(TStrings * DestList); //-для передачи в оконный компонент списка одноименных файлов

void __fastcall SetExNames(TStrings * DestList); //-для передачи в оконный компонент списка исключений

void __fastcall SetDirList(int NameNum,TStrings * DestList);//-для передачи в оконный компонент списка путей расположения

// выбранного файла (с номером NameNum в списке NameList)

void __fastcall SetDirListEx(int NameNum,TStrings * DestList);//-для передачи в оконный компонент списка путей расположения

// выбранного файла (с номером NameNum в списке ExNames)

bool __fastcall SetEx(int Index); //передать файл из NameList в ExNames

bool __fastcall ResetEx(int Index); //передать файл из ExNames в NameList

};

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

//тип - форма главного окна

class TFForm : public TForm

{

__published:// IDE-managed Components

TButton *Button1;

TPopupMenu *PopupMenu1;

TMenuItem *N1;

TMenuItem *N2;

TPanel *Panel1;

TLabel *Label1;

TListBox *NameBox;

TLabel *Label2;

TListBox *DirBox;

TPanel *Panel2;

TLabel *Label3;

TButton *AddDirButton;

TTimer *Timer1;

TLabel *Label5;

TListBox *ExBox;

TLabel *Label4;

TSpeedButton *SetExButton;

TSpeedButton *ResetExButton;

TTimer *Timer2;

void __fastcall NameBoxClick(TObject *Sender);

void __fastcall FormActivate(TObject *Sender);

void __fastcall N1Click(TObject *Sender);

void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

void __fastcall N2Click(TObject *Sender);

void __fastcall Button1Click(TObject *Sender);

void __fastcall Timer1Timer(TObject *Sender);

void __fastcall ExBoxClick(TObject *Sender);

void __fastcall AddDirButtonClick(TObject *Sender);

void __fastcall SetExButtonClick(TObject *Sender);

void __fastcall ResetExButtonClick(TObject *Sender);

private:// User declarations

void __fastcall WMShellMess(TMessage &Message); //обработчик WM_SHELLMESS

void __fastcall ShowMyWin(TMessage &Message); //обработчик WM_SHOWMYWIN

public:// User declarations

TVerDirectory *Report; //подготовленный отчет по одноименным файлам

TDirThread *DirThr; //поток проверки каталогов

TNotifyThread *NotifyThr; //поток автоматического контроля каталогов

TNotifyIconData NotifyData; //структура для регистрации значка в System Tray

bool AppClose; //признак выхода из программы

__fastcall TFForm(TComponent* Owner);//конструктор

void __fastcall CallThreads(void); //создание и запуск потоков контроля и проверки каталогов

void __fastcall StopThreads(void); //завершение и удаление потоков контроля и проверки каталогов

BEGIN_MESSAGE_MAP

MESSAGE_HANDLER(WM_SHELLMESS, TMessage, WMShellMess)

MESSAGE_HANDLER(WM_SHOWMYWIN, TMessage, ShowMyWin)

END_MESSAGE_MAP(TForm)

};

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

extern PACKAGE TFForm *FForm;

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

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

#endif

Файл FMain.cpp

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

#include

#pragma hdrstop

 

#include "FMain.h"

#include "FSelectDirForm.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFForm *FForm;

bool DirectoryNever; //признак необходимости перезапуска проверки каталогов

void *NeverMutex, //мъютекс для синхронизации доступа к DirectoryNever (для записи)

*NeverEvent; //событие для синхронизации потоков проверки файлов и контроля файлов

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

//------------------------TGlobalList,TNameList---------------------------------

int __fastcall TGlobalList::At(int Index) {return (int)Objects[Index];}

TIntArray * __fastcall TNameList::At(int Index) {return (TIntArray *)Objects[Index];}

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

//------------------------TVerDirectory----------------------------------------

TVerDirectory::TVerDirectory(TStrings * fExNames, AnsiString fPath, TDirThread * aOwner)

{

Path=fPath;

Owner=aOwner;

DirList= new TStringList();

GlobalList = new TGlobalList(); GlobalList->Sorted=true;

NameList = new TNameList(); NameList->Sorted=true;

ExNames = new TNameList(); ExNames->Sorted=true;

ExNames->AddStrings(fExNames);

}

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

TVerDirectory::~TVerDirectory(void)

{

Clear();

delete DirList;

delete GlobalList;

delete NameList;

delete ExNames;

}

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

void __fastcall TVerDirectory::Clear(void)

{

for(int i=0; iAt(i);

for(int i=0; iCount;i++)

if (ExNames->At(i) != NULL)

{

delete ExNames->At(i);

ExNames->Objects[i]=NULL;

}

NameList->Clear();

GlobalList->Clear();

DirList->Clear();

}

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

//главная функция для проверки каталогов и подготовки отчета

//если проверка была прервана в связи с изменением состава файлов (взведен DirectoryNever)-

//проверка начинается сначала.

//если проверка была прервана в связи с завершением родительского потока - выход из функции

void __fastcall TVerDirectory::Fill(void)

{

bool cc=true;

whil

s