直接上代码。 procedure TForm1.btn2Click(Sender: TObject); var hWndClose: HWND; str: String; begin str := inputBox('提示', '请输入应用程序窗口标题：', ''); if str <> '' then &
标签： 关闭
[分享]关闭小米电视的开关机广告
小米电视现在已经进入了开关机的15秒广告强制模式，开机还得看完广告，有点被强X的感觉，想个办法干掉这不爽的动作。 进入路由器防火墙下禁用网址列表添加如下地址。 stat.pandora.xiaomi.com upgrade.mishop.pandora.xiaomi.com logonext.tv.kuyun.com config.kuyun.com api.io.mi.com mishop.pandora.xiaomi.com dvb.pandora.xiaomi.com api.ad.xia
[公告]★★★博客关闭评论功能★★★
根据公安审核要求，现取消评论功能。
[代码]窗体关闭时提示变动的保存
如果窗体有数据操作，在未保存时关闭窗体，进行一个提示。 procedure TFrmSave.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //窗体关闭时提示变动的保存 begin if ADODataSet1.State in [dsInsert, dsEdit] then begin if MessageBox(0, '发现未保存的数据，需要保存吗？', '', MB_YESNO + M