Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизИспользование CheckBox... Найти похожие ветки
← →
inko (2002-04-09 15:40) [0]Использование CheckBox...
Мне нужно, чтобы пользователь, поставив флажок на CheckBox2, и нажав кнопку Button7
задействовал функцию CopyFile(OpenDialog1.Filename, OpenDialog1.Filename), а убрав флажок из CheckBox2 эта функция пропускалась бы. Я сделал следующее... но почему-то выводится ошибка " I/O Error 32":
procedure TForm1.Button7CandgeClick(Sender: TObject);
begin
IF CheckBox2.Checked THEN
BEGIN
CopyFile(OpenDialog1.Filename, OpenDialog1.Filename); {создание резервной копии файла, который используеться системой}
END;
if ApplicationUse(OpenDialog1.Filename) then //проверка использования файла
CreateReplaceDialog(OpenDialog1.Filename, OpenDialog2.Filename) //создание диалога
else
ReplaceFile(OpenDialog2.Filename, OpenDialog1.Filename); {замена файла, если он не используется}
end;
Возможно, ошибка в procedure создания резервной копии файла, который используется системой:
procedure CopyFile(FromFileName, ToFileName : string);
var
FromFile, ToFile: File;
begin
AssignFile(FromFile, FromFileName);
AssignFile(ToFile, ToFileName + ".bak");
Reset(FromFile);
try
Rewrite(ToFile);
try
if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle)<0 then
raise Exception.Create("Error create Backup file !")
finally
CloseFile(ToFile);
end;
finally
CloseFile(FromFile);
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c