請教大大~

Message 自動關閉(一分鐘後)

var myclose:tcloseother;

begin
myclose:=tcloseother.Create(false);
myclose.FreeOnTerminate:=true;
application.MessageBox('程序已執行！','消息提示 ',mb_ok mb_iconinformation);
end;

unit closeother;

interface

uses
Classes,messages,sysutils,windows,forms;

type
tcloseother = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
public
//procedure create(myhwnd:integer);
end;

implementation

{ Important: Methods and properties of objects in VCL can only be used in a
method called using Synchronize, for example,

Synchronize(UpdateCaption);

and UpdateCaption could look like,

procedure tcloseother.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }

{ tcloseother }

//procedure tcloseother.create(myhwnd: integer);
//begin
//end;

procedure tcloseother.Execute;
const
NumSec=5; //執行五秒後自動關閉
var
messagehwnd:integer;
starttime:tdatetime;
begin
StartTime := now;
repeat
Application.ProcessMessages;
until Now > StartTime NumSec * (1/24/60/60);
messagehwnd:=FindWindow(nil,'消息提示 ');
postmessage(messagehwnd,wm_close,0,0);
end;

end.