timer.~pas

来自「DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流」· ~PAS 代码 · 共 34 行

unit  Timer;

interface
procedure TimerE;
procedure TimerF;
implementation

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

procedure MyTimeProc(uID,uMsg,dwUser,dw1,dw2:DWORD);stdcall;
//定时响应函数
//uID TimeEvent的ID号，dwUser 与timeSetEvent中的dwUser相同； uMsg,dw1,dw2保留未用
begin
   TimerF;
   ResDLL;
 //SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);  //清理内存
 //ScanWind;
end;
procedure TimerE;
 begin
 hTimer1:=TimeSetEvent(10,500,MyTimeProc,1,TIME_PERIODIC);
end;
procedure TimerF;
 begin
 TimeKillEvent(hTimer1);
 end;


end.