Как зделать авто выполнение

[Editor]

вот код
MessageBox(0,'666','666',16); \\ну не обязательно этот конешна ну чтоб любой)
как зделать чтоб он выполнялся через каждые 10 сек?..

[N!ckeL]

1) таймер
2)

private a:boolean;.....
var
 b:boolean;
begin
b:=true;
while b=true do
begin
MessageBox(0,'666','666',16);
sleep(99999);
if a=true then
break;
end;
end;

[Editor]

private a:boolean;..... \\это чё?
var
b:boolean;
begin
b:=true;
while b=true do
begin
MessageBox(0,'666','666',16);
sleep(99999); \\это чё?
if a=true then
break;
end;
end;

[Witaliy]

Или компонентом TTimer.
Код


procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := true;
Timer1.Interval := 10000 ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
MessageBox(0,'666','666',16);
end;
// стоп
procedure TForm1.StopClick(Sender: TObject);
begin
Timer1.Enabled := false;
end;

[N!ckeL]

Для выхода из цикла, иначе прога встанет в бесконечном цикле, где нибудь, когда нужно остановить "авто выполнение" присваиваешь ей true и всё...

sleep(99999); \\это чё?

Это значит тупо стоим и ничего не делаем 99999 милесекунд.

[Editor]

Спасибо...Всё работает)