В результате выполнения данной курсовой работы мной был разработан Файловый менеджер. Было проведено исследование компонентов программной среды Borland Delphi 7.0, которые использовались при создании программы, использовалось множество процедур и функций.

При создании программы использовались следующие компоненты: TMainMenu, TButton,TImage, ComboBox, ListBox, TPanel,

ListView.

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

Код программы

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;

mmMenu: TMainMenu;

miFile: TMenuItem;

miHelp: TMenuItem;

miExit: TMenuItem;

pnBottom: TPanel;

cmbxCommand: TComboBox;

lbPath: TLabel;

lbItem: TLabel;

miAbout: TMenuItem;

btEdit: TButton;

btCopy: TButton;

btMove: TButton;

btFolder: TButton;

btDelete: TButton;

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

procedure FormActivate (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure miExitClick (Sender: TObject);

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

Shift: TShiftState);

procedure cmbxCommandEnter (Sender: TObject);

procedure miAboutClick (Sender: TObject);

procedure btEditClick (Sender: TObject);

procedure btCopyClick (Sender: TObject);

procedure btMoveClick (Sender: TObject);

procedure btFolderClick (Sender: TObject);

procedure btDeleteClick (Sender: TObject);

procedure frFilePanelRightbbRefreshClick (Sender: TObject);

procedure frFilePanelRightbtDirRootClick (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmDarkickCommander: TfmDarkickCommander;

implementation

uses FilesExU, About;

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. miExitClick (Sender: TObject);

begin

Close;

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

ExecuteOneFile (lbPath. Caption, cmbxCommand. Text, '');

Exit;

End;

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

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

ExecuteOneFile (lbPath. Caption, Command, Params);

end;

procedure TfmDarkickCommander. cmbxCommandEnter (Sender: TObject);

begin

cmbxCommand. SelectAll;

end;

procedure TfmDarkickCommander. miAboutClick (Sender: TObject);

begin

fmAbout. ShowModal;

end;

procedure TfmDarkickCommander. btEditClick (Sender: TObject);

begin

If frFilePanelLeft. NowActive Then

frFilePanelLeft. EditFile

Else

frFilePanelRight. EditFile;

end;

procedure TfmDarkickCommander. btCopyClick (Sender: TObject);

begin

If frFilePanelLeft. NowActive Then

frFilePanelLeft. TryCopyFile

Else

frFilePanelRight. TryCopyFile;

end;

procedure TfmDarkickCommander. btMoveClick (Sender: TObject);

begin

If frFilePanelLeft. NowActive Then

frFilePanelLeft. TryMoveFile

Else

frFilePanelRight. TryMoveFile;

end;

procedure TfmDarkickCommander. btFolderClick (Sender: TObject);

begin

If frFilePanelLeft. NowActive Then

frFilePanelLeft. CreateFolder

Else

frFilePanelRight. CreateFolder;

end;

procedure TfmDarkickCommander. btDeleteClick (Sender: TObject);

begin

If frFilePanelLeft. NowActive Then

frFilePanelLeft. TryDelete

Else

frFilePanelRight. TryDelete;

end;

procedure TfmDarkickCommander. frFilePanelRightbbRefreshClick (

Sender: TObject);

begin

frFilePanelRight. bbRefreshClick (Sender);

end;

procedure TfmDarkickCommander. frFilePanelRightbtDirRootClick (

Sender: TObject);

begin

frFilePanelRight. btDirRootClick (Sender);

end;

end.

unit About;

interface

uses

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

StdCtrls, Buttons, ExtCtrls, ShellApi;

type

TfmAbout = class (TForm)

bbOk: TBitBtn;

lbTitle: TLabel;

lbVersionInfo: TLabel;

memAbout: TMemo;

procedure bbOkClick (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmAbout: TfmAbout;

implementation

{$R *. DFM}

procedure TfmAbout. bbOkClick (Sender: TObject);

begin

Close;

end;

end.

Приложение Б