Delphi-Help

Главная Статьи ScreenSaver и ScreenMate Как запустить текущий Screen Saver?

Как запустить текущий Screen Saver?

Оцените материал
(0 голосов)


Как запустить текущий Screen Saver?

procedure TForm1.Button1Click(Sender: TObject);
begin
   SendMessage( Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0 );
end;
Прочитано 4693 раз

Авторизация



Счетчики