[1225]
vb6.0作成したexeの場合、コールバックが走っていない |
---|
□投稿者/ li -(2021/01/25(Mon) 10:20:06)
□U R L/ |
ご回答、ありがとうございます。 コードを追記させていただきます。 画面ボタンをクリックすると、Moduleに書いたFunAを呼び出す、 デバッグの場合、問題がないです。 実行ファイル(.exe)の場合、解凍できなく、解凍状況が受け取ることができません。
Public Function FunA(hwnd As Long, ByVal strFile As String, ByVal strDir As String) As Boolean '解凍コマンド cmdLine = "x " & strFile & " -o" & strDir & " -aoa -hide" 'コールバック関数の指定 blnRun = SevenZipSetOwnerWindowEx(hwnd, AddressOf callback) '解凍 resCode = SevenZip(hwnd, cmdLine , sOutPut, 0) FunA = True End Function
'コールバック Public Function CallBack(hwnd As Long, uMsg As Long, ByRef nState As Long, ByRef lpEis As EXTRACTINGINFOEX) As Long '解凍状況表示 Form1.Label1.Caption=StrConv(lpEis.exinfo.szSourceFileName, vbUnicode)
CallBack= True End Function
確認したいですが、 実行ファイル(.exe)の場合、解凍状況が受け取ることができない原因は何の可能でしょうか?
|
|