SendMessage 关闭显示器

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




posted @ 2012-06-03 17:55  XE2011  阅读(214)  评论(0)  编辑  收藏  举报