Советы по Delphi
Создание хранителя экрана (Screen Saver)
Время от времени я наблюдаю вопросы с просьбой рассказать о процессе создания с помощью Delphi хранителя экрана, которого можно было бы выбрать с помощью панели управления (Control Panel / Desktop). После того, как я увидел несколько общих ответов, частично отвечавших на заданный вопрос, я решил создать данный совет и полностью посвятить вас в технологию создания хранителя экрана Windows от начала до конца. Приведенный ниже код позволяет создать предмет нашего разговора, а именно - простой хранитель экрана Windows.
Полный исходный код данного хранителя приведен в конце совета. Ну а теперь обсудим подробности создания этого типа программ, являющихся ровесниками первого компьютера.
Вступление
Хранитель экрана Windows является обыкновенным исполнимым приложением Windows, имеющим в отличие от стандартных программ расширение .SCR. Тем не менее, для корректного связывания с панелью управления, хранитель должен соблюдать определенные требования. В общих чертах программа должна:
- поддерживать опции настройки
- содержать свое описание
- различать состояния активного режима и режима конфигурации
- недопускать запуск своей второй копии
- осуществлять выход, если пользователь нажал клавишу или переместил мышь
Ниже я попытаюсь показать, как каждое из этих требований может быть удовлетворено с помощью Delphi.
С самого началаХранитель экрана, который мы собираемся создать, во время очередного простоя компьютера очищает экран и рисует затененные сферы в произвольных местах экрана, периодически их стирая и начиная заново. Пользователь может определить максимальное количество выводимых на экран сфер и скорость их рисования.
Прежде всего создайте новый, пустой проект, выбрав пункт New Project из меню File. (Если вы находитесь в репозитарии, выберите "Blank project".)
Конфигурационная формаПервое, что видит большинство людей при запуске хранителя экрана - диалог настройки. В нем пользователь может определить значения для специфических опций хранителя экрана. Для того, чтобы создать такую форму, измените свойства Form1 (создается автоматически при создании нового проекта) как показано ниже:
BorderIcons [biSystemMenu] biSystemMenu True biMinimize False biMaximize False BorderStyle bsDialog Caption Configuration Height 162 Name CfgFrm Position poScreenCenter Visible False Width 266Нам необходимо предоставить возможность изменять максимальное количество сфер, выводимых на экране, их размер и скорость рисования. Для того, чтобы это сделать, добавьте следующие три компонента Label (из палитры Standard) и компонент SpinEdit (из палитры Samples): (Примечание: Для быстрого размещения этих компонентов на форме скопируйте этот текст в буфер обмена и замените текст описания формы, выводимый при нажатии на пункт меню "View as Text" контекстного меню формы.)
| object Label1: TLabel Left = 16Top = 19Width = 58Height = 16Alignment = taRightJustifyCaption = 'Сфер:'end object Label2: TLabel Left = 41Top = 59Width = 33Height = 16Alignment = taRightJustifyCaption = 'Размер:'end object Label3: TLabel Left = 29Top = 99Width = 45Height = 16Alignment = taRightJustifyCaption = 'Скорость:'end object spnSpheres: TSpinEdit Left = 84Top = 15Width = 53Height = 26MaxValue = 500MinValue = 1TabOrder = 0Value = 50end object spnSize: TSpinEdit Left = 84Top = 55Width = 53Height = 26MaxValue = 250MinValue = 50TabOrder = 1Value = 100end object spnSpeed: TSpinEdit Left = 84Top = 95Width = 53Height = 26MaxValue = 10MinValue = 1TabOrder = 2Value = 10end |
Наконец, нам необходимы три кнопки -- OK, Отмена и Тест. Кнопка Тест не является стандартной для диалогов настройки хранителей экрана, но она позволяет удобно и легко проверить сделанные изменения. Добавьте следующие три кнопки, используя компоненты BitBtn из палитры "Additional":
|
|
object btnOK: TBitBtn Left = 153Top = 11Width = 89Height = 34TabOrder = 3Kind = bkOKend object btnCancel: TBitBtn Left = 153Top = 51Width = 89Height = 34TabOrder = 4Kind = bkCancelend object btnTest: TBitBtn Left = 153Top = 91Width = 89Height = 34Caption = 'Тест...'TabOrder = 5Kind = bkIgnoreend |
Перейдите к редактору кода модуля Setup и добавьте следующее объявление в секции используемых модулей:
| uses IniFiles; |
| procedure LoadConfig;procedure SaveConfig; |
| const CfgFile = 'SPHERES.INI'; procedure TCfgFrm.LoadConfig; var inifile : TIniFile;begin inifile := TIniFile.Create(CfgFile);trywith inifile do beginspnSpheres.Value := ReadInteger('Config', 'Spheres', 50);spnSize.Value := ReadInteger('Config', 'Size', 100);spnSpeed.Value := ReadInteger('Config', 'Speed', 10);end;finallyinifile.Free;end;end; {TCfgFrm.LoadConfig} procedure TCfgFrm.SaveConfig; var inifile : TIniFile;begin inifile := TIniFile.Create(CfgFile);trywith inifile do beginWriteInteger('Config', 'Spheres', spnSpheres.Value);WriteInteger('Config', 'Size', spnSize.Value);WriteInteger('Config', 'Speed', spnSpeed.Value);end;finallyinifile.Free;end;end; {TCfgFrm.SaveConfig} |
Для обеспечения необходимой функциональности нашей формы нам необходимо создать обработчики некоторых событий, чтобы правильно и в нужный момент загрузить или сохранить конфигурацию. Сначала, в момент запуска программы, нам необходимо автоматически загрузить сохраненную конфигурацию. Для этого нам нужно обработать событие событие OnCreate нашей конфигурационной формы. Дважды щелкните на событии OnCreate в Инспекторе Объектов и введите следующий код:
| procedure TCfgFrm.FormCreate(Sender: TObject); begin LoadConfig;end; {TCfgFrm.FormCreate} |
| procedure TCfgFrm.btnOKClick(Sender: TObject); begin SaveConfig;Close;end; {TCfgFrm.btnOKClick} |
| procedure TCfgFrm.btnCancelClick(Sender: TObject); begin Close;end; {TCfgFrm.btnCancelClick} |
| procedure TCfgFrm.btnTestClick(Sender: TObject); begin ScrnFrm.Show;end; {TCfgFrm.btnTestClick} |
Форма хранителя экрана Сам хранитель экрана будет просто большой, черной формой без заголовка, занимающей весь экран, на котором и будет разворачиваться наше представление. Для того, чтобы создать вторую форму, выберите пункт New Form в меню File или "Blank form" в репозитарии.
BorderIcons [] biSystemMenu False biMinimize False biMaximize False BorderStyle bsNone Color clBlack FormStyle fsStayOnTop Name ScrnFrm Visible False Расположите на форме единственный Delphi компонент - таймер из палитры System. Установите его свойства как указано ниже:
| object tmrTick: TTimer Enabled = FalseOnTimer = tmrTickTimerLeft = 199Top = 122 end |
Больше никаких компонентов для этой формы не потребуется. Тем не менее мы должны добавить некоторый код, осуществляющий рисование затененных сфер. Переключитесь в редактор кода на модуль формы ScrnFrm. В секции private TScrnFrm добавьте следующее объявление процедуры:
| procedure DrawSphere(x, y, size : integer; color : TColor); |
| procedure TScrnFrm.DrawSphere(x, y, size : integer; color : TColor); var i, dw : integer;cx, cy : integer;xy1, xy2 : integer;r, g, b : byte;begin with Canvas do begin{Заполняем установки карандаша и кисти.}Pen.Style := psClear;Brush.Style := bsSolid;Brush.Color := color;{Подготовим цвета для сфер.}r := GetRValue(color);g := GetGValue(color);b := GetBValue(color);{Рисуем сферу.}dw := size div 16;for i := 0 to 15 do beginxy1 := (i * dw) div 2;xy2 := size - xy1;Brush.Color := RGB(Min(r + (i * 8), 255), Min(g + (i * 8), 255),Min(b + (i * 8), 255));Ellipse(x + xy1, y + xy1, x + xy2, y + xy2);end;end;end; {TScrnFrm.DrawSphere} |
Наверняка вы также обратили внимание на то, что функция периодически обращается другой функции, именуемой Min(). Так как это функция не является стандартной функцией Delphi, мы должны добавить ее объявление к данному модулю, выше объявления DrawSphere().
| function Min(a, b : integer) : integer; begin if b < a thenResult := belseResult := a;end; {Min} |
| procedure TScrnFrm.tmrTickTimer(Sender: TObject); const sphcount : integer = 0;var x, y : integer;size : integer;r, g, b : byte;color : TColor;begin if sphcount > CfgFrm.spnSpheres.Value then beginRefresh;sphcount := 0;end;Inc(sphcount);x := Random(ClientWidth);y := Random(ClientHeight);size := CfgFrm.spnSize.Value + Random(50) - 25;x := x - size div 2;y := y - size div 2;r := Random($80);g := Random($80);b := Random($80);DrawSphere(x, y, size, RGB(r, g, b));end; {TScrnFrm.tmrTickTimer} |
Данная процедура осуществляет подсчет рисуемых сфер и осуществляет восстановление (стирание) экрана при достижении максимального числа сфер. Кроме этого, она вычисляет случайную позицию, размер и цвет следующей выводимой сферы. (Примечание: диапазон цветов ограничен только первой половиной спектра яркости для обеспечения большей глубины тени.)
Возможно вы уже обратили внимание, что процедура tmrTickTimer() обращается к форме CfgFrm для получения текущих значений конфигурации. Для того, чтобы эта ссылка работала, добавьте в секцию используемых модулей следующие строчки:
| uses Cfg; |
Для начала добавьте следующее объявление переменной в секции реализации модуля:
| var crs : TPoint; |
| procedure DeactivateScrnSaver(var Msg : TMsg; var Handled : boolean); |
| procedure TScrnFrm.DeactivateScrnSaver(var Msg : TMsg; var Handled : boolean); var done : boolean;begin if Msg.message = WM_MOUSEMOVE thendone := (Abs(LOWORD(Msg.lParam) - crs.x) > 5) or(Abs(HIWORD(Msg.lParam) - crs.y) > 5)elsedone := (Msg.message = WM_KEYDOWN) or (Msg.message = WM_ACTIVATE) or(Msg.message = WM_ACTIVATEAPP) or (Msg.message = WM_NCACTIVATE);if done thenClose;end; {TScrnFrm.DeactivateScrnSaver} |
Чтобы процедура работала, нам нужно передать обработчику события Application.OnMessage оригинальную позицию курсора мыши. Лучшее место для получения координат курсора находится в обработчике события формы OnShow:
| procedure TScrnFrm.FormShow(Sender: TObject); begin GetCursorPos(crs);tmrTick.Interval := 1000 - CfgFrm.spnSpeed.Value * 90;tmrTick.Enabled := true;Application.OnMessage := DeactivateScrnSaver;ShowCursor(false);end; {TScrnFrm.FormShow} |
В данном участке кода мы также задаем периодичность срабатывания таймера и активизируем его, а также прячем курсор мыши. Следующий код не является обязательным, но тем не менее мы включим его в обработчик события OnHide:
| procedure TScrnFrm.FormHide(Sender: TObject); begin Application.OnMessage := nil;tmrTick.Enabled := false;ShowCursor(true);end; {TScrnFrm.FormHide} |
| procedure TScrnFrm.FormActivate(Sender: TObject); begin WindowState := wsMaximized;end; {TScrnFrm.FormActivate} |
Описание хранителя экрана Вы можете определить текст, который появится в списке хранителей экранов в Control Panel / Desktop, добавив директиву {$D текст} к исходному файлу проекта. Директива $D вставляет текст в описание модуля выполняемого файла. Чтобы Панель Управления "поняла" этот текст и принадлежность файла к хранителям экрана, описание должно начинаться с зарезервированного слова "SCRNSAVE".
Выберите пункт Project Source из меню View для редактирования исходного кода проекта. Под директивой "{$R *.RES}" добавьте следующую строчку:
| {$D SCRNSAVE Spheres Screen Saver} |
Активный режим и режим конфигурации Windows запускает программу хранителя экрана при двух возможных условиях: 1) при активизации хранителя экрана, и 2) когда необходимо изменить его настройки. В обоих случаях Windows запускает одну и ту же программу. Для запуска программы в одном из двух режимов предусмотрен параметр командной строки - "/s" для активного режима и "/c" для режима конфигурации. Для корректной работы с Панелью управления наш хранитель экрана должен проверять командную строку на предмет наличия одного из ключа.
Активный режим Когда хранитель экрана стартует в активном режиме (/s), нам необходимо создать и показать именно форму хранителя экрана. Но при этом нам также необходимо создать и форму конфигурации, поскольку она содержит все конфигурационные настройки. При закрытии формы хранителя экрана программа завершает свою работу. В этом режиме форма хранителя экрана является главной формой приложения - она запускается при старте приложения и при ее закрытии приложение завершается.
Режим конфигурации Когда хранитель экрана стартует в режиме конфигурации (/c), нам необходимо создать и вывести на экран конфигурационную форму. Но при этом нам также необходимо создать и форму хранителя экрана, поскольку пользователь может захотеть протестировать выбранные настройки. Тем не менее, при закрытии конфигурационной формы приложение также должно завершить свою работу. В этом случае мы определяем конфигурационную форму как главную форму приложения.
Определение главной формы В нашем случае нам необходимо идентифицировать ScrnFrm как главную форму приложения, если в командной строке присутствовал параметр /s, в противном случае главной формой приложения должна быть форма CfgFrm. Чтобы это сделать, необходимо знать одну недокументированную характеристику VCL объекта TApplication: главной формой приложения становится первая форма, создаваемая вызовом Application.CreateForm(). Таким образом, для определения главной формы приложения согласно параметрам, передаваемым во время выполнения программы, следует отредактировать исходный код проекта следующим образом:
| begin if (ParamCount > 0) and (UpperCase(ParamStr(1)) = '/S') then begin{ScrnFrm должна быть главной формой.}Application.CreateForm(TScrnFrm, ScrnFrm);Application.CreateForm(TCfgFrm, CfgFrm);end else begin{CfgFrm должна быть главной формой.}Application.CreateForm(TCfgFrm, CfgFrm);Application.CreateForm(TScrnFrm, ScrnFrm);end;Application.Run;end. |
Просто изменяя порядок создания форм, мы автоматически устанавливаем главную форму приложения. Кроме того, основная форма будет показана автоматически, несмотря на то, что для обоих форм мы установили значение свойства Visible равным False. В результате мы получаем желаемый эффект с использованием минимального кода.
(Примечание: для обеспечения показанной выше функциональности необходимо выключить опцию "Complete boolean eval" в пункте меню Options | Project | Compiler settings. В противном случае при отсутствии параметров командной строки будет возникать ошибка.)
Для использования Delphi функции UpperCase(), необходимо включить модуль SysUtils в список используемых модулей исходного кода проекта как показано ниже:
| uses Forms, SysUtils,Scrn in 'SCRN.PAS' {ScrnFrm},Cfg in 'CFG.PAS' {CfgFrm}; |
При разработке хранителя экрана необходимо учитывать один ньюанс - недопущение запуска второй копии хранителя. В противном случае Windows будет запускать хранитель экрана каждый раз при наступлении времени его активизации, даже в случае, когда он запущен.
Для того, чтобы недопустить запуск второй копии нашего хранителя, отредактируйте исходный код проекта следующим образом:
| begin {Возможен запуск только одной копии.}if hPrevInst = 0 then beginif (ParamCount > 0) and (UpperCase(ParamStr(1)) = '/S') then begin...end;Application.Run;end;end; |
Теперь сохраните файл проекта с именем "SPHERES.DPR" и скомпилируйте программу. Вот мы и получили хранитель экрана, полностью удовлетворяющий всем нашим требованиям. В случае отсутствия параметров в командной строке программа переходит в режим конфигурации, заданный по умолчанию. Вы можете протестировать активный режим, передавая в командной строке первым параметр "/s". (Смотри Run | Parameters...)
Установка хранителя экрана После отладки и проверки хранителя экрана вы уже можете его установить и использовать в системе. Для этого скопируйте исполняемый файл (SPHERES.EXE) в директорию Windows и измените его расширение на .SCR, в результате чего вы получите файл с именем SPHERES.SCR. Затем, войдя в Панель Управления, дважды щелкните на иконке Desktop, и выберите Screen Saver | Name. Вы должны увидеть "Spheres Screen Saver" в списке доступных хранителей экрана. Выбрав его и нажав на кнопку ОК, вы тем самым сделаете его активным системным хранителем.
Полный исходный код проекта хранителя экрана Cfg.dfm
| object CfgFrm: TCfgFrm Left = 196Top = 124BorderIcons = [biSystemMenu]BorderStyle = bsDialogCaption = 'Конфигурация'ClientHeight = 135ClientWidth = 258Font.Color = clWindowTextFont.Height = -13Font.Name = 'System'Font.Style = []PixelsPerInch = 96Position = poScreenCenterOnCreate = FormCreateTextHeight = 16object Label1: TLabelLeft = 16Top = 19Width = 58Height = 16Alignment = taRightJustifyCaption = 'Сфер:'endobject Label2: TLabelLeft = 41Top = 59Width = 33Height = 16Alignment = taRightJustifyCaption = 'Размер:'endobject Label3: TLabelLeft = 29Top = 99Width = 45Height = 16Alignment = taRightJustifyCaption = 'Скорость:'endobject spnSpheres: TSpinEditLeft = 84Top = 15Width = 53Height = 26MaxValue = 500MinValue = 1TabOrder = 0Value = 50endobject spnSize: TSpinEditLeft = 84Top = 55Width = 53Height = 26MaxValue = 250MinValue = 50TabOrder = 1Value = 100endobject spnSpeed: TSpinEditLeft = 84Top = 95Width = 53Height = 26MaxValue = 10MinValue = 1TabOrder = 2Value = 10endobject btnOK: TBitBtnLeft = 153Top = 11Width = 89Height = 34TabOrder = 3OnClick = btnOKClickKind = bkOKendobject btnCancel: TBitBtnLeft = 153Top = 51Width = 89Height = 34TabOrder = 4OnClick = btnCancelClickKind = bkCancelendobject btnTest: TBitBtnLeft = 153Top = 91Width = 89Height = 34Caption = 'Тест...'TabOrder = 5OnClick = btnTestClickKind = bkIgnoreendend |
/p> Cfg.pas
| unit Cfg; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls, Buttons, Spin; type TCfgFrm = class(TForm)Label1: TLabel;Label2: TLabel;Label3: TLabel;spnSpheres: TSpinEdit;spnSize: TSpinEdit;spnSpeed: TSpinEdit;btnOK: TBitBtn;btnCancel: TBitBtn;btnTest: TBitBtn;procedure FormCreate(Sender: TObject);procedure btnOKClick(Sender: TObject);procedure btnCancelClick(Sender: TObject);procedure btnTestClick(Sender: TObject);private{ Private declarations }procedure LoadConfig;procedure SaveConfig;public{ Public declarations }end; var CfgFrm: TCfgFrm; implementation {$R *.DFM} uses Scrn,IniFiles; const CfgFile = 'SPHERES.INI'; procedure TCfgFrm.LoadConfig; var inifile : TIniFile;begin inifile := TIniFile.Create(CfgFile);trywith inifile do beginspnSpheres.Value := ReadInteger('Config', 'Spheres', 50);spnSize.Value := ReadInteger('Config', 'Size', 100);spnSpeed.Value := ReadInteger('Config', 'Speed', 10);end;finallyinifile.Free;end;end; {TCfgFrm.LoadConfig} procedure TCfgFrm.SaveConfig; var inifile : TIniFile;begin inifile := TIniFile.Create(CfgFile);trywith inifile do beginWriteInteger('Config', 'Spheres', spnSpheres.Value);WriteInteger('Config', 'Size', spnSize.Value);WriteInteger('Config', 'Speed', spnSpeed.Value);end;finallyinifile.Free;end;end; {TCfgFrm.SaveConfig} procedure TCfgFrm.FormCreate(Sender: TObject); begin LoadConfig;end; {TCfgFrm.FormCreate} procedure TCfgFrm.btnOKClick(Sender: TObject); begin SaveConfig;Close;end; {TCfgFrm.btnOKClick} procedure TCfgFrm.btnCancelClick(Sender: TObject); begin Close;end; {TCfgFrm.btnCancelClick} procedure TCfgFrm.btnTestClick(Sender: TObject); begin ScrnFrm.Show;end; {TCfgFrm.btnTestClick} end. |
| object ScrnFrm: TScrnFrm Left = 196Top = 98BorderIcons = []BorderStyle = bsNoneCaption = 'ScrnFrm'ClientHeight = 101ClientWidth = 259Color = clBlackFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -13Font.Name = 'System'Font.Style = []FormStyle = fsStayOnTopOldCreateOrder = TrueOnActivate = FormActivateOnHide = FormHideOnShow = FormShowPixelsPerInch = 96TextHeight = 16object tmrTick: TTimerEnabled = FalseOnTimer = tmrTickTimerLeft = 65535Top = 2endend |
/p> SCRN.pas
| unit Scrn; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, ExtCtrls; type TScrnFrm = class(TForm)tmrTick: TTimer;procedure tmrTickTimer(Sender: TObject);procedure FormShow(Sender: TObject);procedure FormHide(Sender: TObject);procedure FormActivate(Sender: TObject);private{ Private declarations }procedure DrawSphere(x, y, size : integer; color : TColor);procedure DeactivateScrnSaver(var Msg : TMsg; var Handled : boolean);public{ Public declarations }end; var ScrnFrm: TScrnFrm; implementation {$R *.DFM} uses Cfg; var crs : TPoint; { Оригинальная позиция курсора мыши.} function Min(a, b : integer) : integer; begin if b < a thenResult := belseResult := a;end; {Min} procedure TScrnFrm.DrawSphere(x, y, size : integer; color : TColor); var i, dw : integer;cx, cy : integer;xy1, xy2 : integer;r, g, b : byte;begin with Canvas do begin{Заполняем установки карандаша и кисти.}Pen.Style := psClear;Brush.Style := bsSolid;Brush.Color := color;{Подготовим цвета для сфер.}r := GetRValue(color);g := GetGValue(color);b := GetBValue(color);{Рисуем сферу.}dw := size div 16;for i := 0 to 15 do beginxy1 := (i * dw) div 2;xy2 := size - xy1;Brush.Color := RGB(Min(r + (i * 8), 255), Min(g + (i * 8), 255),Min(b + (i * 8), 255));Ellipse(x + xy1, y + xy1, x + xy2, y + xy2);end;end;end; {TScrnFrm.DrawSphere} procedure TScrnFrm.DeactivateScrnSaver(var Msg : TMsg; var Handled : boolean); var done : boolean;begin if Msg.message = WM_MOUSEMOVE thendone := (Abs(LOWORD(Msg.lParam) - crs.x) > 5) or(Abs(HIWORD(Msg.lParam) - crs.y) > 5)elsedone := (Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP) or(Msg.message = WM_SYSKEYDOWN) or (Msg.message = WM_SYSKEYUP) or(Msg.message = WM_ACTIVATE) or (Msg.message = WM_NCACTIVATE) or(Msg.message = WM_ACTIVATEAPP) or (Msg.message = WM_LBUTTONDOWN) or(Msg.message = WM_RBUTTONDOWN) or (Msg.message = WM_MBUTTONDOWN);if done thenClose;end; {TScrnFrm.DeactivateScrnSaver} procedure TScrnFrm.tmrTickTimer(Sender: TObject); const sphcount : integer = 0;var x, y : integer;size : integer;r, g, b : byte;color : TColor;begin if sphcount > CfgFrm.spnSpheres.Value then beginRefresh;sphcount := 0;end;Inc(sphcount);x := Random(ClientWidth);y := Random(ClientHeight);size := CfgFrm.spnSize.Value + Random(50) - 25;x := x - size div 2;y := y - size div 2;r := Random($80);g := Random($80);b := Random($80);DrawSphere(x, y, size, RGB(r, g, b));end; {TScrnFrm.tmrTickTimer} procedure TScrnFrm.FormShow(Sender: TObject); begin GetCursorPos(crs);tmrTick.Interval := 1000 - CfgFrm.spnSpeed.Value * 90;tmrTick.Enabled := true;Application.OnMessage := DeactivateScrnSaver;ShowCursor(false);end; {TScrnFrm.FormShow} procedure TScrnFrm.FormHide(Sender: TObject); begin Application.OnMessage := nil;tmrTick.Enabled := false;ShowCursor(true);end; {TScrnFrm.FormHide} procedure TScrnFrm.FormActivate(Sender: TObject); begin WindowState := wsMaximized;end; {TScrnFrm.FormActivate} end. |
/p> Spheres.dpr
| program Spheres; uses Forms, SysUtils,Scrn in 'SCRN.PAS' {ScrnFrm},Cfg in 'CFG.PAS' {CfgFrm}; {$R *.RES} {$ D SCRNSAVE Spheres Screen Saver} begin {Возможен запуск только одной копии.}if hPrevInst = 0 then beginif (ParamCount > 0) and (UpperCase(ParamStr(1)) = '/S') then begin{ScrnFrm должна быть главной формой.}Application.CreateForm(TScrnFrm, ScrnFrm);Application.CreateForm(TCfgFrm, CfgFrm);end else begin{CfgFrm должна быть главной формой.}Application.CreateForm(TCfgFrm, CfgFrm);Application.CreateForm(TScrnFrm, ScrnFrm);end;Application.Run;end;end. |
| [Compiler] A=1 B=0 D=1 F=0 I=1 K=1 L=1 P=1 Q=0 R=0 S=1 T=0 U=1 V=1 W=0 X=1 Y=1 [Linker] MapFile=0 LinkBuffer=0 DebugInfo=0 OptimizeExe=1 StackSize=16384 HeapSize=8192 [Directories] OutputDir= SearchPath= Conditionals= [Parameters] RunParams=/s |
