ΨΨΨ　KFを語ろう Part1 ΨΨΨ

>>242
--- kfmsg.vbs : KF.EXEと同じフォルダに保存 ---
On Error Resume Next
Set WS = CreateObject("WScript.Shell")
WS.Popup Wscript.Arguments(1), Wscript.Arguments(0), "KF/Win"

--- 追加する関数 ---
 //Pack()の置き換え用
 int MyPack(int $dir, str $filename)
 {
  int $i;
  $i = Pack($dir, $filename);
  if($i == 1){
   MyMsg(1, "圧縮完了");
  }
  return $i;
 }
 //$t秒後に閉じる静かなポップアップメッセージ
 void MyMsg(int $t, str $m)
 {
  Exec("wscript.exe """ + %HomeDir + IntToStr("\KFMSG.VBS"" %d ", $t) + $m);
 }

--- 変更する関数 : SinglePack() の最後に以下を追加 ---
 ActivateKf();
 if ( $c > 1 ) {
  MyMsg(1, "処理完了");
 }

後は Pack(〜); と呼び出してるところを
MyPack(1, 〜); に変更。