| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
СКОТСКИЙ ВОПРОС
SS Galicia © (2002-11-05 03:51:00)В общем-то скотский вопрос... Я понимаю, что нужно платить; На шару только сыр в мышеловке и всё же... Прозьба: дайте ссылки на БЕСПЛАТНЫЕ электронные книги(ну или разделы) по делфям....Я думаю этот вопрос интересует далеко не только меня.
И второе, (но уже не скотское) :-).
У меня есть таймер.....в процедуре осуществелено копирование(перемещение) файлов & директорий... Вопрос: Почему оно работает только тогда, когда программа НЕ свёрнута в 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;
----------------------------------------------------------------
Заранее благодарен!
KoluChi (2002-11-05 13:58:00) [1]смотря как ты помещаешь программу в трей, ее надо просто скрыть, и тогда все будет работать.
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
Hide();
end;
Cr@sh (2002-11-05 07:03:00) [2]Насчет второго, я не уверен, но может быть, при сворачивании программа переходит в фоновый режим работы и начинает либо тормозить, либо вообще не работает.
Лекарство: запрети сворачивание формы, или сделай ее модальной.
| |
