Ttimer调用问题(100)

在窗体上放两个Ttimer控件，但程序总是不按我的意图执行，请问我调用的两个Ttimer控件有何问题？procedure TForm1.Timer1Timer(Sender: TObject);var h: THandle; LT : TSYSTEMTIME; st:string; zst:integer;begin h:=FindProcessName; if h<>0 then begin Timer2.Enabled := True; GetLocalTime(LT); //取得当前时间 st:=IntToStr(LT.wHour); //将当前小时数变成字符串 zst:=strtoint(st); // 将字符串变成整型数if (16<zst) and (zst<23) then //我的意图是在16-23点禁止"某程序.exe"运行begin Timer1.Enabled:=true;Timer1.Interval :=3000;endelsebeginTimer1.Enabled:=False; end; end;end;procedure TForm1.Timer2Timer(Sender: TObject);begin if KillTask('某程序.exe')> 0 then end;

if (16 < zst) and (zst < 23) then // >16，表示从17点开始begin Timer1.Enabled := true; Timer1.Interval := 3000;endelsebegin Timer1.Enabled := False; //设置为false，就不会再执行Timer1Timer(Sender: TObject);，更不会唤醒Timer2了。end;--------------------------其实一个timer就可以了。procedure TForm1.Timer1Timer(Sender: TObject);var LT: TSYSTEMTIME; h: THandle;begin GetLocalTime(LT); if (LT.wHour <= 16) or (LT.wHour >= 23) then Exit; h := FindProcessName; if h=0 then Exit; KillTask('某程序.exe');end;

楼上说的没错~~

多谢了！