Файловый менеджер с поддержкой поиска mp3-файлов по ID3-параметрам

ПРИЛОЖЕНИЕ  Д

(обязательное)

Руководство программиста

     Модуль 1 - frFilePanelU.pas//содержит все функции программы

     procedure lvFilesColumnClick(Sender: TObject; Column: TListColumn);//при нажатии на колонку

     procedure dcbxDriveChange(Sender: TObject);//выбор диска

     

procedure lvFilesKeyDown(Sender: TObjeИзм.

Лист

№ докум.

Подпись

Дата

Лист

37

ДП 502900.10105 ПЗ

ct; var Key: Word; Shift: TShiftState);//горя-чие клавиши

     procedure lvFilesDblClick(Sender: TObject);//двойной клик по файлу

     procedure btDirUpClick(Sender: TObject);//выход из каталога

     procedure btDirRootClick(Sender: TObject);//вход в каталог

     procedure lvFilesColumnRightClick(Sender: TObject; Column: TListColumn;

           Point: TPoint);//при нажатии на колонку правой клавишей мыши

     procedure lvFilesEditing(Sender: TObject; Item: TListItem;

     var AllowEdit: Boolean);//открытие текстового файла для изменения содержимого

     procedure lvFilesInfoTip(Sender: TObject; Item: TListItem;

     var InfoTip: String);//атрибуты файла

     procedure lvFilesChange(Sender: TObject; Item: TListItem;

           Change: TItemChange);//курсор

     procedure lvFilesEnter(Sender: TObject);//открытие файла

     procedure lvFilesExit(Sender: TObject);//закрытие файла

     procedure lbCurrentPathClick(Sender: TObjec);//получение пути

     procedure bbRefreshClick(Sender: TObject);//обновление содержимого панели

     Procedure Done;//прерывание работы программы

         Procedure MakeOutLabels;//создание атрибутов

         Procedure Activate;//активация панели

         Procedure Deactivate;//деактивация панели

         Procedure CheckActive;//действия при активации панели

         Procedure Refresh;//обновление содержимого панели

         Procedure Sort;//сортировка файлов

         Procedure SetPath(Path:String);//задание пути

         Procedure ShowItem(Item:TFileRecord);//показ списка файлов и каталогов

         Procedure ShowFiles;//показ файлов с их атрибутами 

         Procedure GetItemByList(ListItem:TListItem; Var Item:TFileRecord);//получение списка файлов и каталогов

         Procedure ShowInfo;//поках атрибутов файлов

         Procedure SetColumnsSize(ColumnsSize:TColumnsSize);//размер колонки

     

    Procedure GetColumnsSize(Var ColumnsSizИзм.

Лист

№ докум.

Подпись

Дата

Лист

38

ДП 502900.10105 ПЗ

e:TColumnsSize);// получение колонки «размер»

         Procedure SelectLastItem;//выбор последней строки

         Function TryRename(ListItem:TListItem; NewName:String):Boolean;//переимено-вание

         Procedure TryMoveFile;//перемещение

         Procedure EditFile;//правка

         Procedure CreateFolder;//создание каталога

         Procedure SetDrive(Drive:Char);//выбор диска

         Procedure CheckCurrentPath;//задание пути

     function NameDir:string;//получение имени каталога

     procedure CopyDir(const FromFolder: string; const ToFolder: string);//копирование

     function FullRemoveDir(Dir: string; DeleteAllFilesAndFolders, StopIfNotAllDeleted, RemoveRoot: boolean): Boolean;//удаление

     Модуль 2 - FilesExU.pas//содержит функии работы с файлами

     Procedure GetDiskSize(CurrentDrive:Char; Var TotalBytes, TotalFree:Int64);//получе-ние размера дискового пространства

     Procedure GetRealDiskSize(Drive:Char; Var TotalBytes, TotalFree:Double);//получе-ние свободного дискового пространства

     Function ExecuteOneFile(WorkDir, FileName, Params:String):Integer;//выбор одного файла

     Function GetExecuteError(ErrorCode:Integer):String;//действие при ошибке

     Function CopyOneFile(FromFile, ToFile:String; PrevCheck:Boolean):Integer;//копиро-вание

     Function GetFileError(ErrorCode:Integer):String;//ошибки файла

     Function RenameOneFile(OldName, NewName:String):Integer;//переименование

     Function DeleteOneFile(FileName:String):Integer;//удаление

     Function DeleteOneDir(FileName:String):Integer;//удаление

     Function CreateOneFolder(FolderName:String):Integer;//создание папки

     Модуль 3 - fmErrorDriveU.pas

     procedure bbOkClick(Sender: TObject);//действие по нажатию на кнопку «ОК»

     procedure FormShow(Sender: TObject);//показ формы

     Function ChooseNewDrive(Var Drive:Char):Boolean;//выбор нового диска

     Модуль 4 - fmSearch.pas//поиск

     procedure btn2Click(Sender: TObject);//действие по нажатии на кнопку «Обзор»

     procedure btn1Click(Sender: TObject);//действие по нажатии на кнопку «Поиск»

     procedure Find;//поиск

     function GetPath(mes: string):string;//задание пути

     procedure btn3Click(Sender: TObject);//кнопка «Дополнительно»

     Модуль 5 - fmSearchmp3.pas//поиск mp3-файлов по ID3-параметрам

     procedure btn2Click(Sender: TObject);// действие по нажатии на кнопку «Обзор»

     procedure btn1Click(Sender: TObject);// действие по нажатии на кнопку «Поиск»

     procedure Find;//поиск

     

function GetPath(mes: Изм.

Лист

№ докум.

Подпись

Дата

Лист

39

ДП 502900.10105 ПЗ

string):string;//задание пути

     Модуль 6 - Main.pas//главная форма

     procedure FormClose(Sender: TObject; var Action: TCloseAction);//при закрытии

     procedure FormActivate(Sender: TObject);//активация формы

     procedure FormCreate(Sender: TObject);//при создании формы

     procedure miExitClick(Sender: TObject);//выход

     procedure cmbxCommandKeyDown(Sender: TObject; var Key: Word;

           Shift: TShiftState);//при нажатии на колонку

     procedure cmbxCommandEnter(Sender: TObject);//ввод команды в командную строку

     procedure miAboutClick(Sender: TObject);//«О программе»

     procedure btEditClick(Sender: TObject);// «Правка»

     procedure btCopyClick(Sender: TObject);// «Копирование»

     procedure btMoveClick(Sender: TObject);// «Перемещение»

     procedure btFolderClick(Sender: TObject);// «Создание каталога»

     procedure btDeleteClick(Sender: TObject);// «Удаление»

     procedure frFilePanelLeftbtDirRootClick(Sender: TObject);//выход из каталога

     procedure frFilePanelLeftdcbxDriveChange(Sender: TObject);//выбор диска

     procedure frFilePanelLeftpnFilesInfoClick(Sender: TObject);//атрибуты файла

     procedure frFilePanelLeftbbRefreshClick(Sender: TObject);//обновление

     procedure frFilePanelLeftlvFilesKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);//горячие клавиши