[巨难]我快疯了!!!!若能解决,另开贴送100分!!! (20分)

  • 主题发起人 主题发起人 07idea
  • 开始时间 开始时间
0

07idea

Unregistered / Unconfirmed
GUEST, unregistred user!
行吗?
若能解决,另开贴送110分
加分地址
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2461670
 
可以编一个全黑的form全屏显示不就好了吗?
 
不是,这不是我想要实现的!有没有办法?
 
关闭显示器
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

打开显示器
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
 
只是关闭显示器吗?
怎么没反应呢?我的系统是XP
 
确实,这个当初是在windows 98下测试通过的。
我的计算机是2003,也无效。
 
那请问这个是关闭显示器的吗?只是关闭显示器吗?我要的是关闭显卡显示
 
2000下原来换了一点点。
如下代码在2003下测试通过,记得使用Timer打开,否则你只有关机了。
procedure TForm1.Timer1Timer(Sender: TObject);
begin

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
end;

 
什么叫做关闭显卡?让显卡处于省电模式?
不往显示器输出信号了,就等于关闭显示器了,就等于黑屏了。

你测试一下,看是否满足需求。
记得设置Timer的interval。一面无法再次看到屏幕。
 
谢谢,你上面的代码可以用,但要怎么让显卡处于省电模式?
 
怎么把在2000的机器上用你的代码,虽然可以让显示器黑屏,但鼠标或键盘一动就恢复了?你不是说只有重开机才会显示吗?

我要的说让显卡黑屏,而且只有重开机才能恢复
 
这个不用定时器吧,晃晃鼠标就会亮的吧。嘿嘿。
牛一点的是这样子:
1。使用 DirectX 独占全屏显示。
2。使用 DirextX 封掉 ctrl+alt+del 。
3。使用优先级调到实时状态。
4。嘿嘿,死去吧。
 
把分辨率调成很高很高如何啊?
 
分辨率调高没用,快速压回车就恢复了。不过,这个主意不错,够牛的水准了。
 
Sorry,没有经过仔细测试,当时试验成功了以为就好了。
仔细给你查了一下,有两个相关链接:

1、MSDM关于这个函数的解释。
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/WinUI/WindowsUserInterface/UserInput/KeyboardAccelerators/KeyboardAcceleratorReference/KeyboardAcceleratorMessages/WM_SYSCOMMAND.asp

2、一个需要实现你功能的网上付费开发。
http://www.rentacoder.com/RentACoder/misc/BidRequests/ShowBidRequest.asp?lngBidRequestId=76763

你可以考虑使用其他办法,譬如休眠、待机、屏保等来迂回实现吧。

===================
没想到出来透口气竟然没有喘出来[:D]
===================
 
以前我曾经用wmp播放MP3,然后很长一段时间没去动电脑,结果电脑黑屏了,但仍可以听到歌曲,还可以“摸黑操作”,我按键盘上的Alt + F4可以关掉WMP,还可以关机。而这些操作都是在黑屏情况进行的。所以,要怎么才能像这个一样的黑屏?
 
to 07概念
你发生的情况不是系统提供的功能,而是硬件不支持高级电源管理所出现的问题。
 
那有无办法可以实现?
 
我做不到。sorry 。
 
其实上面那个征求的文档里面也能看到一些实现思路。

如果通过操作硬件驱动也许可以。就是那类DeviceControl什么的。
因为Windows本身可以做到如此。
且发送那个消息也是可以的。

其实我最上面贴的那段代码在 98下是完全奏效的。可恨的NT啊。。。
 

Similar threads

D
回复
0
查看
911
DelphiTeacher的专栏
D
D
回复
0
查看
868
DelphiTeacher的专栏
D
D
回复
0
查看
840
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部