Не смотрите сюда....
vidiv © (2003-01-23 12:59:00)
program anc;
uses
Windows,
Messages,
forms,
SysUtils,
WorkModUnit in "WorkModUnit.pas" {WorkMod: TDataModule};
begin
........
Application.Initialize;
Application.CreateForm(TWorkMod,WorkMod);
Application.Run; {После выполнения это строки программа сразу
завершается, а как сделать, что бы программа продолжала работать до
тех пор пока не будет выполнено Application.Terminate}
end.
Игорь Шевченко (2003-01-23 13:03:00) [1]
procedure TApplication.Run;
begin
FRunning := True;
try
AddExitProc(DoneApplication);
if FMainForm <> nil then
begin
case CmdShow of
SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
end;
if FShowMainForm then
if FMainForm.FWindowState = wsMinimized then
Minimize else
FMainForm.Visible := True;
repeat
HandleMessage
until Terminated;
end;
finally
FRunning := False;
end;
end;
Далее внимательно думаем головой
Наверх 
ЧАТ |
Орешник |
|
