Für SetTimer braucht man auf alle fälle ein Fenster-
Handle. TimerProc leitet ja bloß die Nachricht um. Du solltest etwas an deinem Konzept feilen.
Vorschlag:
Delphi-Quellcode:
ITimeEvent = interface
procedure Tick;
end;
SetTimer(WinHandle, Integer(Was), 1000, nil);
in WM_TIMER-Handler
(TObject(wParam) as ITimeEvent).Tick;
Es kann auch einfacher gelöst werden.