Hi,
Folgenden Code verwende ich um einen Timer jede Sekunde eine Procedur namens TimerProc ablaufen zu lassen:
Delphi-Quellcode:
procedure TimerProc(Wnd:HWnd;Msg,TimerID,dwTime:DWORD);stdcall;
begin
MessageBox(0,pchar(IntToStr(TimerID)),'ff',MB_OK);
end;
//.......
SetTimer(0,0,3000,@TimerProc);
//......
Wie, bzw ist es möglich den Timer nun zu stoppen oder die Intervalle zu ändern??
Gruß der_hans
//EDIT: Ok wie man den Timer beendet habe ich gerade beim durchstöbern des Forums, herausgefunden:
KillTimer(0, ID_TIMER);
Nun würd ich noch gerne wissen wie man den Inervall ändert, weil immer einen neuen Timer zu starten ist nicht Sin der Sache
// Edit:
Hat sich auch erledigt, man muss beim ersten Setzen des Timers einfach den Rückgabewert, also das TimerHandle, in einem Integer speichern, und das
Handle einfach beim nächsten Aufrufen von:
SetTimer(0,TimerHandle,3000,@TimerProc);
mit übergeben, dann wird der Wert überschrieben.
Eigendlich selbsterklärend.