Как заставить приложение весеь в памяти ?

← →
Silvestr (2005-11-10 08:39) [0]

Форм нет , есть только один Datamodule на нём таймер который что то делает , сразу gckt запуска приложение выключаеться :( как сделать чтобы оно вечело в памяти и обрабатывало код по таймеру или вообще что то делало не не выключалось ?

← →
Digitman © (2005-11-10 09:04) [1]

with Application do begin
Initialize;
CreateForm(TDataModule, MyDataModule);
repeat
WaitMessage;
try
HandleMessage;
except
HandleException(Application);
end;
until Terminated;
end;

← →
irishka001 © (2005-11-10 09:30) [2]

Попробуй использовать задержку.

procedure TForm1.Delay(msecs : Longint); {msecs - милисекунды для задержки. Процедура осуществляет задержку программы на заданное количество милисекунд} var FirstTick : longint; begin FirstTick:=GetTickCount; repeat Application.ProcessMessages; {для того, чтобы не "завесить" Windows} until GetTickCount-FirstTick >= msecs; end;

Вызов осуществляется просто, например, Delay(500)

← →
alex_*** (2005-11-10 10:13) [3]

проще не показывать главную форму (св-во такое есть у Application)

← →
Silvestr (2005-11-10 10:38) [4]

спасибо

Как заставить приложение весеь в памяти ? Найти похожие ветки