project1.dpr

来自「在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。」· DPR 代码 · 共 27 行

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.