XProfan

English

Jörg
Sellmeyer

with whom BalloonTips there several Opportunities Why tappt im dunkeln attend or not.
If in the Registry under:
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced
the DW-entry EnableBalloonTips present is, depends itself windows to this worth (1/0).
If the entry No is, go Balloontips displayed.
this code allows the Reading/lay out this Wertes and the attitude, whether Balloontips showing or not.
there the a Einsellung in the Registry is, with the itself one user evtl. something virtual has, would I The attitude not ungefragt Change!
Compile Mark Separation

Proc AreBalloonTipsActive

    Declare f%,t%
    f% = Set(Errorlevel,0)
    ErrorLevel auf Null, damit es keine Fehlermeldung gibt, wenn der Eintrag nicht vorhanden ist.
    t% = Val(ReadIni$(HKEY_DW_1,SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced,EnableBalloonTips))
    Set(Errorlevel,f%)
    return t%

EndProc

Proc ActivateBalloonTips

    mit a% = 1 werden Balloontips aktiviert, mit 0 deaktiviert
    Parameters a%
    WriteIni HKEY_DW_1,SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced,EnableBalloonTips = Str$(a%)
    SendMessage($FFFF,$1A,0,0)
    die Registry wird aktualisiert und das System auf den neuesten Stand gebracht

EndProc

SubProc Create.BalloonTip

    Parameters hwnd&,hparent&,Text$
    Declare h&
    h& =  Create(ToolTip,hwnd&,hparent&,Text$)
    SetStyle h&,$0000040
    das ist der BalloonStyle
    Return h&

EndProc

Cls
Declare btn&,tip&,tip1&
btn& = Create(Button,%hwnd,Klick mich!,10,100,100,20)
tip& = Create(BalloonTip,%hwnd,btn&,Str$(&GetTickCount))
WindowTitle BalloonTips sind  + If(AreBalloonTipsActive() = 1,aktiv,nicht aktiv)

While 1

    WaitInput

    If Clicked(btn&)

        ActivateBalloonTips(Not(AreBalloonTipsActive()))
        WindowTitle BalloonTips sind  + If(AreBalloonTipsActive() = 1,aktiv,nicht aktiv)

    EndIf

Wend