编程论坛 → Delphi论坛

[求助] 用Delphi6制作控制电脑显示器开关的小软件

shuai 发布于 2005-03-06 12:03， 1230 次点击

我初学Delphi6 我想用Delphi6制作一个软件，用它来控制我的显示器的关闭与打开，请问这个怎么实现？

3 回复

我爱论坛2005-03-25 12:01

去VB区，有我做的VB软件，能实现这个功能，参考吧

griefforyou2005-03-25 13:01

Delphi中 procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2); end; VB中 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const WM_SYSCOMMAND = &H112& Const SC_MONITORPOWER = &HF170&

Private Sub Command1_Click() SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2 End Sub

静之泪2005-03-25 17:01

xiexie