//一个简单的关于对话框，注意参数中的idehandle
begin
messagebox(idehandle,'this is a test of ota write by hk.barton','hktest',mb_iconinformation);
end;
procedure tntatest.removemenu;
//卸载菜单
begin
if assigned(newmenu) then
newmenu.free;
end;
destructor tntatest.destroy;
begin
myntatest.removemenu;
