整点报时程序DELPHI

unit Unit1interfaceuses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrlstype

TForm1 = class(TForm)

Timer1: TTimer

Label1: TLabel

Label2: TLabel

procedure Timer1Timer(Sender: TObject)

private

{ Private declarations }

public

{ Public declarations }

endvar

Form1: TForm1implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject)

var s :string

begin

Label1.Caption := FormatDateTime('yyyy/mm/dd AM/PM hh:mm ', Now + 0.125)

Label2.Caption := FormatDateTime('hhmmss',now())

if(FormatDateTime('hhmmss',now())='000000') then

showmessage(FormatDateTime('yyyy/mm/dd AM/PM hh:mm ', Now + 0.125))

endend.

这个错误是显眼的，原意是project1,exe 引起数据引擎错误，错误信息是：当为了初始连接 数据库引擎时而发生错误（错误号 $2501）.

你使用的连接是不是BDE形式的？如果是BDE（Borland Database Engine）,那么您必须用别名以及驱动程序的管理部分，做系统配置。您是否在这方面查一查？

可能是编写程序中包含某些类似病毒程序的行为，导致误报。

可以添加病毒软件白名单，以腾讯电脑管家为例:

打开腾讯电脑管家，

选择病毒查杀

点击信任区

添加文件/文件夹

---