如何控制显示器的开关(50分)

鹦

鹦鹉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #1

各位大虾，请教一个问题，就是怎样控制显示器的显示。
比如，在某满足一条件下，计算机的显示器黑屏，不显示内容，在某一条件下，
计算机恢复正常显示。

如果知道，请mail2 :reisher@sohu.com

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #2

休眠和唤醒？

 

鹦

鹦鹉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #3

因该是，反正就是使显示器黑屏

 

L

lanjiancn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #4

不是吧

 

R

RainySoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #5

呵呵，你可以做一个类似屏幕保护程序的东西，然后把form的背景颜色设置为clBlack,
呵呵，不就和关了一样？(比较投机躯壳)

 

V

vikyshen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #6

如果你的系统是windows9x可以用delphi中的api函数
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);关闭显示器
可以自己设置热键执行下面的代码开启显示器
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
winnt系统的话我就不知道了如果有高手可以发邮件给我
vikyviky3@163.net

 

V

vikyshen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #7

你可以做个热键啊，第一你要使你的程序响应，第二你要使开启显示器的代码执行，我给个
简单的例子你把，用时间控件做个热键把，因为做系统热键比较复杂，不容易讲清楚
先你把个ttimer控件放在form上
在他的事件中写
if (inttostr( getasynckeystate(k)) <>'0')then
begin
sendmessage(handle,wm_SYSCOMMAND,SC_MONITORPOWER,1);
end;
其中的‘k’是你键盘中的键码，你可以去查，
最简单的方法就是：
你放两个tbutton控件，一个做关闭显示器，一个做开启显示器，把开启显示器按纽的
cancel属性设置为true，这样当你的显示器黑屏了只要按一下ESC键就会执行开启显示器
按纽中的代码了
是了告诉你这么多了你有没分给我啊

 

D

delphi_lsl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #8

agree vikyshen !!!

 

鹦

鹦鹉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #9

接受答案了.