|
本帖最后由 baosheng00 于 2021-3-8 00:59 编辑
你参考一下,qemu.exe我是打包单文件支持命令
$Input2是输入框路径
Func _qemu2()
Dim $info,$nc
$info=_WinAPI_GlobalMemoryStatus()
$nc=Int($info[1]/1024/1024)
Select
Case $nc > 3584
$neic="1024"
Case $nc > 2560 And $nc < 3584
$neic="768"
Case $nc > 1408 And $nc < 2560
$neic="512"
Case $nc > 896 And $nc < 1408
$neic="256"
Case $nc <512
$neic="64"
Case Else
$neic="512"
EndSelect
FileInstall("qemu.exe", @TempDir&"\qemu.exe",0)
GUICtrlSetState($Button7, $GUI_DISABLE)
GUICtrlSetState($Button5, $GUI_DISABLE)
$2=GUICtrlRead($Input2)
$qemun=(@TempDir&"\qemu.exe")
If FileExists($2)=1 Then
If GUICtrlRead($Radio5) = $GUI_CHECKED Then
RunWait($qemun&" -L . -m "&$neic&" -boot d -localtime -cdrom "&$2&" -vga std","",@SW_HIDE) ;BIOS
EndIf
If GUICtrlRead($Radio6) = $GUI_CHECKED Then
RunWait($qemun&" -L efi -m "&$neic&" -boot d -localtime -cdrom "&$2,"",@SW_HIDE);EFI
EndIf
EndIf
GUICtrlSetState($Button7, $GUI_ENABLE )
GUICtrlSetState($Button5, $GUI_ENABLE )
EndFunc
可能没有达到你的要求,RunWait($qemun&" -L efi -m "&$neic&" -boot d -localtime -cdrom "&$2,"",@SW_HIDE);EFI
|
|