#contents
*¤Ï¤¸¤á¤Ë [#id7c80b9]
ÆÃÄê¤Î¥Ç¥£¥ì¥¯¥È¥ê¤´¤È°µ½Ì¤·¡¢¥¢¡¼¥«¥¤¥Ö¤òÀ¸À®¤·¤Þ¤¹¡£
¤¿¤À¤·¡¢¤½¤ì¤¾¤ì¤Î°µ½Ì¥¢¥ë¥´¥ê¥º¥à¤ËÂФ·dll(cab32.dll, Unlha32.dllÅù)¤¬É¬Íפˤʤê¤Þ¤¹¡£
*¥µ¥ó¥×¥ë¥³¡¼¥É [#hebb6aaa]
'--------------------------------------------------------------------------
'Àë¸À
'--------------------------------------------------------------------------
'(¥¦¥£¥ó¥É¥¦¥Ï¥ó¥É¥ë¤Î·¿ http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?forum=7&topic=22503 )
Private Declare Function Cab Lib "cab32" (ByVal hwnd As IntPtr, ByVal pszCmdLine As String, ByVal pszOutput As String, ByVal dwSize As Long) As Long
Public Declare Function ZipUnZip Lib "Zip32" (ByVal hWnd As IntPtr, ByVal szCmdLine As String, ByVal szOutPut As String, ByVal dwsize As Integer) As Integer
Public Declare Function Unlha Lib "Unlha32" (ByVal hWnd As IntPtr, ByVal szCmdLine As String, ByVal szOutPut As String, ByVal dwsize As Integer) As Integer
Private Setting As New SettingManagerXML()
'--------------------------------------------------------------------------
'°µ½Ì¥Õ¥¡¥¤¥ë¤ÎÀ¸À®
'http://tokyo.cool.ne.jp/kanain/APIHTM/Cab.html
'http://www.geocities.co.jp/SiliconValley-SanJose/1892/pc/archive.html
'
Private Sub btn_Compress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Compress.Click
Cab(Handle, "-a -j " + compressed_filename + " " + source_directory, "", 0)
End Sub
RIGHT:2006-05-06 (ÅÚ) 23:21:41
----
[[Prog]]