p>
// --------------------------------------------- ------------------------------
void __ fastcall TForm1 :: bCurrentRootDirLeftClick (TObject * Sender)
{
DirSel = 2;
CurrentPathLeft = HandlerOfOpen (RootDirLeft, LEFT, DirSel);
Form1-> FileListLeft-> SetFocus ();
}
// --------------------------------------------- ------------------------------
void __ fastcall TForm1 :: bCurrentRootDirRightClick (TObject * Sender)
{
DirSel = 2;
CurrentPathRight = HandlerOfOpen (RootDirRight, RIGHT, DirSel);
Form1-> FileListRight-> SetFocus ();
}
// --------------------------------------------- ------------------------------
Unit2.h
// --------------------------------------------- ------------------------------
# ifndef Unit2H
# define Unit2H
// --------------------------------------------- ------------------------------
# endif
# define LEFT 1
# define RIGHT 0
# define FO_DELETER 5
extern int DirSel;
extern AnsiString RootDirLeft, RootDirRight;
extern AnsiString CurrentPathLeft, CurrentPathRight;
extern int Panel;
void CreateDirAttribSet ();
AnsiString HandlerOfOpen (AnsiString RootDir, int Panel, int DirSel);
void CreateListOfDevices ();
bool CreateFolder (int Panel);
void Deleting (int Panel, int Operation);
void CopyOrRemove (int Panel, int Operation);
Unit2.c
// --------------------------------------------- ------------------------------
# pragma hdrsto p
# include "Unit1.h"
# include "Unit3.h"
# include
# include <_str.h>
# include
# include
# include
# include
# include
# include
// --------------------------------------------- ------------------------------
# pragma package (smart_init)
// --------------------------------------------- ------------------------------
int DirSel = 0 ;//Ознака здійснення вибору в ListDevices
AnsiString RootDirLeft, RootDirRight ;//Поточна коренева директорія
AnsiString CurrentPathLeft, CurrentPathRight ;//Поточний шлях
int Panel = LEFT;
struct _FileProperty// Структура виведення
{
char FileAttrib [12];// атрибути файлу
char CreateTime [25];// час створення файлу
char AccessTime [25];// час доступу
char WriteTime [25];// час запису
char FileSizeBy [21];// розмір файлу в Б
char FileSizeKb [18];// розмір файлу в КБ
TCHAR FileName [MAX_PATH];// ім'я файлу
TCHAR AlterFileName [14];/​​/ альтернативне ім'я файлу
} FileProperty;
<...