Недавно добавленные исходники

•  3D Designer  114

•  Sik Screen Capture  95

•  Patch Maker  83

•  Айболит (remote control)  99

•  ListBox Drag & Drop  79

•  Доска для игры Реверси  1 344

•  Графические эффекты  90

•  Рисование по маске  67

•  Перетаскивание изображений  70

•  Canvas Drawing  77

•  Рисование Луны  147

•  Поворот изображения  56

•  Рисование стержней  49

•  Paint on Shape  44

•  Генератор кроссвордов  57

•  Головоломка Paletto  71

•  Теорема Монжа об окружностях  108

•  Пазл Numbrix  53

•  Заборы и коммивояжеры  81

•  Игра HIP  60

•  Игра Go (Го)  48

•  Симулятор лифта  52

•  Программа укладки плитки  54

•  Генератор лабиринта  95

•  Проверка числового ввода  44

•  HEX View  98

•  Физический маятник  100

•  Задача коммивояжера  127

•  Автомобильная пробка  51

•  Квадратные сетки из слов  45

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Определить, что WIN.INI был изменен



Оформил: DeeCo

{ 
  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;




Похожие по теме исходники

Mix Window

Win Console

Non Rectangular Windows

Windows Transparency

 

Thread Bitmap (pencil drawings)

Snake & MiniSaper WinApi

Drawing Board

Sprite Animation by LayeredWindow

 

Winsock2 Light

Mini Audio Player

Mini WebBrowser (браузер)

FTP MiniChat

 

IniEx2

Mini HTML Editor

INI XML Files

Work with INI

 

Mini Archiver (архиватор)

Изменение цвета изображения




Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter