Курсовая работа: Файловый менеджер
else attr.dwFileAttributes &= ~FILE_ATTRIBUTE_READONLY;
if(CBHide->Checked) attr.dwFileAttributes |= FILE_ATTRIBUTE_HIDDEN;
else attr.dwFileAttributes &= ~FILE_ATTRIBUTE_HIDDEN;
if(CBSystem->Checked) attr.dwFileAttributes |= FILE_ATTRIBUTE_SYSTEM;
else attr.dwFileAttributes &= ~FILE_ATTRIBUTE_SYSTEM;
SetFileAttributes(Name.c_str(),attr.dwFileAttributes); //Установка
ENameFile->Modified=false;
}
void TFPropertyFile::Get_Size_Folder(AnsiString dir)
{
TSearchRec sr;
if(FindFirst(dir+"*",faAnyFile,sr)!=0) //Просмотр папок в детях
return;
do
{
int Attr=FileGetAttr(dir+sr.Name);
if(Attr==-1 || sr.Name=="." || sr.Name=="..")
continue; //Проверка на отсутствующие в действиетельности папки
if(sr.Attr & faDirectory)
{
num_folder++;
Get_Size_Folder(dir+sr.Name+"\\"); //Сохранение полного имени для доступа
}
else
{
num_files++;
size+=sr.Size;
unsigned long temp;
temp=sr.Size;
if((temp/byte_in_cluster*byte_in_cluster)!=temp) //Проверка влезания файла
temp=(temp/byte_in_cluster+1)*byte_in_cluster;
size_on_disk+=temp;
}
}
while(FindNext(sr)==0);
FindClose(sr);
}
void TFPropertyFile::Prepare(AnsiString Name)
{
//Подготовка данных и показ свойств файла
unsigned long int byte_in_sector,sector_in_cluster;
GetDiskFreeSpace((ExtractFileDrive(Name)+"\\").c_str(),§or_in_cluster,
&byte_in_sector,NULL,NULL);
byte_in_cluster=sector_in_cluster*byte_in_sector;
Name_File=Name;
GetFileAttributesEx(Name.c_str(),GetFileExInfoStandard,&attr);
FILETIME ft;
SYSTEMTIME st;
AnsiString date;
TDateTime dt;
if((FileGetAttr(Name) & faDirectory)!=0) //Если свойства папки
{
Graphics::TBitmap *i=new Graphics::TBitmap; //Загрузка иконки папки
Form1->ImageList3->GetBitmap(ImageCloseFolder,i);
IIconFile->Picture->Bitmap->Assign(i);
delete i;
ENameFile->Text=ExtractFileName(Name.SubString(1,Name.Length()-1));
LTypeFile->Caption="Папка"; //Загрузка названия
LFolder->Caption=ExtractFilePath(Name.SubString(1,Name.Length()-1));
num_files=num_folder=size=size_on_disk=0; //Запуск рекурсивной функции считающей
Get_Size_Folder(Name); //размер папки кол-во файлов и папок в ней
LSize->Caption=AnsiString(FormatFloat("#,##0", size/1024))+" KB ("+AnsiString(FormatFloat("#,##0", size))+ " байт)";
LOnDisk->Caption=AnsiString(FormatFloat("#,##0", size_on_disk/1024))+" KB ("+AnsiString(FormatFloat("#,##0", size_on_disk))+ " байт)";
LName->Caption="Содержит :";
LOpen->Caption=AnsiString("Файлов: ")+num_files+" ; Папок: "+num_folder;
}
else //Если свойства файла
//Проверка влезания файла
//Даты создания
FileTimeToLocalFileTime(&(attr.ftCreationTime), &ft);
FileTimeToSystemTime( &ft, &st);
dt=SystemTimeToDateTime(st);
DateTimeToString(date,"d mmm yyyy г., hh:nn:ss",dt);
LCreate->Caption=date; //Запись даты создания
///Даты изменения
FileTimeToLocalFileTime(&(attr.ftLastWriteTime), &ft);
FileTimeToSystemTime( &ft, &st);
dt=SystemTimeToDateTime(st);
DateTimeToString(date,"d mmm yyyy г., hh:nn:ss",dt);
LWrite->Caption=date; //Запись даты изменения
CBArchiv->Checked=attr.dwFileAttributes & FILE_ATTRIBUTE_ARCHIVE;
CBReadOnly->Checked=attr.dwFileAttributes & FILE_ATTRIBUTE_READONLY;
CBHide->Checked=attr.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN;
CBSystem->Checked=attr.dwFileAttributes & FILE_ATTRIBUTE_SYSTEM;
ENameFile->Modified=false;
if(FPropertyFile->ShowModal()==mrOk) //Показ формы
Set_Change(Name,attr);
}
void __fastcall TFPropertyFile::BtApplyClick(TObject *Sender)
{ //Щелчок на применить
Set_Change(Name_File,attr); //Вызов функции сохранения изменений
}
//---------------------------------------------------------------------------
1.4. Листинг PropertyDrive.cpp
TFPropertyDrive *FPropertyDrive;
//---------------------------------------------------------------------------
__fastcall TFPropertyDrive::TFPropertyDrive(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void TFPropertyDrive::Prepare(AnsiString Name)
{
Name_Drive=Name;
Graphics::TBitmap *i=new Graphics::TBitmap; //Загрузка иконки папки
Caption="Свойства: Диск "+Name.SubString(1,2);
switch(GetDriveType(Name.c_str())) //Загрузка image
{
case DRIVE_REMOVABLE:
LType->Caption="Дисковод";
Form1->ImageList3->GetBitmap(ImageFloppy,i);
break;
case DRIVE_FIXED:
case DRIVE_RAMDISK:
LType->Caption="Жесткий диск";
Form1->ImageList3->GetBitmap(ImageDrive,i);
break;
case DRIVE_CDROM:
LType->Caption="CD-дисковод";
Form1->ImageList3->GetBitmap(ImageCD,i);
break;
default:
LType->Caption="Неизвестный дисковод";
Form1->ImageList3->GetBitmap(ImageWindows,i);
break;
}
IIconDisk->Picture->Bitmap->Assign(i);
delete i;
char volume[20],filesystem[20];
if(GetVolumeInformation(Name.c_str(),volume,20,NULL,NULL,NULL,filesystem,20))
{
ELabelDisk->Text=volume;
LFileSystem->Caption=filesystem;
}
else
{
ELabelDisk->Text="";
LFileSystem->Caption="";
}
__int64 FreeSpace,TotalSpace,TakenSpace;
Chart1->Series[0]->Clear();
if(Sysutils::GetDiskFreeSpaceEx(Name.c_str(),NULL,TotalSpace,&FreeSpace))
{
double c=10.0;
TakenSpace=TotalSpace-FreeSpace;
LTaken1->Caption=AnsiString(FormatFloat("#,##0", TakenSpace))+" байт";
LTaken2->Caption=AnsiString(((TakenSpace*10)/1024/1024/1024)/c)+" ГБ";
LFree1->Caption=AnsiString(FormatFloat("#,##0", FreeSpace))+" байт";
LFree2->Caption=AnsiString(((FreeSpace*10)/1024/1024/1024)/c)+" ГБ";
LCapacity1->Caption=AnsiString(FormatFloat("#,##0", TotalSpace))+" байт";
LCapacity2->Caption=AnsiString(((TotalSpace*10)/1024/1024/1024)/c)+" ГБ";
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));
Chart1->Series[0]->Add(TakenSpace,"1",clRed);
Image2->Canvas->Brush->Color=clGreen;
Image2->Canvas->FillRect(Rect(0,0,Image2->Width,Image2->Height));
Chart1->Series[0]->Add(FreeSpace,"2",clGreen);
Chart1->View3DOptions->Elevation=290;
}
else
{
LTaken1->Caption="0 байт";
LTaken2->Caption="0 байт";
LFree1->Caption="0 байт";
LFree2->Caption="0 байт";
LCapacity1->Caption="0 байт";
LCapacity2->Caption="0 байт";
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));
Chart1->Series[0]->Add(100,"1",clRed);
Image2->Canvas->Brush->Color=clGreen;
Image2->Canvas->FillRect(Rect(0,0,Image2->Width,Image2->Height));
Chart1->View3DOptions->Elevation=290;
}
ELabelDisk->Modified=false;
if(FPropertyDrive->ShowModal()==mrOk)
{
if(ELabelDisk->Modified)
SetVolumeLabel(Name.c_str(),ELabelDisk->Text.c_str());
}
}
void __fastcall TFPropertyDrive::BtApplyClick(TObject *Sender)
{
if(ELabelDisk->Modified)
SetVolumeLabel(Name_Drive.c_str(),ELabelDisk->Text.c_str());
ELabelDisk->Modified=false;
}
//---------------------------------------------------------------------------
Список использованной литературы
1. А.Я. Архангельский. Программирование в C++ Builder 6. – М.: ЗАО «Издательство БИНОМ», 2003 г. – 1152 с.
2. А.Я. Архангельский. Справочное пособие. Книга 2. Классы и компоненты. – М.: Бином-Пресс, 2002 г. –528 с.
4. http://www.sources.ru/
