Also am einfachsten ist es, wenn du dir eine Dummy Klasse darum baust:
Delphi-Quellcode:
interface
type
class =TDummyClass
public
class procedure MyTimerOnTimer(Sender: TObejct);
end;
.
.
implementation
class procedure TDummyClass.MyTimerOnTimer(Sender: TObject);
begin
MyTimer.Enabled := false;
CheckUser;
MyTimer.Enabled := true;
end;
initialization
MyTimer := TTimer.Create(Application);
MyTimer.Interval := 10000;
MyTimer.OnTimer := TDummyClass.MyTimerOnTimer;
MyTimer.Enabled := true;
P.S: ungetestet! Aber als Denkanstoss sollte es reichen.
P.P.S: Ob aber der überhaupt Timer ohne Fenster funktioniert sei mal dahingestellt ... Einfach mal probieren.