Текущий архив: 2005.11.27;
Скачать: CL | DM;

Вниз

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

← →
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]

спасибо

---

Страницы: 1 вся ветка

Текущий архив: 2005.11.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.04 c