کمک ... خاموش کردن مونیتور ؟

[hamidoooo]

با سلام
روش زیر برای خاموش و روشن کردن مونیتور هست


روشن کردن


SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, - 1)


خاموش کردن



SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0)


اما این روش روی همه مونیتور ها جواب نمیده
مثلا روی مونیتور من که سامسونگ هست جواب نمیده
ایا از دوستان کسی هست که روشی رو بلد باشه که روی همه مونیتورها جواب بده؟

[Valadi]

SendMessage(Application.Handle,wm_SysCommand,SC_Mo nitorPower,1);


SendMessage(Application.Handle,wm_SysCommand,SC_Mo nitorPower,-1);

این کدها را تست کن

[yashar666]

این رو همه کار میکنه


unit pasTurnOffMonitor;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
sendmessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_MONITO RPOWER,2);
timer1.Enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_SHIFT,0,0 ,0);
timer1.Enabled := false;
end;
end.

[hamidoooo]

خیلی خیلی ممنونم

[شهریار بهمن پور]

فکر نکنم این کدا مانیتور رو خاموش کنن فقط اونو Stand by میکنن مثله وقتی که سیستم رو stand by میکنید

[Delphi-Man]

فکر نکنم این کدا مانیتور رو خاموش کنن فقط اونو Stand by میکنن مثله وقتی که سیستم رو stand by میکنید
منم همین فکرو می کنم، چون با یک کلیک سریع روشن میشه و با یه کلیک سریع خاموش میشه، البته در standby کمی طول میکشه...