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

1 ：1：03/04/24 20:31 ID:KitbqYWE.net

1GET

243 ：名無しさん＠お腹いっぱい。：04/06/28 13:07 ID:mA7DMnCW.net

>>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, 〜); に変更。

244 ：名無しさん＠お腹いっぱい。：04/06/28 13:08 ID:mA7DMnCW.net

一番最後間違えた

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