По использованию таймера
Друзья помогите мне плиз как сделать чтобы запускался код в запланированной дате? Ну я хочу чтобы код запустился через 3 или 4 мес.
Скажим просто чтобы запустился это
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
ExitWindowsEx(tag,0);
end;
end.
Конечно это глупо, но я просто учусь подшутить))) |
Примерно так:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
s:string;
begin
s:='15.06.2010'; //Ваша дата
if Date>=StrToDate(s) then ExitWindowsEx(tag,0); //Если текущая дата соответствует переменной s то выполнить ExitWindowsEx(tag,0);
end;
|
Цитата:
Цитата Onclick
Конечно это глупо, но я просто учусь подшутить))) »
|
С таких невинных шуток начинаются вирусописатели. И по большому счёту, то что вы хотите, именуется таким выражением как - логическая бомба. |
Время: 20:01.
© OSzone.net 2001-
