Delphi World - Определить, что WIN.INI был изменен
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Определить, что WIN.INI был изменен

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  An application sends the WM_WININICHANGE message to all top-level windows 
  after making a change to the WIN.INI file. 
  The SystemParametersInfo function sends this message after an application uses the 
  function to change a setting in WIN.INI. 
}

 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;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования