この発言は
#00496　瑠瓏            さんの時間になったら起動する常駐プログラム
に対するコメントです



どもです　瑠瓏です。
あ、しまった、ワンショットになっていましたね。

Run手続きにwhileループ{***}を記述してください。

procedure Run;
var a:TAtom;
    h,m,s,d:word;
    n:string;
  function BreakCheck:boolean;
  begin
    Result:=GlobalFindAtom(brk)<>0
  end;
begin
  if GlobalFindAtom(doing)<>0 then
      Writeln('Error:すでに常駐しています')
  else begin
    a:=GlobalAddAtom(doing);
    while not BreakCheck do begin {***}
      repeat
        Sleep(3000); {3秒に1回チェックする}
        DecodeTime(now,h,m,s,d);
        n:=Format('%.2d:%.2d',[h,m]);
      until BreakCheck or ((n>=Stime) and (n<Qtime));
      if not BreakCheck then begin
        // WinExec または CreateProcess で実行
        repeat
          Sleep(3000); {3秒に1回チェックする}
          DecodeTime(now,h,m,s,d);
          n:=Format('%.2d:%.2d',[h,m]);
        until BreakCheck or (n<Stime) or (n>=Qtime)
      end
    end;                          {***}
    GlobalDeleteAtom(a)
  end
end;

　　　　　　　　　　　　URL=http://member.nifty.ne.jp/lereaux/
卯月、小満、晩春挿話　  FDELPHI ☆ 瑠瓏 <KHB05271@niftyserve.or.jp>
                      　FJBUILDR    Fri,4/17/98  13:23


Original document by 瑠瓏            氏 ID:(KHB05271)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。