іювання файлів і каталогів;
видалення файлів і каталогів;
переміщення файлів і каталогів;
створення нової директорії.
Створений файловий менеджер був виконаний у системі візуального програмування Borland? C ++ Builder? 6.0, з використанням бібліотеки візуальних компонентів (VCL) і функцій Windows API.
У програмі було створено 3 форми: головна форма програми, форма для створення нового каталогу, форма для видалення каталогу.
У дану програму при необхідності можна внести зміни. А саме поліпшення дизайну головної форми і додавання нових функцій і можливостей.
Література
1. lt; # justify gt; Додаток А
програма змінна каталог
Блок-схема взаємодії компонентів програми
Додаток Б
Вихідні тексти модулів розробленого програми
. cpp
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
# include Unit2.h
# include Unit3.h
# include Unit4.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form1;
//---------------------------------------------------------------------------
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm1 :: FormCreate (TObject * Sender)
{(); ();= C: " ;= C: ";=1;=HandlerOfOpen (RootDirLeft, LEFT, DirSel);=HandlerOfOpen (RootDirRight, RIGHT , DirSel);
} __ fastcall TForm1 :: FileListLeftDblClick (TObject * Sender)
{DirSel=0;=HandlerOfOpen (RootDirLeft, LEFT, DirSel);
} __ fastcall TForm1 :: FileListRightDblClick (TObject * Sender)
{DirSel=0;=HandlerOfOpen (RootDirRight, RIGHT, DirSel);
} __ fastcall TForm1 :: ListDevicesLeftSelect (TObject * Sender)
{RootDirLeft=Form1-gt;ListDevicesLeft-gt;Text.Delete(3,(Form1-gt;ListDevicesLeft-gt;Text.Length()- 2));=1;=HandlerOfOpen (RootDirLeft, LEFT, DirSel); - gt; FileListLeft- gt; SetFocus ();
} __ fastcall TForm1 :: ListDevicesRightSelect (TObject * Sender)
{=Form1-gt;ListDevicesRight-gt;Text.Delete(3,(Form1-gt;ListDevicesRight-gt;Text.Length()- 2));=1;=HandlerOfOpen (RootDirRight, RIGHT, DirSel); - gt; FileListRight- gt; SetFocus ();
} __ fastcall TForm1 :: FileListLeftEnter (TObject * Sender)
{=LEFT;-gt;LabelCurrentPathLeft-gt;Color=0x00E9E9E9;-gt;ListDevicesLeft-gt;Color=0x00E9E9E9;-gt;FileListLeft-gt;Color=clGradientInactiveCaption;-gt;LabelCurrentPathRight-gt;Color=0x00C4C4C4;-gt;ListDevicesRight-gt;Color=0x00C4C4C4;-gt;FileListRight-gt;Color=0x00C4C4C4;
} __ fastcall TForm1 :: FileListRightEnter (TObject * Sender)
{=RIGHT;-gt;LabelCurrentPathRight-gt;Color=0x00E9E9E9;-gt;ListDevicesRight-gt;Color=0x00E9E9E9;-gt;FileListRight-gt;Color=clGradientInactiveCaption;-gt;LabelCurrentPathLeft-gt;Color=0x00C4C4C4;-gt;ListDevicesLeft-gt;Color=0x00C4C4C4;-gt;FileListLeft-gt;Color=0x00C4C4C4;
} __ fastcall TForm1 :: ListDevicesLeftEnter (TObject * Sender)
{-gt;LabelCurrentPathLeft-gt;Color=0x00E9E9E9;-gt;ListDevicesLeft-gt;Color=0x00E9E9E9;-gt;FileListLeft-gt;Color=clGradientInactiveCaption;-gt;LabelCurrentPathRight-gt;Color=0x00C4C4C4;-gt;ListDevicesRight-gt;Color=0x00C4C4C4;-gt;FileListRight-gt;Color=0x00C4C4C4;
} __ fastcall TForm1 :: ListDevicesRightEnter (TObject * Sender)
{-gt;LabelCurrentPathRight-gt;Color=0x00E9E9E9;-gt;ListDevicesRight-gt;Color=0x00E9E9E9;-gt;FileListRight-gt;Color=clGradientInactiveCaption;-gt;LabelCurrentPathLeft-gt;Color=0x00C4C4C4;-gt;ListDevicesLeft-gt;Color=0x00C4C4C4;-gt;FileListLeft-gt;Color=0x00C4C4C4;
} __ fastcall TForm1 :: bCreateDirClick (TObject * Sender)
{ gt; Show ();
} __ fastcall TForm1 :: bDeleteClick (TObject * Sender)
