Decompile CHM file; Get short/long path

[Gintaras]

Function DecompileChmFile

;/
function $chmFile $destFolder

;EXAMPLE
;DecompileChmFile "$qm$\qm2help.chm" "$desktop$\qm2help"


mkdir destFolder

str f.GetShortPath(destFolder)
str c.GetShortPath(chmFile)
str cl.format("-decompile %s %s" f c)
run "hh.exe" cl "" "" 0x400

Member function str.GetShortPath

function [$path]

;Retrieves short path, eg c:\program files -> c:\progra~1


dll kernel32 #GetShortPathName $lpszLongPath $lpszShortPath cchBuffer

if(len(path)) _s.expandpath(path); else _s.expandpath(this)
this.fix(GetShortPathName(_s this.all(MAX_PATH) MAX_PATH))

Member function str.GetLongPath

function [$path]

;Retrieves long path, eg c:\progra~1 -> c:\program files


dll kernel32 #GetLongPathName $lpszShortPath $lpszLongPath cchBuffer

if(len(path)) _s.expandpath(path); else _s.expandpath(this)
this.fix(GetLongPathName(_s this.all(MAX_PATH) MAX_PATH))