- 147 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/27(月) 17:00:06 ID:IAlYDpEu0]
- ttp://siromasa.xxxxxxxx.jp/Term/1a00.html ←ここのzip解凍を参考に
Dim FilePath_Lha
Dim DirPath
FilePath_Lha=PARAM_STR[0]
DirPath=PARAM_STR[1]
UnLHA32(FilePath_lha, DirPath)
Function UnLha32(a_FilePath_Lha, a_DirPath, a_Command = "e", a_Option = "-y")
a_DirPath = a_DirPath + Format(ChrB(0), 1)
PathAddBackslashA(a_DirPath)
Dim szCmdLine = a_Command + " " + a_Option + " " + DQ(a_FilePath_Lha) + DQ(a_DirPath)
Dim t_Len = $1000
Dim t_Buff = Format(ChrB(0), t_Len)
UnLha(0, szCmdLine, t_Buff, t_Len)
Result = t_Buff
FEnd
DEF_DLL UnLha(HWND, STRING, var STRING, DWORD) :INT :UNLHA32.DLL
DEF_DLL PathAddBackslashA(var String) :String :ShlwApi.DLL
Function DQ(a_Path)
Result = "<#DBL>" + a_Path + "<#DBL> "
FEnd
とやってみましたが
「Not DLL Function:UｎLha」
「20行目：UnLha(0, szCmdLine, t_Buff, t_Len)」と出て上手くいきません。
unlha32.dllはsystem32の中にありVBでは上手くいきます。
解決の糸口を教えてください。
|
 |
