#include "hspcmp.as"
sdim txt, 128, 2
pack = "start.ax"
pos 10, 10 : mes "使用ASファイル"
pos 160, 10 : input txt, 200, 20
pos 360, 10 : button "参照", *sansyou
pos 10, 40 : button "作成", *making
stop
*sansyou
dialog "", 16, "使用ファイル"
if stat : objprm 0, refstr
stop
*making
if txt = "" {
dialog "ファイル名を指定してください。"
} else {
chdir exedir // ランタイムのフォルダに移動
strlen tmp, pack
bsave "packfile", pack, tmp // PackFile作成
hsc_ini txt // スクリプトファイル名を指定する
hsc_objname pack // デフォルト中間ファイル名を指定する
hsc_comp 0 // デバッグ情報を付加しない
getpath tmp, txt, 9
pack_ini tmp // PACKFILEマネージャの初期化を行う
pack_make 0 // EXEに埋め込むDPM作成
pack_exe 0 // 標準モード(1:フルスクリーン 2:スクリーンセイバー)
hsc_getmes txt.1 // HSPCMP.DLLからメッセージを受け取る
dialog txt.1 // 結果を表示
}
stop
|