СКОТСКИЙ ВОПРОС

← →
SS Galicia (2002-11-05 03:51) [0]

В общем-то скотский вопрос... Я понимаю, что нужно платить; На шару только сыр в мышеловке и всё же... Прозьба: дайте ссылки на БЕСПЛАТНЫЕ электронные книги(ну или разделы) по делфям....Я думаю этот вопрос интересует далеко не только меня.
И второе, (но уже не скотское) :-).
У меня есть таймер.....в процедуре осуществелено копирование(перемещение) файлов & директорий... Вопрос: Почему оно работает только тогда, когда программа НЕ свёрнута в systray ?
Код вот:
--------------------------------------------------------------
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;
----------------------------------------------------------------
Заранее благодарен!

← →
Cr@sh © (2002-11-05 07:03) [1]

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

смотря как ты помещаешь программу в трей, ее надо просто скрыть, и тогда все будет работать.
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caNone; Hide(); end;

СКОТСКИЙ ВОПРОС Найти похожие ветки