Shfileopstruct

← →
SS Galicia (2002-10-25 05:21) [0]

Доброго времени суток.
Есть у меня код, к-рый работает...привожу:
------------------------------------------
procedure TForm1.CopyDirectoryTree(Handle:Thandle; AFromDir,AToDir:String);
var
Shfileopstruct:TShfileopstruct;
begin
with Shfileopstruct do
begin
WND:=Handle;
wFunc:=Fo_Move;
pFrom:=Pchar(Reg.ReadString("Otkuda")+"\*.*");
pTo:=Pchar(Reg.ReadString("Kuda")+"\");
fFlags:=FOF_Noconfirmation or FOF_RenameonCollision;
fAnyOperationsAborted:=false;
hNameMappings:=nil;
lpszProgressTitle:=nil;
end;
Shfileoperation(Shfileopstruct);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Reg.ReadString("Otkuda")<>s) and (Reg.ReadString("Kuda") <> s) then
begin
Form1.CopyDirectoryTree(Handle,Reg.ReadString("Otkuda"),Reg.ReadString("Kuda"));
end;
end;
---------------------------------------------------------
Принцип таков: на события таймера, прога лезет в директорию и пытается скопировать. Если там ничего нет - "простаивает".
Проблема состоит в том, что мне нужно отловить, когда функция копирования, действительно что-то СКОПИРУЕТ...т.е в папке, что-то появилось!!!
Черкните пример....Заренее благодарен.

← →
MBo (2002-10-25 07:07) [1]

Статьи - монитор каталогов

Shfileopstruct Найти похожие ветки