Copy file
4 отговора
92 прегледа
Re: Copy file
Пробвай така
procedure TForm1.Button1Click(Sender: TObject);
var FNameOld: PChar;
FNameNew: PChar;
b: boolean;
begin
FNameOld := 'c:\test\1.zip';
FNameNew := 'c:\test\2.zip';
CopyFile(FNameOld,FNameNew,exsist);
end;
procedure TForm1.Button1Click(Sender: TObject);
var FNameOld: PChar;
FNameNew: PChar;
b: boolean;
begin
FNameOld := 'c:\test\1.zip';
FNameNew := 'c:\test\2.zip';
CopyFile(FNameOld,FNameNew,exsist);
end;
Re: Copy file
Blagodarq ti mnogo, ama iskam da go napravq taka che potrebitelq da kaje kak da se kazva noviq file.
Re: Copy file
Е добре де - толкова ли е сложно към метода който ти е дал човека да добавиш 2 параметъра - един за входния файл и един за името на изходния.
P.S.
Корекция - напиши си метод който да ти преименува - и него викай с горните 2 параметъра в OnClick-а на бутона.
---
Е т'ва е живот!
P.S.
Корекция - напиши си метод който да ти преименува - и него викай с горните 2 параметъра в OnClick-а на бутона.
---
Е т'ва е живот!
Редактирано от PhantomAS на