OnTimerで

りーや 2005-07-20 17:29:03 No: 16452

OnTimerでの指定した時間にプログラムを動作させるやり方を教えてださいっ
もしくは、他に良いものがあればそちらでも良いので

deldel 2005-07-20 18:25:32 No: 16453

以下の例では、Timer1のintervalを60000にすると、9:00:00〜9:00:59の間に
１回だけメモ帳が起動するはずです。

procedure TForm1.Timer1Timer(Sender: TObject);
var
  saTime: AnsiString;
begin
  saTime := FormatDateTime('hh:mm', Now);
  if saTime = '09:00' then
    ShellExecute(Handle, nil, PChar('notepad.exe'), nil, nil, SW_SHOW);
end;

HOta 2005-07-20 18:50:55 No: 16454

OnTimer以外には、OSのタスクが負荷が少なくて良いですね。