home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 2
/
BUGCD1997_01.iso
/
utils
/
winbatch
/
wbt.mn_
< prev
next >
Wrap
Text File
|
1995-10-10
|
1KB
|
47 lines
; Menu file for wbt extension
editor="notepad.exe"
;See if WinEdit is lurking about via registry lookup
ErrorMode(@OFF)
WinEdit=strcat(RegQueryValue(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinEdit\CurrentVersion"),"WinEdit.exe")
ErrorMode(@CANCEL)
if WinEdit==0 ;No? Try path
WinEdit=FileLocate("WINEDIT.EXE")
if WinEdit=="" then WinEdit=editor
endif
Run with WinBatch ; Runs the Winbatch Interpreter on this file
fna=CurrFilePath()
Run("winbatch.exe",'"%fna%"')
Edit WinBatch ; Edit the Winbatch file
f = CurrFilePath()
If !(FileExist(f))
f = ""
Else
If FileExtension(f) == ""
f = StrCat(f, ".")
endif
f=FileNameShort(f)
endif
Run(WinEdit, f)
WinBatch Compiler ;Run the WinBatch Compiler
Small Exe ;Make a small EXE file that requires the DLLs
fna=CurrFilePath()
fnb=strcat(FilePath(fna),FileRoot(fna),".exe")
Run("WBCompiler.exe",'2 "%fna%" "%fnb%" NONE')
Big Exe ;Imbed Dlls in the EXE file
fna=CurrFilePath()
fnb=strcat(FilePath(fna),FileRoot(fna),".exe")
Run("WBCompiler.exe",'1 "%fna%" "%fnb%" NONE NONE')
_Interactive mode ; Runs the compiler interactively
Run("WBCompiler.exe","")