запуск приложений Delphi 2007, ShellAPI

[combays]

Помогите..,,,))
Вот Как в Делпхи 2007 создать Порграмму чтобы она была как таймер,и Нап:

через 30 мин. открыла /ххх/ххх/х.хх
после етого через 3 мин еше раз открыла /ххх/ххх/х.хх
после етого через 3 мин еше раз открыла /ххх/ххх/х.хх
а после через 3 мин во ето /ххх/ххх/х2.хх

кто нибудь помогите !!!

[Terran]

Если, я правильно понял вопрос, то вам надо программа которая через определённое время будет запускать какие то файлы? если да, то берём компонент таймер и команду:

Uses
  ShellApi,...
----------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShellExecute(Application.Handle,'Open','Путь к файлу',Nil,Nil,SW_SHOWDEFAULT);
end;

Или команду WinExec('Путь к файлу', SW_SHOW);

[andrey4623]

function ExecuteFile(const Filename, Params, DefaultDir: string;
  ShowCmd: integer): THandle;
var
  zFilename, zParams, zDir:array[0..79] of Char;
begin
  Result := ShellExecute(Application.MainForm.Handle, nil,
    StrPCopy(zFilename, Filename),StrPCopy(zParams,Params),
    StrPCopy(zDir,DefaultDir),ShowCmd);
end;

В раздел uses добавить ShellAPI.

Так можно открыть веб-страничку:
ExecuteFile('http://www.google.ru/','','',SW_SHOW);

А так запустить файл:
ExecuteFile('C:\Program.exe','','c: \',SW_SHOW);

[combays]

Спасибо Большое Вы Мне оЧень помогли !!!
Спасибо Спасибо Спасибо Спасибо Спасибо

Но Вот люди люди я тупой балван я не понял а куда вставлять Время ??


Напр..

Uses
ShellApi,...
----------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin (вот например 13 сек сюда надо пприписать ??)
ShellExecute(Application.Handle,'Op en','Путь к файлу',Nil,Nil,SW_SHOWDEFAULT);
end;

[komex]

Сообщение от combays

Спасибо Большое Вы Мне оЧень помогли !!!
Спасибо Спасибо Спасибо Спасибо Спасибо

Но Вот люди люди я тупой балван я не понял а куда вставлять Время ??


Напр..

Uses
ShellApi,...
----------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin (вот например 13 сек сюда надо пприписать ??)
ShellExecute(Application.Handle,'Op en','Путь к файлу',Nil,Nil,SW_SHOWDEFAULT);
end;

В свойствах таймера ставишь нужное время в милисекундах.

[Noor]

Сообщение от komex

В свойствах таймера ставишь нужное время в милисекундах.

а если точнее то Interval — задает период приема сообщений таймером в миллисе-кундах, тобиж 1000мс = 1с

[combays]

Kto Nibud Mojete Menya Beztolkovoqo Barana naucit ?
Da vot ya ne ponyal qde Interval ??
I eshe Sdelayte Pliz Kto mojet i dayte ssilku na eto PLIZ !

[Stilet]

Вот примерный код, требует вероятно доработки:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
q=record
 files:string;
 interval:integer;
end;
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var w:array[1..3] of q; m:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 w[1].files:='/ххх/ххх/х.хх/';
 w[1].interval:=30000;
 w[2].files:='/ххх/ххх/х.хх/';
 w[2].interval:=3000;
 w[3].files:='/ххх/ххх/х.хх/';
 w[3].interval:=3000;
 m:=1;
 Timer1.Interval:=w[m].interval;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if m<=high(w) then begin
 ShellExecute(Application.Handle,'Open',pchar(w[m].files),Nil,Nil,SW_SHOWDEFAULT);
 inc(m);
 TTimer(sender).Interval:=w[m].interval;
end;
end;

end.

[Ring0Sn]

Помойму проще НЕКУДА

procedure TimerProc(hWnd: HWND; nIDEvent, uElapse: UINT;
                    lpTimerFunc: TFNTimerProc); stdcall;
var Last : DWORD;
begin
  ShellExecute(hWnd,'Open','/ххх/ххх/х.хх',Nil,Nil,SW_SHOWDEFAULT);
  Last := GetTickCount;
  while GetTickCount - Last < (1000*60)*{ждем}3{минуты} do Application.ProcessMessages;

  ShellExecute(hWnd,'Open','/ххх/ххх/х.хх',Nil,Nil,SW_SHOWDEFAULT);
  while GetTickCount - Last < (1000*60)*{ждем}3{минуты} do Application.ProcessMessages;

  ShellExecute(hWnd,'Open','/ххх/ххх/х.хх',Nil,Nil,SW_SHOWDEFAULT);
  while GetTickCount - Last < (1000*60)*{ждем}3{минуты}do Application.ProcessMessages;

  ShellExecute(hWnd,'Open','/ххх/ххх/х.хх',Nil,Nil,SW_SHOWDEFAULT);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetTimer(Handle, 1, (1000*60)*{интервал в}30{минут}, @TimerProc);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  KillTimer(Handle, 1);
end;

[combays]

Spasibo !!!! Spasibo !!!!
Nu Vi vse Molodci Vi mne ochen pomogli !!!!!!!!


Uraaaaaaaaaaaaaa !!!!
Samiy Lucsiy Sayt i eqo Posetiteli Tozhe @@@!!