Làm thế nào để bật/tắt (các) màn hình?

Question

Tôi muốn có thể bật/tắt màn hình của mình từ số Delphi tập lệnh, từ Windows XP đến 7.

Tôi đã tìm kiếm trong phần Delphi trên stackoverflow và không tìm thấy câu trả lời.

Tôi cũng tìm thấy nhiều mẫu không hoạt động trên Windows 7 (chỉ với XP).

Answer 1

Tôi đã thử nghiệm thành công này trên Windows XP và Windows 7:

const 
    MONITOR_ON  = -1; 
    MONITOR_OFF  = 2; 
    MONITOR_STANDBY = 1; 

Để tắt màn hình:

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF); 

Để bật màn hình:

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON);