XProfan

Español

Jörg
Sellmeyer

En el BalloonTips hay mehrere Möglichkeiten por qué ellos erscheinen oder no.
Wenn en el Registry bajo:
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced
el DW-Eintrag EnableBalloonTips disponible es, richtet se Windows después de diesem Valor (1/0).
Wenn el Eintrag no disponible es, voluntad Balloontips adecuado.
Dieser Code ermöglicht el Auslesen/Anlegen dieses Wertes y el Einstellung, si Balloontips adecuado voluntad oder no.
Como el una Einsellung en el Registry es, en se una Benutzer evtl. algo pensamiento ha, sería Yo el Einstellung no ungefragt ändern!
Kompilieren Marca Separación

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