ознака зміни кореневої директорії (int DirSel). Повертає поточний шлях активної директорії.
Використовується функція Windows API ShellExecute.
2.3.6 CreateFolder.
Створює директорію в активній панелі.
Функції передається вказівку на те, яка зараз панель активна (int Panel). Повертає значення типу bool, в Залежно від результатів виконання операції. Функція створює каталог у дорозі панелі, що є активною. В якості поточного шляху в кожній панелі використовуються значення відповідних глобальних змінних.
Використовуються функції Windows API: CreateDirectory і MessageBox. p> 2.3.7 Deleting.
Видаляє або поміщає в кошик об'єкт (файл або папку, з усіма її вкладеними папками), що знаходиться у фокусі в активній панелі.
У функцію передається ознака активної панелі (int Panel) і операція (int Operation), яку треба здійснити, тобто видалити або помістити в корзину. Не повертається значення. p> Використовується функція Windows API SHFileOperation.
2.3.8 CopyOrRemove.
Переміщає або копіює об'єкт (файл або папку, зі усіма її вкладеними папками), що знаходиться у фокусі в активній панелі в папку неактивній панелі.
У функцію передається ознака активної панелі (int Panel) і операція (int Operation), яку треба здійснити, тобто копіювати або перемістити. Не повертається значення. p> Використовується функція Windows API SHFileOperation.
Список використаних джерел
1 А
( обов'язкове)
Блок-схема взаємодії компонентів програми
В
ДОДАТОК А
(продовження)
ДОДАТОК А
(продовження)
В
В додаток б
(обов'язковий)
Вихідні тексти програми.
Unit1.c
// --------------------------------------------- ------------------------------
# include
# pragma hdrstop
# include "Unit1.h"
# include "Unit2.h"
# include "Unit3.h"
# include "Unit4.h"
// --------------------------------------------- ------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm"
TForm1 * Form1;
// --------------------------------------------- ------------------------------
__fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
// --------------------------------------------- ------------------------------
void __ fastcall TForm1 :: FormCreate (TObject * Sender)
{
CreateListOfDevices ();
CreateDirAttribSet ();
RootDirLeft = "C: ";
RootDirRight = "C: ";
DirSel = 1;
CurrentPathLeft = HandlerOfOpen (RootDirLeft, LEFT, DirSel);
CurrentPathRight = HandlerOfOpen (RootDirRight, RIGH...