|
$answer=MsgBox(4+32,"欢迎使用的lintel的傻瓜化光盘启动程序", "请问你确定要安装傻瓜化光盘启动程序 ?(15秒后自动执行)", 15)
If $answer = 7 Then
MsgBox(64, "Bye", "好,那么再见 ^_^ .",1)
exit
endif
;复制bootcd.bin到根目录
FileCopy("bootcd.bin", "C:\")
;检查boot.ini的存在
If FileExists("c:\boot.ini") Then
MsgBox(64, "提示", "boot.ini存在,程序继续执行", 1)
Else
MsgBox(16, "警告", "boot.ini不存在,程序终止!", 10)
EndIf
;改变boot.ini的属性
FileSetAttrib("C:\boot.ini", "-RSH")
If @error Then MsgBox(16,"错误", "无法设置boot.ini属性。")
IniWrite("C:\boot.ini","operating systems" ,"C:\bootcd.bin","""从光盘启动""")
;还原boot.ini的属性
FileSetAttrib("C:\boot.ini", "+RSH")
If @error Then MsgBox(16,"错误", "无法设置boot.ini属性。")
;提示是否查看
FileChangeDir ( "C:\" )
$answer=MsgBox(4+32, "完成", "已完成,是否查看boot.ini的内容?(5秒后自动关闭)", 5)
If $answer = 6 Then
RunWait(@ComSpec & " /c " & 'notepad.exe boot.ini', "",@SW_HIDE)
Exit
Else
MsgBox(64, "Bye", "好,那么再见 ^_^ .",1)
Exit
EndIf
exit
上次不知道是哪位兄弟发了个光盘引导启动的bin文件,请这位兄弟发上来吧,谢谢
[ 本帖最后由 lintel 于 2006-12-30 07:43 PM 编辑 ] |
|