time.~pas

DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流

unit  Time;

interface
procedure TimerOn;
procedure TimerOff;
implementation

uses
  Windows,Thuan;
var
   hTimer1: DWORD=1; // 定时器句柄
  hTimer: LongWord=0; // 定时器句柄

procedure TimerProc(hWnd: HWND; uMsg: UINT; idEvent: UINT; dwTime: DWORD); stdcall;
begin

//////////////
 TimerOff;
 RunREG;


 end;
  // 安装定时器
procedure TimerOn;
begin
 //StopHookKeyMouse;
  if (hTimer <> 0) then TimerOff;
  hTimer := SetTimer(0, 0, 1000, @TimerProc);
  end;

  // 删除定时器
procedure TimerOff;
begin
  if (hTimer <> 0) then
  begin
    KillTimer(0, hTimer);
    hTimer := 0;
  end;
end;


end.