Главная
База знаний "Allbest"
Программирование, компьютеры и кибернетика
Розроблення файлового менеджера File Commander 1 засобами Delphi 7.0
Розроблення файлового менеджера 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Програма, призначена для створення та оптимізації розкладу занять для факультетів вищих навчальних закладів, розроблена в середовищі Borland Delphi 7. Графічний вигляд екранних форм програмних модулів. Опис логічної структури, використані технічні засоби.
реферат [3,2 M], добавлен 12.04.2010Коротка характеристика об’єктів управління "Nix Solutions". Розроблення варіантів використання, специфікація функціональних та не функціональних вимог. Проектування структури бази даних, елементи. Тестування додатку та розгортання програмного продукту.
дипломная работа [1,5 M], добавлен 01.07.2015Характеристика технології візуального проектування і програмування, суть якої полягає в тому, що область розробки бере на себе більшу частину рутинної роботи. Огляд середовища швидкої розробки, в якій як мова програмування використовується мова Delphi.
курсовая работа [2,8 M], добавлен 27.02.2012
