#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]]
¥È¥Ã¥×   ÊÔ½¸ º¹Ê¬ ÍúÎò źÉÕ Ê£À½ ̾Á°Êѹ¹ ¥ê¥í¡¼¥É   ¿·µ¬ °ìÍ÷ ¸¡º÷ ºÇ½ª¹¹¿·   ¥Ø¥ë¥×   ºÇ½ª¹¹¿·¤ÎRSS