Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.14;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-45955
Paul 'Spawn' Rysevets
2002-11-03 19:30
2002.11.14
Помогите найти программу.


3-45694
Slava
2002-10-28 14:02
2002.11.14
Сохранение изминений в БД


3-45723
Карелин Артем
2002-10-24 13:33
2002.11.14
Маленькая таблица с данными. Где взять на халяву?


14-46087
Sapersky_
2002-10-26 00:18
2002.11.14
Вопрос по Си... Только ногами не бейте, ладно? :)


1-45924
minnic
2002-11-02 20:19
2002.11.14
Приватык!!! :) Помогите плиз с вопросом: