Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Вниз
СКОТСКИЙ ВОПРОС Найти похожие ветки
← →
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]Насчет второго, я не уверен, но может быть, при сворачивании программа переходит в фоновый режим работы и начинает либо тормозить, либо вообще не работает.
Лекарство: запрети сворачивание формы, или сделай ее модальной.
← →
KoluChi (2002-11-05 13:58) [2]смотря как ты помещаешь программу в трей, ее надо просто скрыть, и тогда все будет работать.
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
Hide();
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c
