ENVI t=ENVI @win.POS=::::4
ENVI txt=перетащите файл *.wcs,*.ini,*.bat,*.cmd
win
_SUB win,W360H115,CodingPECMD,,,,,-top
EDIT= ed,L10T10W326H20,,,0x100,0x000000#0xDAF0F1
LABE -left,L10T40W230H14, %txt%,,,
LABE+ -center,L240T42W96H27,Старт,CALL st,0x000000#0x8CE8FF,15
_END
_SUB st
TEAM SIZE s=%ed%|FNAM na=%ed%|FDIR f=%ed%|FEXT ex=%ed%
FIND $[%ex%=wcs | %ex%=txt | %ex%=bat | %ex%=cmd | %ex%=ini ],!TEAM MESS-icon1 Не выбран файл | ENVI @ed=|%t%|EXIT
IFEX $%s%=0,TEAM MESS-icon1 Файл не найден *-2000|ENVI @ed=|%t%|EXIT
CMPS "%ed%" "%f%\%na%.wcz"
TEAM MESS-icon Файл зашифрован в %na%.wcz *-5000|ENVI @ed=|%t%|EXIT
%t%
_END