Розроблення файлового менеджера File Commander 1 засобами Delphi 7.0

Розроблення програми управління файловою системою комп’ютера, здатної виконувати стандартні функції над файлами і каталогами, її переваги. Проектування програмних додатків в середовищі Borland Delphi 7. Тестування та налагодження програмних застосувань.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык украинский
Дата добавления 30.09.2013
Размер файла 3,7 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

6. Пестрнков В.М., Маслобоев А.Н.: Delphi на примерах.,2005

7. Інформатика та комп'ютерна техніка в лабораторних роботах. - К.: Центр навчальної літератури, 2004.- 320с.

8. Інформатика та комп'ютерна техніка в лабораторних роботах. - К.: Центр навчальної літератури, 2005.- 344с.

9. Фленов М.Е. Библия Delphi. - СПб.: БХВ-Петербург, 2004. - 880 с.

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

ДОДАТОК А

Рис. 2.5 Структура програми

Рис. 2.6 Процедура ListView2DblClick

Рис. 2.7 Процедура DriveComboBox2Change

Рис. 2.8 Процедура dbclicksecondtime 2

Рис. 2.9 Процедура dbclickfirstime 2

Рис. 2.10 Процедура AddNewFile 2

програма управління файл каталог

Рис. 2.13 Процедура FormCreate

Рис. 2.14 Процедура AddNewFile

Рис. 2.15 Процедура NewList

Рис. 2.16 Процедура dbclickfirstime

Рис. 2.17 Процедура dbclicksecondtime

Рис. 2.18 Процедура DriveComboBox1Change

Рис. 2.19 Процедура ListView1DblClick

Рис. 2.20 Процедура ListView1Compare

Рис. 2.21 Процедура N4Click

Рис. 2.22 Процедура Button5Click

Рис. 2.23 Процедура Button1Click

Рис. 2.25 Процедура Myremovedir

Рис. 2.26 Процедура mydelete

Рис. 2.27 Процедура Button3Click

Рис. 2.28 Процедура N7Click

Рис. 2.29 Процедура ListView1Click

Рис. 2.30 Процедура ListView2Click

Рис. 2.31 Процедура aftercopy1

Рис. 2.32 Процедура Aftercopy2

Рис. 2.33 Процедура dbclickthirdtime2;

Рис. 2.34 Процедура dbclickthirdtime

Рис. 2.35 Процедура Button2Click

Рис. 2.36 Процедура N6Click

Рис. 2.37 Процедура NewDirectory

Рис. 2.38 Процедура N8Click

Рис. 2.39 Процедура N10Click

Рис.2.40 Процедура Changeplace

Рис. 2.43 Процедура ListView1StartDrag

Рис. 2.44 Процедура ListView2DragDrop

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Рис. 2.50 Процедура ListView2EndDrag

ДОДАТОК В

Вихідний код програми

procedure TForm1.FormCreate(Sender: TObject);

var

NewColumn: TListColumn;

i:integer;

begin

lv1:=false;

lv2:=false;

way2:=drivecombobox2.drive+'://*.*';

label2.Caption:=way2;

way:=drivecombobox1.drive+'://*.*';

label1.Caption:=way;

with ListView1 do

begin

Viewstyle:=vsReport;

newcolumn:=columns.Add;

newcolumn.Caption:='Імя';

newcolumn:=columns.Add;

newcolumn.Caption:='Розмір, байт';

newcolumn:=columns.Add;

newcolumn.Caption:='Дата створення';

newcolumn:=columns.Add;

newcolumn.Caption:='Атрибути';

newcolumn:=columns.Add;

newcolumn.Caption:='Системний';

for i:=0 to 4 do

columns[i].Width:=100

end;

with ListView2 do

begin

Viewstyle:=vsReport;

newcolumn:=columns.Add;

newcolumn.Caption:='Імя';

newcolumn:=columns.Add;

newcolumn.Caption:='Розмір, байт';

newcolumn:=columns.Add;

newcolumn.Caption:='Дата створення';

newcolumn:=columns.Add;

newcolumn.Caption:='Атрибути';

newcolumn:=columns.Add;

newcolumn.Caption:='Тип';

for i:=0 to 4 do

columns[i].Width:=100

end;

end;

procedure TForm1.ListView1Compare(sender:TObject;Item1,Item2:TListItem;

Data:integer;var Compare:integer);

