我按照书上讲的做了个小例子。我想把它加入到计划任务中,以做定时提醒。但不知怎么向它传递参数(这样就可以传送不同的提示信息了)。主要代码如下:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if label1.Caption='欢迎您到飞翔电脑、英语班来' then
    label1.Caption:='Welcom to Feixiang Computer,English Class'
  else
    label1.Caption:='欢迎您到飞翔电脑、英语班来';
  for x:=1 to 10 do
    beep;
end;

解决方案 »

  1.   

    计划任务中怎么能这么传递参数呢?
    你的代码让效果一闪就过了,不能实现你要的效果啊,Study
      

  2.   

    用SLEEP函数嘛,想停多久都行,不过慎重告诉你哦,是整个进程停止运作的,考虑清楚再用,呵呵..
      

  3.   

    用命令行参数.该参数可以用paramstr(n)来取
      

  4.   

    知道了,用命令行参数.原来用命令行参数时,在程序中根本就不用有接收参数的语句,直接用ParamStr(n)调用就可以了:
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      if label1.Caption=paramStr(1) then
        label1.Caption:=paramStr(2)
      else
        label1.Caption:=paramStr(1);
      for x:=1 to 10 do
        beep;
    end;
    真的不错,感谢singun!
    不会只是一闪就没了呀