Определить, что пользователь изменить схему оформления XP

Советы » Windows » Определить, что пользователь изменить схему оформления XP

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com