Windows - saber quando o usuario trocou o tema (theme) do XP

Top  Previous  Next

const 

  WM_THEMECHANGED = $031A

 

type 

  TForm1 = class(TForm) 

    {...} 

  private 

  public 

    procedure WMTHEMECHANGED(var Msg: TMessage); message WM_THEMECHANGED; 

  end

 

{...} 

 

implementation 

 

{...} 

 

procedure TForm1.WMTHEMECHANGED(var Msg: TMessage); 

begin 

  Label1.Caption := 'Theme changed'

  Msg.Result := 0

end