project1.dpr

《Delphi深度历险》附书源码 Delphi学习书本

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows;

procedure TimerProc(Window: HWND; message, idEvent: UINT; dwTime: DWORD); stdcall;
begin
  Writeln('Timer triggered !!');
end;

var
  Msg: tMsg;
  TimerID: Integer;
begin
  TimerID := SetTimer(0, 0, 1000, @TimerProc);

  while GetMessage(Msg, 0, 0, 0) do
    DispatchMessage(Msg);

//  Readln;

  KillTimer(0, TimerID);
end.