Задержать запуск программы

[David]

Знаю видел и читал в форуме, но не могу найдти, если можно помогите
В основной программе вызываю другую программу, но нужно, задержать её запуск на N минут. Как?

Ну, что-то в этом роде

Код: Выделить всё

Txt0 = Shell("C:\AAA\BBB.exe",1)

или

Код: Выделить всё

Call ExecCmd("C:\AAA\BBB.exe", Wait - в минутах)

Спасибо за попытку ответить

[GSerg]

Попытаюсь.
Сначала ждать, а потом запускать без ожидания.

[Хакер]

Назовём программу, которая запускает другую "заказчиком".
А ту, которую запускают "исполнителем".

Так вот, GSerg, что если заказчика завершат раньше чем придёт время запускать исполнителя?

[Amed]

Код "заказчика" просто прекратит выполняться.

[Хакер]

Amed, было бы удивительно, если бы он продолжал выполняться.

Дело в том, что ведь тогда испольнитель так и не запустится.

[Amed]

А это уже претензия к задавшему вопрос - он не оговорил момент

Конечно, не запустится.

[David]

Amed писал

Код "заказчика" просто прекратит выполняться.

Вообще-то это меня даже устраивает, главное что-бы "исполнителем" запустился даже если "заказчик" прекратит выполняться.

А вообщем спасибо всем за проявленый интерес, надеюсь на ваш опыт

[Random]

Может тогда запускать "Исполнитель" через промежуточную программу, состоящию и таймера и Shell?
Заказчик -> Промежуточая Прога -> Исполнитель?
Тогда время жизни заказчика не будет иметь значение.
Думаю ActiveХ EXE вполне подойдет для этих целей....

[GSerg]

Ну в принципе тогда http://msdn.microsoft.com/library/en-us ... frame=true

[David]

GSerq писал

Ну в принципе тогда http://msdn.microsoft.com/library/en-us ... frame=true

Я посмотрел ссылку, которую ты предложил в принципе я не очень все понял, да и это нормально, т.к. я вообще-то программист любитель, и иногда пишу программы для улегчения моих объязанностей на работе, поэтому я позволю себе попросить тебя привести пример более подробно точнее объяснить, либо как использовать, передавать и получать переменные я не ПОНЯЛ

что это и с чем его едят

Код: Выделить всё

NET_API_STATUS NetScheduleJobAdd(
    LPCWSTR Servername,
    LPBYTE Buffer,
    LPDWORD Jobld
);

Код: Выделить всё

Public Sub Main()
    где-то я вызываю выполнение другой программы с задержой в 5 минут
End Main

Вообщем в любом случае большое спасибо,

[GB826]

Да к сожалению, русский MSDN тока по фреймворку, хотя может я ошибаюсь.

А может ничего писать не надо, а взять существующий планировщик?

[GSerg]

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

Код: Выделить всё

Option Explicit

Private Declare Function NetScheduleJobAdd Lib "NETAPI32.dll" (ByVal servernameW As Long, ByRef Buffer As Any, ByRef JobId As Long) As Long

Private Type AT_INFO
  JobTime As Long
  DaysOfMonth As Long
  DaysOfWeek As Byte
  Flags As Byte
  CommandW As String
End Type

Private Sub Form_Load()
  Dim i As AT_INFO
 
  i.DaysOfMonth = 0
  i.DaysOfWeek = 0
  i.JobTime = CLng(CDbl(#1:36:00 PM#) * 86400000)
 
  i.CommandW = StrConv("notepad.exe", vbUnicode)
 
  NetScheduleJobAdd 0, i, 0
End Sub