如何用PASCAL代码关闭显示器

Question

我需要关闭显示器的代码，用于WIN2K。
要求显示器关闭后批示灯呈黄色（就是不要让它一闪闪的或者一直亮着就好了，看上去就是关闭时的样子）打开程序就自动关闭显示器，鼠标和键盘操作都不要使它重开，
有设置某个快捷键组合来重新打开（这个功能可以暂不考虑）要求在TP7或者DELPHI下两者任一能编译后正常运行的。

Answer 1

procedure closemaster(Bclose:boolean);
begin
  if Bclose then
    masterpowerbtn.click;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  Perform(WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end;

Answer 3

我在别的地方看到这样的：SendMessage(GetDesktopWindow,   WM_SYSCOMMAND,   SC_MONITORPOWER,   2 );和hongqi162的差不多，这里的1和2分别有什么不同的作用？

Answer 4

SendMessage(GetDesktopWindow,   WM_SYSCOMMAND,   SC_MONITORPOWER,   -1/0{-1，即为True，打开；0，即为False，关闭} );