begin

if Item1.ImageIndex=Item2.ImageIndex then compare:=0 else

if item1.imageindex<item2.imageindex then compare:=-1

else compare:=1

end;

procedure TForm1.NewList;

var

f: TSearchRec;

number:string;

begin

ListView1.Clear;

if FindFirst(way,faAnyFile,f)<>0 then exit else

addnewfile(f);

while findnext(f)=0 do

addnewfile(f);

findclose(f);

ListView1.AlphaSort;

if length(way)=7 then

begin

str(listview1.Items.Count,number);

statusbar1.SimpleText:=' Елементів '+number

end

else begin

str(listview1.Items.Count-2,number);

statusbar1.SimpleText:=' Елементів '+number

end;

end;

procedure TForm1.AddNewFile(f:TSearchRec);

begin

with ListView1.Items.Add, f do

begin

caption:=name;

if (Attr and faDirectory)<>0

then

begin

ImageIndex:=0;

SubItems.Add('DIR');

subItems.Add(DatetimetoStr((filedatetodatetime(time))));

end

else

begin

ImageIndex:=1;

SubItems.Add(inttostr(size));

subItems.Add(DatetimetoStr((filedatetodatetime(time))));

end;

if (Attr and faHidden)<>0

then SubItems.Add('прихований')

else SubItems.Add('користувацький');

if (Attr and faSysFile)<>0

then SubItems.Add('прихований')

else SubItems.Add('користувацький');

end;

end;

procedure TForm1.dbclickfirstime;

var

i,listsize:integer;

way1:string;

begin

way1:=way;

delete(way1,length(way1)-2,3);

way:=way1+listview1.items.item[listview1.itemindex].caption+'/*.*';

newlist;

with ListView1.Items.insert(0) do begin

caption:='[..]';

imageindex:=2;

end;

listsize:=listview1.Items.Count-1;

i:=0;

while i<=listsize do

begin

with listview1.Items.Item[i] do begin

if (Caption='.') or (Caption='..')

then

begin

Delete;

listsize:=listsize-1;

i:=i-1;

end;

end;

i:=i+1;

end;

label1.Caption:=way

end;

procedure TForm1.dbclicksecondtime;

var

i,linesize,listsize:integer;

way1:string;

begin

way1:=way;

delete(way1,length(way1)-3,4);

linesize:=length(way1);

i:=0;

while linesize>i do

begin

if way1[linesize]<>'/' then

delete(way1,linesize,1) else break;

linesize:=linesize-1;

end;

way:=way1+'*.*';

if length(way)=7 then

begin

newlist;

label1.caption:=way;

end

else

begin

newlist;

with ListView1.Items.insert(0) do begin

caption:='[..]';

imageindex:=2;

end;

listsize:=listview1.Items.Count-1;

i:=0;

while i<=listsize do

begin

with listview1.Items.Item[i] do begin

if (Caption='.') or (Caption='..')

then

begin

Delete;

listsize:=listsize-1;

i:=i-1;

end;

end;

i:=i+1;

end;

label1.Caption:=way;

end;

end;

procedure TForm1.dbclickthirdtime;

var

way1,fname:string;

startinfo:tstartupinfo;

procinfo:tprocessinformation;

begin

