Текущий архив: 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.056 c
