Текущий архив: 2003.01.30;
Скачать: CL | DM;
Вниз
Как зделать чтобы прога исполнялась в определённое время? Найти похожие ветки
← →
mdaemon (2002-12-04 13:40) [0]Вот мне надо написать прогу которая запускаеться в определённое время ориентируясь по системному... Помогите кто может...
← →
Reindeer Moss Eater (2002-12-04 13:53) [1]Вот мне надо написать ...
File->New Application->F9 и все готово.
← →
mdaemon (2002-12-04 14:38) [2]Reindeer Moss Eater
Ну и разшифруй чё ты написал...
← →
Vovchik_A (2002-12-04 15:27) [3]Ты эта...
Пускай свою прогу из шедулера
И голова болеть не будет
← →
mdaemon (2002-12-04 16:07) [4]Vovchik_A
не мне надо программным путём....
← →
Vovchik_A (2002-12-04 16:23) [5]А почему ? Сдается мне, шо планируешь прогу неправильно изначально...
← →
Reindeer Moss Eater (2002-12-04 16:23) [6]Вот мне надо написать прогу которая запускаеться в определённое ....
Расшифровываю:
Запускаем Delphi
В главном меню выбираем File->New Application
Нажимаем F9
Прога готова.
Что бы её запускать по расписанию, пишем вторую, в которой запускаем первую с помошью CreateProcess
← →
Deader © (2002-12-05 01:13) [7]Ну почему же можно и по таймеру запустить
← →
mdaemon (2002-12-05 14:09) [8]ну народ я ведь прошу чтоб прога автоматически запускалась ориентируясь по системному времени а вы что это не советы... есть люди которые смогут мне нормально помочь?..
← →
Reindeer Moss Eater (2002-12-05 14:25) [9]Проги автоматически не запускаются. Их кто-то запускает.
Тебе дали два конкретных совета - штатный шедулер и своя программа-запускалка.
Что еще неясно?
← →
John (2002-12-05 23:03) [10]Короче попробуй так:
у проги на старте( Project>ViewSource ) пишем
const
Flag= True;
var
Time1: String;
Time2: String;
Flag: Boolean;
implementation
while Flag= True do
begin
Time1:= DateTimeToStr(Date+Time);
Time2:= "01.01.2002 19:00"//твоё время мона из констант;
If Time1= Time2 then Flag:= False;
sleep( 2000 );
end;
Application.Initialize;
Application.Title:= "Start";
MainForm:= TMainForm.Create( Application );
MainForm.Show;
end;
и типа того
прога будет грузиться, ждать коды будет время, а затем инициализируется и грузит форму..
← →
Reindeer Moss Eater (2002-12-06 10:11) [11]Jonh, ты просто гений
← →
Anatoly Podgoretsky © (2002-12-06 10:23) [12]Чрезвычайна высока вероятность, что программа будет зациклена, вероятность почти 100 процентная, вот это практически никогда не будет выполнено, так что 100% гений.
Прпавда вероятность откомпилировать эту программк стремится к нулю.
← →
Reindeer Moss Eater (2002-12-06 10:32) [13]Да и время ее запуска с 01.01.2002 19: 00 ничего общего не имеет
← →
John (2002-12-06 16:35) [14]Привожу 100% рабочий код
program Project1;
uses
Classes,
SysUtils,
Controls,
Forms,
Unit1 in "Unit1.pas" {Form1};
{$R *.res}
var
Time1, Time2: TTime;
begin
Time1:= StrToTime( "1:29" ); //
← →
John (2002-12-06 16:36) [15]Привожу 100% рабочий код
program Project1;
uses
Classes,
SysUtils,
Controls,
Forms,
Unit1 in "Unit1.pas" {Form1};
{$R *.res}
var
Time1, Time2: TTime;
begin
Time1:= StrToTime( "1:29" ); //время
while Time1> Time2 do
begin
Time2:= Time;
sleep( 2000 );
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
← →
John (2002-12-06 16:41) [16]Вот и усё..
← →
Reindeer Moss Eater (2002-12-06 17:07) [17]John, ты смешал два понятия в кучу. Запуск программы в определенное время и выполнение запущенной программой определенных действий в указанное время
Страницы: 1 вся ветка
Текущий архив: 2003.01.30;
Скачать: CL | DM;
Память: 0.5 MB
Время: 0.019 c
