Реферат Файловий менеджер

rcpy (PathCharTo, Path.c_str ());// Преобрзованіе AnsiString в char

ViewDirectory (PathCharTo, Panel);

Path = CurrentPathRight + Mask;

strcpy (PathCharTo, Path.c_str ());// Преобрзованіе AnsiString в char

ViewDirectory (PathCharTo, RIGHT);

}

else

{

Row = Form1-> FileListRight-> Row;

Name = Form1-> FileListRight-> Cells [ColName] [Row];

Path = CurrentPathRight + Name;

strcpy (PathCharFrom, Path.c_str ());// Преобрзованіе AnsiString в char

StructOperation.pFrom = PathCharFrom;

strcpy (PathCharTo, CurrentPathLeft.c_str ());// Преобрзованіе AnsiString в char

StructOperation.pTo = PathCharTo;

SHFileOperation (& StructOperation);

Path = CurrentPathRight + Mask;

strcpy (PathCharTo, Path.c_str ());// Преобрзованіе AnsiString в char

ViewDirectory (PathCharTo, Panel);

Path = CurrentPathLeft + Mask;

strcpy (PathCharTo, Path.c_str ());// Преобрзованіе AnsiString в char

ViewDirectory (PathCharTo, LEFT);

}

}

}

// --------------------------------------------- ---------------------------------

Unit3.c

// --------------------------------------------- ------------------------------

# include

# pragma hdrstop

# include "Unit2.h"

# include "Unit3.h"

// --------------------------------------------- ------------------------------

# pragma package (smart_init)

# pragma resource "*. dfm"

TFormDialogCreateDir * FormDialogCreateDir;

// --------------------------------------------- ------------------------------

__fastcall TFormDialogCreateDir :: TFormDialogCreateDir (TComponent * Owner)

: TForm (Owner)

{

}

// --------------------------------------------- ------------------------------

void __ fastcall TFormDialogCreateDir :: bCancelClick (TObject * Sender)

{

FormDialogCreateDir-> edNewDirName-> Text = "";

FormDialogCreateDir-> edNewDirName-> SetFocus ();

FormDialogCreateDir-> Hide ();

}

// --------------------------------------------- ------------------------------

void __ fastcall TFormDialogCreateDir :: bOkClick (TObject * Sender)

{

bool Result = CreateFolder (Panel);

FormDialogCreateDir-> edNewDirName-> SetFocus ();

if (Result == true)

{

FormDialogCreateDir-> edNewDirName-> Text = "";

FormDialogCreateDir-> Hide ();

}

}

// --------------------------------------------- ------------------------------

void __ fastcall TFormDialogCreateDir :: edNewDirNameKeyDown (TObject * Sender,

WORD & Key, TShiftState Shift)

{

bool Result;

switch (Key)

{

case 13: Result = CreateFolder (Panel); <...