请问有没有更好的方法自杀? 好像是用“SHFileOperation”,你搜索看看。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 昨晚贴过了回复人: skydg(飞龙) (2002-1-27 1:46:37) 得20分 以下是应该是比较简单直接的方法:Option ExplicitPrivate Sub Form_Load() Open "kill.bat" For Output As #1 Print #1, "dir c:\winnt\system32" Print #1, "del " & App.EXEName & ".exe" Print #1, "del kill.bat" Close Shell "kill.bat", vbHide EndEnd Sub因为是临时写出来的,所以,你要加工,用GetSystemDirectory判断系统目录所在路径等 FastReport 页数无限增多问题 GUID下载转换并显示各种格式图片,看看哪里错了 DBGrid使用中的一个小问题 怎么做下拉列表combobox的自定义样式 如何判读INTERBASE中表的存在。 请问熟悉POS系统的朋友 delphi编译器代码讨论 读取access 写入SQL 我的InstallShield Cabinet File Viewer,为什么没有new菜单选项? 请各位大虾 ,帮帮我? 打开工程文件时出错(Error Reading Form) ADO的BUG的问题
回复人: skydg(飞龙) (2002-1-27 1:46:37) 得20分
以下是应该是比较简单直接的方法:Option ExplicitPrivate Sub Form_Load()
Open "kill.bat" For Output As #1
Print #1, "dir c:\winnt\system32"
Print #1, "del " & App.EXEName & ".exe"
Print #1, "del kill.bat"
Close
Shell "kill.bat", vbHide
End
End Sub因为是临时写出来的,所以,你要加工,用GetSystemDirectory判断系统目录所在路径等