gn="justify"> В.А. Скляров. Мова C + + та об'єктно-орієнтоване програмування: Довідкове видання.- Мінськ: Вишейшая школа, 1997. 480с.
Х. Дейтел, П. Дейтел. Як програмувати на C + +: Пер. з англ.- Москва: ЗАТ «Видавництво БІНОМ», 1998. 1024с.
ДОДАТОК A
Лістінг програми
# include
# pragma hdrstop
# include «Unit1.h»
# pragma package (smart_init)
# pragma resource «*. dfm» * Form1;
__fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
} MoveFiles (AnsiString slSourceDir, AnsiString slTargetDir, bool toCopy=true)
{sh;. fFlags=FOF_NOCONFIRMATION | FOF_SILENT | FOF_FILESONLY;. wFunc=toCopy? FO_COPY: FO_MOVE;. PFrom=slSourceDir.c_str ();. PTo=slTargetDir.c_str ();. HNameMappings=NULL;. LpszProgressTitle=NULL; SHFileOperation (& sh);
} __fastcall TForm1 :: Button1Click (TObject * Sender)
{(OpenDialog1-> FileName, SaveDialog1-> FileName, true);
} __fastcall TForm1 :: Button2Click (TObject * Sender)
{(OpenDialog1-> Execute ()) -> Text=OpenDialog1-> FileName;
} __fastcall TForm1 :: Button3Click (TObject * Sender)
{(SaveDialog1-> Execute ()) -> Text=SaveDialog1-> FileName;
}
