Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > неполучается "потушить" экран

Автор: Trotter 18.12.2006, 00:11

неполучается "потушить" экран, прога запускается а всё бестолку вот мой код

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
end;

Нужен рабочий код

Автор: jaAlex 18.12.2006, 00:40

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end;

Лови. И пробуй эксперементировать.