CAB書庫の圧縮

Microsoftのアプリケーション標準圧縮方式のＣＡＢファイルを圧縮します。圧縮には宮内 邦昭さん作成のCAB32.DLLが必要になります。統合アーカイバプロジェクトなどから入手してください。

宣 言

Private Declare Function Cab Lib "cab32" ( ByVal hwnd As Long, ByVal pszCmdLine As String, ByVal pszOutput As String, ByVal dwSize As Long) As Long

※Privateは必要に応じて削除またはPublicに変更してください。

使 用 方 法

Cab Me.hWnd,"-a -r 書庫ファイル名 ファイル名","",0

引 数 説 明

hwnd	Long	呼び出すウィンドウのウィンドウハンドル
pszCmdLine	String	UnCABに渡すコマンド文字列（DOS版LHAと互換性有り）
pszOutPut	String	UnCABが結果を返すための変数
dwSize	Long	pszOutputの大きさ

サ ン プ ル プ ロ グ ラ ム

プログラムを張りつけ実行しフォームをクリックするとc:\temp\のファイルを圧縮しc:\temp\temp.cabというファイルに格納します。あらかじめc:\temp\というディレクトリを用意しファイルを入れておいてください。