Question

delphi 时钟控制问题

我想在8:00 - 13:00 之间禁止执行某些操作
怎么实现？

Answer 1

procedure p();
var
s: String;
begin
while true do
begin
s := FormatDateTime('hh:nn', Now());
if (s > '08:00') and (s < '13:00') then
if Form1.Button1.Enabled then Form1.Button1.Enabled := false
else
if not Form1.Button1.Enabled then Form1.Button1.Enabled := true;
Sleep(1000)
end
end;

procedure TForm1.Button2Click(Sender: TObject);
var id: Cardinal;
begin
//创建线程
CloseHandle(CreateThread(nil, 0, @p, nil, 0, id));
end;

Answer 2

给程序加个 TTimer 控件， interval 设为 1000，，然后在timer 的事件里判断时间，如果是 8:00 - 13:00 之间 就设置某些功能禁止执行

Answer 3

uses DateUtils;

用timer里面加入
var
h,m,s,ms:Word;
begin
DecodeTime(Now,h,m,s,ms);
ShowMessageFmt('%D,%D,%D,%D',[h,m,s,ms]);
end;
来获得时间
然后比对时间是否在你的要求里面,如果在就执行相应的操作.
至于禁止某些操作,就要根据操作分类 来写上代码了.