как исполнить файл по таймеру

[MixanMM]

ЮДобрый день, вот такая вот проблемма, (может повторяюсь, но не нашел) нужно что бы раз в день срабатывал таймер на открытие файла. Например наступило время 6.50 и таймер открывает bat'никЖ вообщем вот наваял:

d:=datetostr(Date);
         OpenFile(f,'c:\edo\'+d+'\1.bat');
         CloseFile(f);

но выдает ошибку: "Too many actual parametrs" что и где нетак я так и не понял. Подскажите, заранее благодарен

[KREGI]

uses
ShellApi;

...

ShellExecute(Handle, 'open', PChar('c:\edo\'+d+'\1.bat'), nil, nil, SW_SHOW);

Попробуйте так.

[MixanMM]

не помогло к сожаленью =( вообщем вот весь код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure OpenFile;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  d : string;

implementation

{$R *.dfm}


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  d:=datetostr(date);
 ShellExecute(Handle,'open',Pchar('v:\mb\iaiai\'+d+'\1.bat')nil,nil,sw_show);

end;

end.


[Error] Unit1.pas(33): Missing operator or semicolon
[Error] Unit1.pas(33): Incompatible types: 'Integer' and 'PAnsiChar'

[KREGI]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  d : string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
d:=datetostr(date);
ShowMessage(d);
ShellExecute(Handle, 'open', PChar('c:\'+d+'\debug.txt'), nil, nil, SW_SHOW);
end;

end.

Все работает.

10:01

Вы пропустили запятую

ShellExecute(Handle,'open',Pchar('v:\mb\iaiai\'+d+'\1.bat'),nil,nil,sw_show);

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[MixanMM]

Ребят, всем огромное спасибо !, ну и "+" в репу )) и вопрос: Ежели я его в трей сверну он будет постоянно запускатся через время "х"?

[KREGI]

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

Ребят, всем огромное спасибо !, ну и "+" в репу )) и вопрос: Ежели я его в трей сверну он будет постоянно запускатся через время "х"?

в трей не сворачивают, а скрывают приложение и отображают иконку в трее...
Да будет.