Выполнение действия в заданное время

[WOWan234]

Люди помогите пожилуста!!! Как сделать штобы программа в заданное время выполнила определенное действие???!

[Сильванович Михаил]

Если особая точнось не важна, то ставишь таймер с интервалом в 60000 мс (1 минута), а на событие WM_TIMER должна реагировать
процедура, определяющая, нужно ли сейчас что-то делать или нет.
Соответственно, если действие однократное, отрубаем таймер.

[Alar]

http://www.programmersclub.ru/labtimer

[WOWan234]

Сообщение от Сильванович Михаил

Если особая точнось не важна, то ставишь таймер с интервалом в 60000 мс (1 минута), а на событие WM_TIMER должна реагировать
процедура, определяющая, нужно ли сейчас что-то делать или нет.
Соответственно, если действие однократное, отрубаем таймер.

Нет мне надо штобы прога выполнила действие в определенную дату!!например 1 апреля.а через таймер так не получится.

[Egych]

Просто узнаешь текущую дату:

procedure ShowTime;
var Now: TDateTime;
begin
Label1.Caption:=FormatDateTime('dd. mm.yyyy', Now);
end;

помоему так, если не ошибаюсь... Прописываешь ее где-нить на Form.Show, а потом сравниваешь со своей заданной

[Сильванович Михаил]

To Egych: Одно "но". Бывает, что компьтеры невыключают вообще, тогда
этот вариант не годится.

To WOWan234: Ставь проверку при запуске + таймер с интервалом 1-2 м минуты. Поэтому таймер очень даже годится.

[Shuraken]

uses Registry;

type
TForm1 = class(TForm);
...
private
FHaveDateInRegistry: boolean; //флаг для проверки - была ли занесена запись в реестр
FRegistry: TRegistry; //переменная для работы с реестром
FDateTime: TDateTime;
...

procedure TForm1.FormCreate(Sender: TObject);
begin
FRegistry := TRegistry.Create;
FRegistry.RootKey := HKEY_CURRENT_USER;
FRegistry.OpenKey('\MyVarDateTime', true);
FHaveDateInRegistry := FRegistry.ValueExists('FHaveDateTim eInRegistry'); //при первом запуске программы эта переменная не будет в реестре, поэтому возвращаемое значение будет false.
{ дальше возможны варианты. Например на форме расположен компоненты TDateTimePicker, по которым ты и определяешь дату и время, когда сработает программа и кнопка для записи даты в реестр.}
if FHaveDateInRegistry then //запись существует, значит все что нужно, в реестре уже есть
begin
if FRegistry.ValueExists('DateTimePick er12')
then FDateTime := FRegistry.ReadDateTime('DateTimePic ker12')
else FDateTime := EncodeDateTime(2007, 4, 1, 12, 0, 0, 0);
DateTimePicker1.Visible := false;
DateTimePicker2.Visible := false;
Button1.Visible := false;
Timer1.Enabled := true;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FRegistry.WriteBoolean('FHaveDateIn Registry', true);
FRegistry.WriteDateTime('DateTimePi cker12', Trunc(DateTimePicker1.DateTime) + frac(DateTimePicker2.DateTime));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FDateTime = Date + Time then
<твое событие>
end;