Windows BalloonTips aktivieren/deaktivieren

[Mithrandir]

Forlan hat eine Funktion geschrieben, mit der man die "BalloonTips" in der Notification Area de- bzw. aktivieren kann. toms und DeddyH haben diese Funktion noch verfeinert:

uses Registry;

Delphi-Quellcode:

procedure EnableBalloonTips(Enable: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\', True) then
      begin
        reg.WriteInteger('EnableBalloonTips', Ord(Enable));
        reg.CloseKey;
      end;
  finally
    reg.Free;
  end;
end;

Microsoft weist darauf hin, dass man sich nach dem Ändern des Schlüssels einmal vom System ab- und wieder anmelden sollte.

[edit=TBx]Username von DeddyH korrigiert Mfg, TBx[/edit]
[edit=TBx] Mfg, TBx[/edit]