Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как заставить приложение весеь в памяти ? [D6, WinXP]

Silvestr © (2005-11-10 08:39:00)
Форм нет , есть только один Datamodule на нём таймер который что то делает , сразу gckt запуска приложение выключаеться :( как сделать чтобы оно вечело в памяти и обрабатывало код по таймеру или вообще что то делало не не выключалось ?

Silvestr (2005-11-10 10:38:00) [1]
спасибо

alex_*** (2005-11-10 10:13:00) [2]
проще не показывать главную форму (св-во такое есть у Application)

irishka001 (2005-11-10 09:30:00) [3]
Попробуй использовать задержку.

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

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

Digitman (2005-11-10 09:04:00) [4]
with Application do begin
Initialize;
CreateForm(TDataModule, MyDataModule);
repeat
WaitMessage;
try
HandleMessage;
except
HandleException(Application);
end;
until Terminated;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »