эх ты, в procedure TForm1.FormCreate(Sender: TObject); убери вот эту команду SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 1); и у тебя получится что при активации формы только активируется таймер, который в свою очередь будет выполнять данную команду. Вот и все.
А в данном случае у тебя активируется таймер, и сразу же выключается монитор. Понял ли?Добавлено (01.09.2011, 08:42)
---------------------------------------------
Code
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i:integer;
a:integer:
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
a := 1;
i := a + 1;
if i = 5 then
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1);
end;
end.
Вот полный листинг кода
РС: таймер должен быть выключен, либо убираешь процедуру которая в Form Create