🚀 go-pugleaf

"David B. Ferguson" <david.mcs@ns.sympatico.ca> wrote in news:3dde4d3a$1
@newsgroups.borland.com:

> 
> procedure Delay(MilliSecs: Integer);
> var x:: LongInt;
> begin
>    x:=GetTickCount;
>    repeat
>       Application.ProcessMessages;
>    until ((GetTickCount-x) >= Longint(MilliSecs));
> end;
> 
> 

Try this:

program Project1;

uses
  Windows,
  Messages,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

{ TMyTimer }
type
  TMyTimer = class
  private
    FWindowHandle: HWND;
    procedure WndProc(var Msg: TMessage);
    procedure StartTimer;
  public
    constructor Create;
    destructor Destroy; override;
  end;

constructor TMyTimer.Create;
begin
  FWindowHandle := AllocateHWnd(WndProc);
end;

procedure TMyTimer.WndProc(var Msg: TMessage);
begin
  with Msg do
  begin
    if Msg = WM_TIMER then
      try
        Application.Initialize;
        Application.CreateForm(TForm1, Form1);
        Application.Run;
        Free;
      except
        Application.HandleException(Self);
      end
    else
      Result := DefWindowProc(FWindowHandle, Msg, wParam, lParam);
  end;
end;

procedure TMyTimer.StartTimer;
begin
  if SetTimer(FWindowHandle, 1, 60000, nil) = 0 then {60000=60 seconds}
    Application.Terminate;
end;

destructor TMyTimer.Destroy;
begin
  DeallocateHWnd(FWindowHandle);
end;

begin
  With TMyTimer.Create do
  begin
    StartTimer;
  end;
  repeat
    Application.HandleMessage;
  until Application.Terminated;
end.


-- 
I hope this helps,

Brain Cell