Заключение

В ходе выполнения курсовой работы была разработана программа управления файлами компьютера, способная производить копирование файлов и каталогов. Основным достоинством программы является простота в работе и небольшое потребление ресурсов компьютера, недостатков в своем проекте выделить не могу.

Список использованной литературы

1. Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. – М.: Нолидж 1999

2. Баженова И.Ю. Delphi 7. Самоучитель программиста. – М.: Кудиц-образ, 2003.

3. Фаронов В.В. Delphi 6: учебный курс. – С-Пб.: Питер, 2002

4. Бобровский С. Delphi 5: учебный курс. – С-Пб.: Питер, 2001

5. Гофман В. Э., Хомоненко А.Д. Delphi 6. – С-Пб: БХВ – Петербург, 2002

Приложение

unit Main;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

FileCtrl, StdCtrls, ComCtrls, frFilePanelU, ImgList, ExtCtrls, Menus;

type

TfmDarkickCommander = class(TForm)

frFilePanelLeft: TfrFilePanel;

pnTop: TPanel;

FileListBox1: TFileListBox;

ImageList1: TImageList;

splPanelsSplitter: TSplitter;

frFilePanelRight: TfrFilePanel;

pnBottom: TPanel;

cmbxCommand: TComboBox;

lbPath: TLabel;

lbItem: TLabel;

btCopy: TButton;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormActivate(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure cmbxCommandKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure cmbxCommandEnter(Sender: TObject);

procedure btCopyClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmDarkickCommander: TfmDarkickCommander;

implementation

Var

FirstRun:Boolean;

{$R *.DFM}

procedure TfmDarkickCommander.FormClose(Sender: TObject; var Action: TCloseAction);

begin

frFilePanelLeft.Done;

frFilePanelRight.Done;

end;

procedure TfmDarkickCommander.FormActivate(Sender: TObject);

begin

If FirstRun Then

Begin

frFilePanelRight.Init(FileListBox1, ImageList1, frFilePanelLeft.Deactivate, lbPath, lbItem);

frFilePanelLeft.Init(FileListBox1, ImageList1, frFilePanelRight.Deactivate, lbPath, lbItem);

FirstRun:=False;

End;

end;

procedure TfmDarkickCommander.FormCreate(Sender: TObject);

begin

FirstRun:=True;

end;

procedure TfmDarkickCommander.cmbxCommandKeyDown(Sender: TObject;

var Key: Word; Shift: TShiftState);

Var

P:Integer;

Command, Params:String;

begin

If Key<>VK_Return Then Exit;

cmbxCommand.Text:=Trim(cmbxCommand.Text);

If ssCtrl In Shift Then

Begin

cmbxCommand.Text:=' '+cmbxCommand.Text+lbItem.Caption+' ';

Exit;

End;

If cmbxCommand.Items.IndexOf(cmbxCommand.Text)<0 Then

cmbxCommand.Items.Add(cmbxCommand.Text);

P:=Pos(' ', cmbxCommand.Text);

If P<=0 Then

Begin

Exit;

End;

Command:=Copy(cmbxCommand.Text, 1, P-1);

Params:=Copy(cmbxCommand.Text, P+1, Length(cmbxCommand.Text)-P);

end;

procedure TfmDarkickCommander.cmbxCommandEnter(Sender: TObject);

begin

cmbxCommand.SelectAll;

end;

procedure TfmDarkickCommander.btCopyClick(Sender: TObject);

begin

If frFilePanelLeft.NowActive Then

frFilePanelLeft.TryCopyFile

Else

frFilePanelRight.TryCopyFile;

end;

end.

1 Баженова И. Ю. Delphi 7. Самоучитель программиста. – М.: Кудиц-образ, 2003г. 99стр.