fillchar(startinfo,sizeof(startinfo),#0);

startinfo.cb:=sizeof(startinfo);

way1:=way;

delete(way1,length(way1)-2,3);

fname:=way1+listview1.items.item[listview1.itemindex].caption;

shellexecute(application.MainForm.Handle,nil,pchar(fname),'',pchar(way1),sw_show);

end;

procedure TForm1.DriveComboBox1Change(Sender: TObject);

begin

way:=drivecombobox1.Drive+'://*.*';

NewList;

label1.Caption:=way;

end;

procedure TForm1.ListView1DblClick(Sender: TObject);

begin

try

case listview1.Items.item[listview1.Itemindex].ImageIndex of

0: dbclickfirstime;

1: dbclickthirdtime;

2: dbclicksecondtime

else exit

end;

except

exit;

end;

end;

procedure TForm1.NewList2;

var

f: TSearchRec;

number:string;

begin

ListView2.Clear;

if FindFirst(way2,faAnyFile,f)<>0 then exit else

addnewfile2(f);

while findnext(f)=0 do

addnewfile2(f);

findclose(f);

ListView2.AlphaSort;

if length(way2)=7 then

begin

str(listview2.Items.Count,number);

statusbar2.SimpleText:=' Елементів '+number

end

else begin

str(listview2.Items.Count-2,number);

statusbar2.SimpleText:=' Елементів '+number

end;

end;

procedure TForm1.AddNewFile2(f:TSearchRec);

begin

with ListView2.Items.Add, f do

begin

caption:=name;

if (Attr and faDirectory)<>0

then

begin

ImageIndex:=0;

SubItems.Add('DIR');

subItems.Add(DatetimetoStr((filedatetodatetime(time))));

end

else

begin

ImageIndex:=1;

SubItems.Add(inttostr(size));

subItems.Add(DatetimetoStr((filedatetodatetime(time))));

end;

if (Attr and faHidden)<>0

then SubItems.Add('прихований')

else SubItems.Add('користувацький');

if (Attr and faSysFile)<>0

then SubItems.Add('прихований')

else SubItems.Add('користувацький');

end;

end;

procedure TForm1.dbclickfirstime2;

var

i,listsize:integer;

way1:string;

begin

way1:=way2;

delete(way1,length(way1)-2,3);

way2:=way1+listview2.items.item[listview2.itemindex].caption+'/*.*';

newlist2;

with ListView2.Items.insert(0) do begin

caption:='[..]';

imageindex:=2;

end;

listsize:=listview2.Items.Count-1;

i:=0;

while i<=listsize do

begin

with listview2.Items.Item[i] do begin

if (Caption='.') or (Caption='..')

then

begin

Delete;

listsize:=listsize-1;

i:=i-1;

end;

end;

i:=i+1;

end;

label2.Caption:=way2

end;

procedure TForm1.dbclicksecondtime2;

var

i,linesize,listsize:integer;

way1:string;

begin

way1:=way2;

delete(way1,length(way1)-3,4);

linesize:=length(way1);

while linesize>0 do

begin

if way1[linesize]<>'/' then

delete(way1,linesize,1) else break;

linesize:=linesize-1;

end;

way2:=way1+'*.*';

if length(way2)=7 then

begin

newlist2;

label2.caption:=way2;

end

else

begin

newlist2;

with ListView2.Items.insert(0) do begin

caption:='[..]';

imageindex:=2;

end;

listsize:=listview2.Items.Count-1;

i:=0;

while i<=listsize do

begin

with listview2.Items.Item[i] do begin

if (Caption='.') or (Caption='..')

then

begin

Delete;

listsize:=listsize-1;

i:=i-1;

end;

end;

i:=i+1;

end;

label2.Caption:=way2;

end;

end;

procedure TForm1.dbclickthirdtime2;

var

way1,fname:string;

startinfo:tstartupinfo;

procinfo:tprocessinformation;

begin

fillchar(startinfo,sizeof(startinfo),#0);

startinfo.cb:=sizeof(startinfo);

way1:=way2;

delete(way1,length(way1)-2,3);

fname:=way1+listview2.items.item[listview2.itemindex].caption;

shellexecute(application.MainForm.Handle,nil,pchar(fname),'',pchar(way1),sw_show);

end;

procedure TForm1.DriveComboBox2Change(Sender: TObject);

begin

way2:=drivecombobox2.Drive+'://*.*';

NewList2;

label2.Caption:=way2;

end;

procedure TForm1.ListView2DblClick(Sender: TObject);

begin

try

case listview2.Items.item[listview2.itemindex].ImageIndex of

0: dbclickfirstime2;

1: dbclickthirdtime2;

2: dbclicksecondtime2

else exit

end;

except

exit;

end;

end;

procedure TForm1.Copy;

var

way1,way3:string;

begin

way1:=way;

way3:=way2;

delete(way1,length(way1)-2,3);

delete(way3,length(way3)-2,3);

try

if (lv1=true) and (lv2=false) then

begin

if fileexists(way3+listview1.Items.item[listview1.itemindex].Caption) then

begin

if MessageBox(0,'Копіювати файл?','Підтвердіть',

MB_YESNO+MB_ICONINFORMATION)=idyes then

begin

if CopyFile(Pchar(way1+listview1.Items.item[listview1.itemindex].Caption),

Pchar(way3+listview1.Items.item[listview1.itemindex].Caption),false) then

begin

ShowMessage('Файл успішно скопійований!');

if length(way2)=7 then newlist2 else aftercopy1;

end

else ShowMessage('Не вдалося скопіювати файл!');

end;

end

else

begin

if MessageBox(0,'Копіювати файл?','Підтвердіть',

MB_YESNO+MB_ICONINFORMATION)=idyes then

begin

if CopyFile(Pchar(way1+listview1.Items.item[listview1.itemindex].Caption),

Pchar(way3+listview1.Items.item[listview1.itemindex].Caption),true) then

begin

ShowMessage('Файл успішно скопійований!');

if length(way2)=7 then newlist2 else aftercopy1;

end

else ShowMessage('Не вдалося скопіювати файл!');

end;

end;

end;

if (lv1=false)and (lv2=true) then

begin

if fileexists(way1+listview2.Items.item[listview2.itemindex].Caption)=true then

begin

if MessageBox(0,'Копіювати файл?','Підтвердіть',

MB_YESNO+MB_ICONINFORMATION)=idyes then

begin

if CopyFile(Pchar(way3+listview2.Items.item[listview2.itemindex].Caption),

Pchar(way1+listview2.Items.item[listview2.itemindex].Caption),false) then

begin

ShowMessage('Файл успішно скопійовано!');

if length(way)=7 then newlist else aftercopy2

end

else ShowMessage('Не вдалося скопіювати файл!');

end

end

else

begin

if MessageBox(0,'Копіювати файл?','Підтвердіть',

MB_YESNO+MB_ICONINFORMATION)=idyes then

begin

if CopyFile(Pchar(way3+listview2.Items.item[listview2.itemindex].Caption),

Pchar(way1+listview2.Items.item[listview2.itemindex].Caption),true) then

begin

ShowMessage('Файл успішно скопійований!');

if length(way)=7 then newlist else aftercopy2

end

else ShowMessage('Не вдалося скопіювати файл!');

end;

end;

end

except exit

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form1.Close

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

form1.Close

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

copy;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

copy;

end;

procedure TForm1.mydelete;

var

way1,way3:string;

begin

way1:=way;

way3:=way2;

delete(way1,length(way1)-2,3);

delete(way3,length(way3)-2,3);

try

if (lv1=true) and (lv2=false) then

begin

if listview1.items.item[listview1.itemindex].imageindex=0 then

begin

if MessageBox(0,'Видалити директорію?','Підтвердіть',

MB_YESNO+MB_ICONQUESTION)=idyes then

begin

if myremovedir(way1+listview1.items.item[listview1.itemindex].caption) then

begin

ShowMessage('Каталог успішно видалений!');

if (length(way2)=7) and (length(way)=7) then begin

newlist;

newlist2;

end;

if (length(way2)=7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy2

end;

if (length(way2)>7) and (length(way)=7) then begin

newlist;

newlist2;

aftercopy1;

end;

if (length(way2)>7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy1;

aftercopy2;

end

end

else ShowMessage('Не вдалося видалити!');

end;

end;

if listview1.items.item[listview1.itemindex].imageindex=1 then

begin

if MessageBox(0,'Видалиити файл?','Підтвердіть',

MB_YESNO+MB_ICONQUESTION)=idyes then

begin if deletefile(way1+listview1.items.item[listview1.itemindex].caption) then

begin

ShowMessage('Файл успішно видалений!');

if (length(way2)=7) and (length(way)=7) then begin

newlist;

newlist2;

end;

if (length(way2)=7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy2

end;

if (length(way2)>7) and (length(way)=7) then begin

newlist;

newlist2;

aftercopy1;

end;

if (length(way2)>7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy1;

aftercopy2;

end

end

else ShowMessage('Не вдалося видалити!')

end

end;

end;

if (lv1=false)and (lv2=true) then

begin

if listview2.items.item[listview2.itemindex].imageindex=0 then

begin

if MessageBox(0,'Видалити директорію?','Підтвердіть',

MB_YESNO+MB_ICONQUESTION)=idyes then

begin

if myremovedir(way3+listview2.items.item[listview2.itemindex].caption) then

begin

ShowMessage('Каталог успішно видалений!');

if (length(way2)=7) and (length(way)=7) then begin

newlist;

newlist2;

end;

if (length(way2)=7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy2

end;

if (length(way2)>7) and (length(way)=7) then begin

newlist;

newlist2;

aftercopy1;

end;

if (length(way2)>7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy1;

aftercopy2;

end

end

else ShowMessage('Не вдалось видалити!');

end;

end;

if listview2.items.item[listview2.itemindex].imageindex=1 then

begin

if MessageBox(0,'Видалити файл?','Підтвердіть',

MB_YESNO+MB_ICONQUESTION)=idyes then

begin

if deletefile(way3+listview2.items.item[listview2.itemindex].caption) then

begin

ShowMessage('Файл успішно видалений!');

if (length(way2)=7) and (length(way)=7) then begin

newlist;

newlist2;

end;

if (length(way2)=7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy2

end;

if (length(way2)>7) and (length(way)=7) then begin

newlist;

newlist2;

aftercopy1;

end;

if (length(way2)>7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy1;

aftercopy2;

end

end

else ShowMessage('Не вдалось видалити!')

end

end

end

else exit

except exit

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

mydelete

end;

procedure TForm1.N7Click(Sender: TObject);

begin

mydelete;

end;

procedure TForm1.ListView1Click(Sender: TObject);

begin

lv1:=true;

lv2:=false;

label1.Color:=clbtnshadow;

label2.Color:=clbtnface;

end;

procedure TForm1.ListView2Click(Sender: TObject);

begin

lv1:=false;

lv2:=true;

label2.Color:=clbtnshadow;

label1.Color:=clbtnface;

end;

procedure TForm1.aftercopy1;

var

way1:string;

listsize,i:integer;

begin

newlist2;

way1:=way2;

delete(way1,length(way1)-2,3);

way2:=way1+'*.*';

with ListView2.Items.insert(0) do begin

caption:='[..]';

imageindex:=2;

end;

listsize:=listview2.Items.Count-1;

i:=0;

while i<=listsize do

begin

with listview2.Items.Item[i] do begin

if (Caption='.') or (Caption='..')

then

begin

Delete;

listsize:=listsize-1;

i:=i-1;

end;

end;

i:=i+1;

end;

label2.Caption:=way2

end;

procedure TForm1.aftercopy2;

var

way1:string;

listsize,i:integer;

begin

newlist;

way1:=way;

delete(way1,length(way1)-2,3);

way:=way1+'*.*';

with ListView1.Items.insert(0) do begin

caption:='[..]';

imageindex:=2;

end;

listsize:=listview1.Items.Count-1;

i:=0;

while i<=listsize do

begin

with listview1.Items.Item[i] do begin

if (Caption='.') or (Caption='..')

then

begin

Delete;

listsize:=listsize-1;

i:=i-1;

end;

end;

i:=i+1;

end;

label1.Caption:=way

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

changeplace;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

changeplace;

end;

procedure TForm1.newdirectory;

var

newdir,way1:string;

begin

if (lv1=true) and(lv2=false) then

begin

way1:=way;

delete(way1,length(way1)-2,3);

newdir:=inputbox('Новий каталог','Імя нового каталога','');

if createdir(way1+newdir) then

begin

showmessage('Каталог успішно створений');

if (length(way2)=7) and (length(way)=7) then begin

newlist;

newlist2;

end;

if (length(way2)=7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy2

end;

if (length(way2)>7) and (length(way)=7) then begin

newlist;

newlist2;

aftercopy1;

end;

if (length(way2)>7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy1;

aftercopy2;

end

end

else showmessage('Не вдається створити каталог');

end;

if (lv1=false)and(lv2=true) then

begin

way1:=way2;

delete(way1,length(way1)-2,3);

newdir:=inputbox('Новий каталог','Імя нового каталога','');

if createdir(way1+newdir) then

begin

showmessage('Каталог успішно створений');

if (length(way2)=7) and (length(way)=7) then begin

newlist;

newlist2;

end;

if (length(way2)=7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy2

end;

if (length(way2)>7) and (length(way)=7) then begin

newlist;

newlist2;

aftercopy1;

end;

if (length(way2)>7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy1;

aftercopy2;

end

end

else showmessage('Не вдається створити каталог');

end;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

newdirectory;

end;

procedure TForm1.changeplace;

var

way1,way3:string;

begin

way1:=way;

way3:=way2;

delete(way1,length(way1)-2,3);

delete(way3,length(way3)-2,3);

try

if (lv1=true) and (lv2=false) then

begin

if fileexists(way3+listview1.Items.item[listview1.itemindex].Caption) then

begin

if MessageBox(0,'Перемістити файл?','Підтвердіть',

MB_YESNO+MB_ICONINFORMATION)=idyes then

begin

if CopyFile(Pchar(way1+listview1.Items.item[listview1.itemindex].Caption),

Pchar(way3+listview1.Items.item[listview1.itemindex].Caption),false) then

begin

deletefile(way1+listview1.Items.item[listview1.itemindex].Caption);

ShowMessage('Файл успішно переміщено!');

if (length(way2)=7) and (length(way)=7) then begin

newlist;

newlist2;

end;

if (length(way2)=7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy2

end;

if (length(way2)>7) and (length(way)=7) then begin

newlist;

newlist2;

aftercopy1;

end;

if (length(way2)>7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy1;

aftercopy2;

end

end

else ShowMessage('Не вдалось перемістити файл!');

end;

end

else

begin

if MessageBox(0,'Перемістити файл файл?','Підтвердіть',

MB_YESNO+MB_ICONINFORMATION)=idyes then

begin

if CopyFile(Pchar(way1+listview1.Items.item[listview1.itemindex].Caption),

Pchar(way3+listview1.Items.item[listview1.itemindex].Caption),true) then

begin

deletefile(way1+listview1.Items.item[listview1.itemindex].Caption);

ShowMessage('Файл успішно переміщено!');

if (length(way2)=7) and (length(way)=7) then begin

newlist;

newlist2;

end;

if (length(way2)=7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy2

end;

if (length(way2)>7) and (length(way)=7) then begin

newlist;

newlist2;

aftercopy1;

end;

if (length(way2)>7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy1;

aftercopy2;

end

end

else ShowMessage('Не вдалось перемістити файл файл!');

end;

end;

end;

if (lv1=false)and (lv2=true) then

begin

if fileexists(way1+listview2.Items.item[listview2.itemindex].Caption)=true then

begin

if MessageBox(0,'Перемістити файл?','Підтвердіть',

MB_YESNO+MB_ICONINFORMATION)=idyes then

begin

if CopyFile(Pchar(way3+listview2.Items.item[listview2.itemindex].Caption),

Pchar(way1+listview2.Items.item[listview2.itemindex].Caption),false) then

begin

deletefile(way3+listview2.Items.item[listview2.itemindex].Caption);

ShowMessage('Файл успішно переміщено!');

if (length(way2)=7) and (length(way)=7) then begin

newlist;

newlist2;

end;

if (length(way2)=7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy2

end;

if (length(way2)>7) and (length(way)=7) then begin

newlist;

newlist2;

aftercopy1;

end;

if (length(way2)>7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy1;

aftercopy2;

end

end

else ShowMessage('Не вдалось перемістити файл!');

end

end

else

begin

if MessageBox(0,'Перемістити файл?','Підтвердіть',

MB_YESNO+MB_ICONINFORMATION)=idyes then

begin

if CopyFile(Pchar(way3+listview2.Items.item[listview2.itemindex].Caption),

Pchar(way1+listview2.Items.item[listview2.itemindex].Caption),true) then

begin

deletefile(way3+listview2.Items.item[listview2.itemindex].Caption);

ShowMessage('Файл успішно переміщено!');

if (length(way2)=7) and (length(way)=7) then begin

newlist;

newlist2;

end;

if (length(way2)=7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy2

end;

if (length(way2)>7) and (length(way)=7) then begin

newlist;

newlist2;

aftercopy1;

end;

if (length(way2)>7) and (length(way)>7) then begin

newlist;

newlist2;

aftercopy1;

aftercopy2;

end

end

else ShowMessage('Не вдалось перемістити файл!');

end;

end;

end

except exit

end;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

winhelp(0,'help',3,0);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

newdirectory;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

aboutbox.ShowModal

end;

procedure TForm1.ListView1StartDrag(Sender: TObject;

var DragObject: TDragObject);

begin

screen.Cursor:=crDrag;

end;

procedure TForm1.ListView2DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

copy;

end;

procedure TForm1.ListView2DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

begin

accept:=source=listview1;

end;

procedure TForm1.ListView1EndDrag(Sender, Target: TObject; X, Y: Integer);

begin

screen.Cursor:=crdefault;

end;

procedure TForm1.ListView2StartDrag(Sender: TObject;

var DragObject: TDragObject);

begin

screen.Cursor:=crDrag;

end;

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

begin

accept:=source=listview2;

end;

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

copy;

end;

procedure TForm1.ListView2EndDrag(Sender, Target: TObject; X, Y: Integer);

begin

screen.Cursor:=crdefault;

end;

procedure TForm1.ListView1KeyPress(Sender: TObject; var Key: Char);

begin

case key of

chr(13): begin try case listview1.Items.item[listview1.Itemindex].ImageIndex of

0: dbclickfirstime;

1: dbclickthirdtime;

2: dbclicksecondtime

else exit

end;

except exit;

end;

end;

end;

end;

procedure TForm1.ListView2KeyPress(Sender: TObject; var Key: Char);

begin

case key of

chr(13): begin try case listview2.Items.item[listview2.Itemindex].ImageIndex of

0: dbclickfirstime2;

1: dbclickthirdtime2;

2: dbclicksecondtime2

else exit

end;

except exit;

end;

end;

end;

end;

procedure TForm1.ListView1Editing(Sender: TObject; Item: TListItem;

var AllowEdit: Boolean);

begin

oldname:=listview1.items.item[listview1.itemindex].caption;

end;

procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;

var S: String);

var oldway,newway,way1,way3:string;

begin

way1:=way;

way3:=way;

delete(way1,length(way1)-2,3);

delete(way3,length(way3)-2,3);

oldway:=way1+oldname;

newway:=way3+s;

renamefile(oldway,newway);

end;

procedure TForm1.ListView2Editing(Sender: TObject; Item: TListItem;

var AllowEdit: Boolean);

begin

oldname:=listview2.items.item[listview2.itemindex].caption;

end;

procedure TForm1.ListView2Edited(Sender: TObject; Item: TListItem;

var S: String);

var oldway,newway,way1,way3:string;

begin

way1:=way2;

way3:=way2;

delete(way1,length(way1)-2,3);

delete(way3,length(way3)-2,3);

oldway:=way1+oldname;

newway:=way3+s;

renamefile(oldway,newway);

end;

end.

Размещено на Allbest.ru


Подобные документы

  • Аналіз функціонування файлового менеджера WINDOWS COMMANDER. Ключові якості програми: операцї з файлами, управління архівами, локальні меню, вбудований FTP-клієнт. З'днання з іншим комп'ютером. Контрольні суми. Функції різних версій WINDOWS COMMANDER.

    дипломная работа [48,2 K], добавлен 14.12.2007

  • Створення програми для роботи зі зв'язаними списками засобами Delphi. Причини використання динамічної пам'яті комп’ютера. Розробка технічного завдання. Аналіз вимог та визначення специфікації. Етап реалізації та розробка документації користувача.

    курсовая работа [487,5 K], добавлен 08.08.2011

  • Проектування універсальної контролюючої програми для перевірки концентрації уваги учнями. Дослідження програмного середовища Borland Delphi 7 для створення програми. Вивчення етапів розробки програмних продуктів. Тестування програми на працездатність.

    курсовая работа [913,0 K], добавлен 05.03.2015

  • Історія розвитку Delphi (Object Pascal). Інтегроване середовище розробки Delphi. Ознайомлення з історією створення і використання логічної гри "Пазли". Реалізування ігрової комп’ютерної програми "Конструктор пазлів" в середовищі програмування Delphi 7.

    курсовая работа [2,2 M], добавлен 10.11.2015

  • Основні переваги програмування на мові Delphi. Використання стандартних операторів при створенні інтерфейсу користувача. Вибір складу технічних і програмних засобів, організація вхідних і вихідних даних. Розробка програми, блок-схеми та тексту програми.

    реферат [316,1 K], добавлен 22.01.2013

  • Елементарні властивості, які утворюють прийнятну для користувача якість ПЗ. Забезпечення стійкості програмних засобів за допомогою захисного програмування. Установка пакета Delphi. Розробка програми для автоматичного розрахунку значень складної функції.

    контрольная работа [32,8 K], добавлен 22.09.2009

  • Огляд середовища програмування Delphi виробництва корпорації Inprise. Засоби масштабування для побудови баз даних. Візуальна побудова додатків із програмних прототипів. Об’єктно-орієнтована модель компонентів. Опис структури програми, компонентів OpenGL.

    курсовая работа [1,9 M], добавлен 09.06.2010

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.