Файл занят другим приложением

[beba]

Доброго вресени суток..

В Delphi программирую на любительском уровне, так что извиняйте... чуть что..

Возник вопрос..

есть такой код, который копирует по-средствам винды группу файлов..

function TForm1.WindowsCopyFile(FromFile, ToDir : string) : boolean;
var
F: TShFileOpStruct;
begin
Result := True;
F.Wnd := 0;
F.wFunc := FO_COPY;
FromFile:=FromFile+#0;
F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0;
F.pTo:=pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
try
ShFileOperation(F);
except
result:=False;
end;
end;

в случае когда файл занят другим приложением выскакивает ошибка, которая сообщает, что нет возможности скопировать файл, т.к. файл занят другим приложением...

Можно ли сделать так, чтобы ошибка не отображалась, а допустим сохраняла информацию в лог.. что ли...

З.ы. поиском пользовался

 

[Barmutik]

Я бы Вам посоветовал использовать готовые функци Delphi для копирования файлов.. там Вы смоежет сами контролировать всё ошибки связанные с копированием файлов...

 

[beba]

Дело в том, что я копирую не просто файлы а группы файлов, и не всегда знаю названия файлов..
Группу файлов задаю след. образом:
an*.dbf, js*.dbf и т.п.

Можно ли это реализовать, использую стандартные функции копирования файлов ?
Если можно, то покажите пож-та, где можно прочитать чего по данной задаче..

Спасибо..

 

[Barmutik]

Сначала поиском находите все файлы с нужными Вам масками а потом с помощью функций копироваиня соответственно копируете ..

Посмотреть я думаю можно практически в любой книге по Дельфи .. работа с файлами...

 

[beba]

оки... спасибо
З.ы. очень оперативно, такое я видел тока на phpclub.ru.. Кинул в закладки страницу