ttimethreadclass.pas

delphi基于工业控制的串口通讯

unit TTimeThreadClass;

interface
uses
    Classes,StdCtrls, SysUtils,
    ComObj, Messages,Dialogs,activeX;
type
    TTimeThread = class(TThread)
    private
    protected
        procedure Execute; override;
    public

    end;
implementation

uses UnitPublic, UnitMain;
procedure TTimeThread.Execute;
begin
    inherited;
    FreeOnTerminate:=True;
	try
        CoInitialize(nil);
        while not terminated do
        begin
            //Now_Week :=NowWeek(now);
            //Now_Time :=ForMatdatetime('hh'':''mm'':''ss',now);
            frm_Main.L_NowWeek.Caption:='当前星期：'+NowWeek(now);
            frm_Main.L_Date.Caption   :='当前日期：'+ForMatdatetime('yyyy''-''mm''-''dd',now);
            frm_Main.L_Time.Caption   :='当前时间：'+ForMatdatetime('hh'':''mm'':''ss',now);
        end;
    finally
	    CoUnInitialize;
    end;
    if terminated then
    exit;
end;
end.