XProfan

English

Frank
Abbing

Simple TimerProc
Frank Abbing
DEF SetATimer(4) !USER32,SetTimer
DEF KillATimer(2) !USER32,KillTimer
DEF GetTimeFormat(6) !KERNEL32,GetTimeFormatA

Proc timerproc

    Declare text$
    text$=Space$(20)
    GetTimeFormat(0,0,0,0,Addr(text$),20)
    text$=Uhrzeit: +text$
    SetText %hwnd,text$

EndProc

Cls
SetATimer(%hwnd,1,1000,ProcAddr(timerproc,0))

Whileloop 20000

    Print Int(Rnd(100000))

EndWhile

Print
Demo Ende.
Waitinput
KillATimer(%hwnd,1)
End

03/30/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

one ought to note, that the profane SetTimer already whom Timer 1 of %hWnd occupied.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

06/05/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

one ought to note the one appeal of SetATimer(%hwnd,1,1000,ProcAddr(timerproc,0)) awfully dangerous his can and really absolutely To avoid is.

what indeed no trouble More is, dank the subClassProc...

The latest Parameter instead of procAddr() simply a zero and the wm_timer-request in the subClassProc and one is on the secure Page.

and who believes the one lest the same Result produce can should itself simply in example Buntank [...]

angucken.