| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как зделать чтобы прога исполнялась в определённое время? [D6, Win95/98]
mdaemon © (2002-12-04 13:40:00)Вот мне надо написать прогу которая запускаеться в определённое время ориентируясь по системному... Помогите кто может...
Reindeer Moss Eater (2002-12-06 17:07:00) [1]John, ты смешал два понятия в кучу. Запуск программыв определенное время и выполнение запущенной программойопределенных действий в указанное время
John (2002-12-06 16:41:00) [2]Вот и усё..
John (2002-12-06 16:36:00) [3]Привожу 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:35:00) [4]Привожу 100% рабочий код
program Project1;
uses
Classes,
SysUtils,
Controls,
Forms,
Unit1 in "Unit1.pas" {Form1};
{$R *.res}
var
Time1, Time2: TTime;
begin
Time1:= StrToTime( "1:29" ); //
Reindeer Moss Eater (2002-12-06 10:32:00) [5]Да и время ее запуска с 01.01.2002 19: 00 ничего общего не имеет
Anatoly Podgoretsky (2002-12-06 10:23:00) [6]Чрезвычайна высока вероятность, что программа будет зациклена, вероятность почти 100 процентная, вот это практически никогда не будет выполнено, так что 100% гений.
Прпавда вероятность откомпилировать эту программк стремится к нулю.
Reindeer Moss Eater (2002-12-06 10:11:00) [7]Jonh, ты просто гений
John (2002-12-05 23:03:00) [8]Короче попробуй так:
у проги на старте( 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-05 14:25:00) [9]Проги автоматически не запускаются. Их кто-то запускает.
Тебе дали два конкретных совета - штатный шедулер и своя программа-запускалка.
Что еще неясно?
mdaemon (2002-12-05 14:09:00) [10]ну народ я ведь прошу чтоб прога автоматически запускалась ориентируясь по системному времени а вы что это не советы... есть люди которые смогут мне нормально помочь?..
Deader (2002-12-05 01:13:00) [11]Ну почему же можно и по таймеру запустить
Reindeer Moss Eater (2002-12-04 16:23:00) [12]Вот мне надо написать прогу которая запускаеться в определённое ....
Расшифровываю:
Запускаем Delphi
В главном меню выбираем File->New Application
Нажимаем F9
Прога готова.
Что бы её запускать по расписанию, пишем вторую, в которой запускаем первую с помошью CreateProcess
Vovchik_A (2002-12-04 16:23:00) [13]А почему ? Сдается мне, шо планируешь прогу неправильно изначально...
mdaemon (2002-12-04 16:07:00) [14]Vovchik_A
не мне надо программным путём....
Vovchik_A (2002-12-04 15:27:00) [15]Ты эта...
Пускай свою прогу из шедулера
И голова болеть не будет
mdaemon (2002-12-04 14:38:00) [16]Reindeer Moss Eater
Ну и разшифруй чё ты написал...
Reindeer Moss Eater (2002-12-04 13:53:00) [17]Вот мне надо написать ...
File->New Application->F9 и все готово.
| |
