不好意思，漏了一个文件，本来是想大家不用CoolTray这个控件也能编译。漏了sampletime.pas这个文件（Cooltray的一个文件）。请编译不通过的把下面的代码保存为所缺的文件名.代码如下： {**********} { SimpleTimer is a timer class. It has the same timer resolution } { as TTimer, but it is more lightweight because it's derived from } { TObject in stead of TComponent. Furthermore, the same handle is } { shared between multiple instances of SimpleTimer. } { This makes it ideal for developers who need a timer in their } { own components or applications, but want to keep the resource } { usage minimal. } { } { The unit is freeware. Feel free to use and improve it. } { I would be pleased to hear what you think. } { } { Troels Jakobsen - delphiuser@get2net.dk } { Copyright (c) 2002 } {**********}
unit SimpleTimer;
{ Some methods have moved to the Classes unit in D6 and are thus deprecated. Using the following compiler directives we handle that situation. } {$IFDEF VER140} {$DEFINE DELPHI_6} {$ENDIF} {$IFDEF VER150} {$DEFINE DELPHI_7} {$ENDIF} {$IFDEF DELPHI_6} {$DEFINE DELPHI_6_UP} {$ENDIF} {$IFDEF DELPHI_7} {$DEFINE DELPHI_6_UP} {$ENDIF}
var SimpleTimerHandler: TSimpleTimerHandler = nil;
function GetSimpleTimerCount: Cardinal; begin if Assigned(SimpleTimerHandler) then Result := SimpleTimerHandler.RefCount else Result := 0; end;
function GetSimpleTimerActiveCount: Cardinal; begin if Assigned(SimpleTimerHandler) then Result := SimpleTimerHandler.ActiveCount else Result := 0; end;
procedure TSimpleTimerHandler.AddTimer; begin Inc(RefCount); end;
procedure TSimpleTimerHandler.RemoveTimer; begin if RefCount > 0 then Dec(RefCount); end;
procedure TSimpleTimerHandler.WndProc(var Msg: TMessage); var Timer: TSimpleTimer; begin if Msg.Msg = WM_TIMER then begin {$WARNINGS OFF} Timer := TSimpleTimer(Msg.wParam); {$WARNINGS ON} if Timer.FAutoDisable then Timer.Stop(True); // Call OnTimer event method if assigned if Assigned(Timer.FOnTimer) then Timer.FOnTimer(Timer); end else Msg.Result := DefWindowProc(FWindowHandle, Msg.Msg, Msg.wParam, Msg.lParam); end;
{---------- Container management ----------}
procedure AddTimer; begin if not Assigned(SimpleTimerHandler) then // Create new handler SimpleTimerHandler := TSimpleTimerHandler.Create; SimpleTimerHandler.AddTimer; end;
procedure RemoveTimer; begin if Assigned(SimpleTimerHandler) then begin SimpleTimerHandler.RemoveTimer; if SimpleTimerHandler.RefCount = 0 then begin // Destroy handler SimpleTimerHandler.Free; SimpleTimerHandler := nil; end; end; end;
{---------- Callback method ----------} { procedure TimerProc(hWnd: HWND; uMsg: UINT; idEvent: UINT; dwTime: DWORD); stdcall; var Timer: TSimpleTimer; begin // if uMsg = WM_TIMER then // It's always WM_TIMER begin try Timer := TSimpleTimer(idEvent); if Assigned(Timer.FCallBackProc) then Timer.FCallBackProc(Timer.FOwner); except // ??? end; end; end; } {---------- TSimpleTimer ----------}
constructor TSimpleTimer.Create; begin inherited Create; Initialize(1000, nil); end;
destructor TSimpleTimer.Destroy; begin if FEnabled then Stop(True); RemoveTimer; // Container management inherited Destroy; end;
procedure TSimpleTimer.Initialize(AInterval: Cardinal; AOnTimer: TNotifyEvent); begin {$WARNINGS OFF} FId := UINT(Self); // Use Self as id in call to SetTimer and callback method {$WARNINGS ON} FAutoDisable := False; FEnabled := False; FInterval := AInterval; SetOnTimer(AOnTimer); AddTimer; // Container management end;
procedure TSimpleTimer.SetEnabled(Value: Boolean); begin if Value then Start else Stop(True); end;
procedure TSimpleTimer.SetInterval(Value: Cardinal); begin if Value <> FInterval then begin FInterval := Value; if FEnabled then if FInterval <> 0 then Start else Stop(False); end; end;
procedure TSimpleTimer.SetOnTimer(Value: TNotifyEvent); begin FOnTimer := Value; if (not Assigned(Value)) and (FEnabled) then Stop(False); end;
function TSimpleTimer.Start: Boolean; begin if FInterval = 0 then begin Result := False; Exit; end; if FEnabled then Stop(True); // Result := (SetTimer(SimpleTimerHandler.FWindowHandle, FId, FInterval, @TimerProc) <> 0); Result := (SetTimer(SimpleTimerHandler.FWindowHandle, FId, FInterval, nil) <> 0); if Result then begin FEnabled := True; Inc(SimpleTimerHandler.ActiveCount); end { else raise EOutOfResources.Create(SNoTimers); } end;
function TSimpleTimer.Stop(Disable: Boolean): Boolean; begin if Disable then FEnabled := False; Result := KillTimer(SimpleTimerHandler.FWindowHandle, FId); if Result and (SimpleTimerHandler.ActiveCount > 0) then Dec(SimpleTimerHandler.ActiveCount); end;
initialization
finalization if Assigned(SimpleTimerHandler) then begin SimpleTimerHandler.Free; SimpleTimerHandler := nil; end;
