Предотвратить Screen Saver при запускеDelphi , Графика и Игры , ScreenSaver и ScreenMateПредотвратить Screen Saver при запуске
Оформил: DeeCo interface private procedure AppMessage(var Msg: TMsg; var handled: Boolean); end; implementation procedure TForm1.AppMessage(var Msg: TMsg; var handled: Boolean); begin if (Msg.Message = WM_SYSCOMMAND) and (Msg.wParam = SC_SCREENSAVE) then Handled := True; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := AppMessage; end; { Note: The Screensaver is only disabled during the lifespan of your application. Bemerkung: Der Screensaver bleibt nur solange deaktiviert, wie ihre Applikation lдuft. $ } Статья Предотвратить Screen Saver при запуске раздела Графика и Игры ScreenSaver и ScreenMate может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: ScreenSaver и ScreenMate ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |