SET &retvhd=

CALL FA
CALL FA  1  //提前关闭句柄，自动卸载

//全自动卸载VHD/ISO，程序杀死自动卸载
_SUB FA
{
SET retvhd=
moun-vhd -r D:\VHD50M.VHD,,,&retvhd,&&h  //自身释放对象
MESS %&h% / [%&retvhd%] / 1111
FIND $%~1=1, CALL  	$Kernel32.dll,CloseHandle,#%&h% //提前关闭句柄，自动卸载
MESS 222222==BBBB [%&h%]
}  //出范围，全自动释放VHD/ISO
MESS 3333333333 [%&retvhd%]
_END

CALL FB

//手动释放VHD/ISO，程序杀死 会自动卸载
_SUB FB
{
SET retvhd=
moun-vhd -r D:\VHD50M.VHD,,,&retvhd,.&&h  //普通变量
MESS %&h% / [%&retvhd%] / 1111
CALL  	$Kernel32.dll,CloseHandle,#%&h%  //关闭句柄，自动卸载
MESS 222222==BBBB [%&h%]
}  //出范围，也 不 自动释放VHD/ISO，  只能
MESS 3333333333 [%&retvhd%]
_END



CALL FC 
CALL FC  1  //提前关闭句柄，自动卸载

//持久对象,自动释放VHD/ISO，程序杀死自动卸载
_SUB FC,*  //有持久栈
{
SET retvhd=
moun-vhd -r D:\VHD50M.VHD,,,&retvhd,@&h  //持久对象
//ENVI @&h.fd=&&h  //获得句柄 到 普通变量&&h
MESS %&h% / [%&retvhd%] / 1111
FIND $%~1=1, ENVI @&h.close=   //提前关闭句柄，自动卸载
MESS 222222==BBBB [%&h%]
}
MESS 3333333333 [%&retvhd%]
_END    //持久对象 出范围，全自动释放VHD/ISO
 

MESS 4444444 [%&retvhd%] 文件结尾
