|
mdyblog 发表于 2013-7-26 16:09
和这个没关。
需要切换焦点吧。
----
老大帮忙看看下面代码,那些框框都不能输入,确定也会失灵:
- WIN1
- _SUB WIN1,W510H280,虚拟内存与临时文件设置,
- TEAM ENVI^ ForceLocal=1| ENVI^ EnviMode=1
- SET-def DrvVolDat=
- SET$ &NL=0d 0a
- SET$ &TAB=09
- SET-def ALlDrv=
- FDRV &&ALlDrv1=*:
- SET-def ALlDrv2=
- forx * %ALlDrv1%, &&drv1,
- {*
- FORM -raw &&V=%drv1%
- FIND $%V%=DRIVE_FIXED,SET ALlDrv=%ALlDrv% %drv1% ! EXIT //只有硬盘
- FIND $X=X%ALlDrv2%,SET ALlDrv2=%drv1%!SET ALlDrv2=%ALlDrv2%|%drv1%
- }
- REGI *$HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PagingFiles,&&PAGES
- forx * %ALlDrv%,&&drv1,
- {*
- FDRV *vol &&vol1=%drv1%
- FIND %drv1%\=?,&&C1 //总空间
- IFEX %drv1%\=?,&&C2 //可用空间
- CALC #C1 = %C1%/1024/1024
- CALC #C2 = %C2%/1024/1024
- FIND $%DrvVolDat%=,!SET DrvVolDat=%DrvVolDat%%NL%
- @ TEAM SET-def Ini=|SET-def Max=|SET-def FixM=
- FORX *NL &PAGES,&&DRVK,
- {
- LSTR &&C=2,%DRVK%
- FIND $%C%=%drv1%,TEAM MSTR Ini,Max=<2><3>%DRVK%|SET FixM=%Ini%/%Max%
- }
- SET DrvVolDat=%DrvVolDat%%drv1%%TAB%%vol1%%TAB%%FixM%%TAB%%C1%%TAB%%C2%
- }
- SET &TITLE=+40:盘符%TAB%=100:卷标%TAB%=150:虚拟内存最小/最大值(MB)%TAB%=82:总空间(MB)%TAB%=82:可用空间(MB)
- TABL TABL2,L15T20W475H150,%TITLE%,%DrvVolDat%,0x10040
- ITEM ITEM7,L445T217W45H25,确定,CALL SetPE,
- SET &::WM_LBUTTONDOWN=0x0201
- ENVI @TABL2.MSG=_%&WM_LBUTTONDOWN%:CALL OnTable
- ENVI @TABL2.Val=?1.1;&&V1
- ENVI TMPDir=
- LABE -vcenter LABE2,L15T185W80H23,虚拟内存位置:,,
- LIST ListDrv,L95T186W40H143,%ALlDrv2%,,%V1%,
- LABE -vcenter LABE3,L160T185W65H23,最小值(MB):,,
- LIST LISTInit,L230T187W84H130,256|512|1000|2000|3000,,512,0x4
- LABE -center -vcenter LABE4,L335T187W70H21,最大值(MB):,,
- LIST LISTMax,L406T187W84H130,256|512|1000|2000|3000|4000|5000|6000|7000|8000,,512,0x4
- LABE -center -vcenter LABE5,L15T220W80H21,临时文件位置:,,
- EDIT TMPDir,L95T220W280H20,%TMPDir%,,0x100
- ITEM BUTDIR,L380T220W40H20,...,CALl SearchDir,
- TIME T2,100, CALL OnTimer1
- _END
- _SUB OnTimer1
- FIND $""="%TMPDir%",
- {
- ENVI @ITEM7.Enable=1
- }!
- {
- MSTR &&TDir=2,1,%TMPDir%
- FIND $":"="%&TDir%",
- {
- FORM -raw &&TDir=%TMPDir%
- FIND $%&TDir%=DRIVE_FIXED,ENVI @ITEM7.Enable=1!ENVI @ITEM7.Enable=0
- }!
- {
- ENVI @ITEM7.Enable=0
- }
- }
- _END
- _SUB SearchDir
- ENVI &&DIR0=%TMPDir%
- BROW &&DIR0,*%TMPDir%,请选择一个目录
- FIND $""="%&DIR0%",!ENVI @TMPDir=%&DIR0%\Temp
- CALL OnTimer1
- _END
- _SUB SetPE
- TEAM FDIR DIR0=%TMPDir%|ENVI @t1=0|ENVI @t2=0|KILL \
- mess "%ListDrv%" "%LISTInit%" "%LISTMax%" "%TMPDir%" "%DIR0%"
- _END
- _SUB OnTable
- ENVI @TABL2.Sel=?&&Sel
- IFEX $1>%&Sel%,EXIT
- ENVI @TABL2.Val=?%Sel%.1;&&V1
- ENVI @ListDrv=%V1%
- _END
复制代码 |
|