اطفاء و تشغيل شاشة الكمبيوتر برمجيا

[Adnan]

تستطيع اطفاء و تشغيل شاشة الكمبيوتر برمجيا من خلال بعض التعليمات
و هنا مثال لمبرمجين ديلفي طبعا كود اليونيت كاملة فقط ضع عنصر من TTimer

==========
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
counter:byte;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(counter);
if counter=2 then
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
if counter=6 then
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, - 1);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
counter:=0;
end;

end.
=================================

البرنامج تجده هنــا (http://www.electvillage.com/ve/files.php?action=viewfile&f=339&s=)

[AWE]

:(