Title: How to detect when wini.ini setting have changed
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMWinIniChange(var Message: TMessage); message WM_WININICHANGE;
// or WM_SETTINGCHANGE
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMWinIniChange(var Message: TMessage);
var
status: Bool;
Area: TRect;
begin
inherited;
case Message.wParam of
// Example: Detect when the screen saver is enabled/disabled
SPI_SETSCREENSAVEACTIVE:
begin
SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @status, 0);
if Status = True then
ShowMessage('Screensaver has been enabled.')
else
ShowMessage('Screensaver has been disabled.');
end;
end;
end;