Разработка файловой оболочки
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: сочинения 4, 6 класс контрольные работы
| Добавил(а) на сайт: Яровый.
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата
end;
procedure TMainForm.NewDirClick(Sender: TObject);
// Создание директории и вывод соответствующей формы
begin
CreateDirForm.Show;
end;
Function CountDir(Str:String):String;
// Определение количества поддиректорий в текущей директории
Var F:TSearchRec;
C:integer;
begin
c:=0;
findfirst(Str+'*.*',faAnyFile,F);
findnext(F);
repeat
if (f.Attr>=16) and (f.attr0) then
begin
AskDeleteForm.ShowModal;
end;
if MainForm.Directory.Focused then
begin
IndexDeleteDirectory:=MainForm.Directory.SelectedItem;
MainForm.CMDirList.Clear;
MainForm.CMFileList.Clear;
DeleteEmptyDirectory(MainForm.Directory.Directory);
MainForm.Directory.Invalidate;
end;
end;
procedure TMainForm.SCopyClick(Sender: TObject);
//На панели нажата кнопка КОПИРОВАТЬ
begin
If MainForm.Directory.Focused then
begin
SourseDir:=MainForm.Directory.Directory;
DoingWithDir:=True;
CopyMoveDirectory;
end;
If MainForm.FileList.Focused then
begin
FlagCopyFile:=True;
FlagMoveFile:=False;
CopyPathFileInTemp;
end;
end;
procedure TMainForm.FileListClick(Sender: TObject);
begin
Рекомендуем скачать другие рефераты по теме: титульный реферата, курсовая работа на тему.
Категории:
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата
Главная