*母艦設計()
母艦→可視 = 偽
母艦→タイトル = "なでしこソースコード抽出器"
メニュー一括作成("なし,file_menu,ファイル(&F),,,
-,open_menu,開く(&O),Ctrl+O,,select_exe
-,-,,,,
-,close_menu,閉じる(&X),,,終了
")
sourceとはTエディタ
source→レイアウト = 全体
source→ファイルドロップ許可 = 真
source→ファイルドロップ時 =~
extract(source→ドロップファイル)
statusとはステータスバー
status→レイアウト = 下
母艦→可視 = 真
*select_exe()
file = ファイル選択("なでしこ実行ファイル|*.exe")
もし、(file != 空)ならば
extract(file)
*extract(exe)
もし、(パックファイル存在(exe) == 偽)ならば
言う("なでしこで作成された実行ファイルではありません")
戻る
status→テキスト = exe
パックファイル分離(exe, "{母艦パス}temp.pac")
パックファイル抽出("{母艦パス}temp.pac", "nadesiko.nako", "{母艦パス}nadesiko.nako")
source→テキスト = 開く("{母艦パス}nadesiko.nako")
// ファイル完全削除("nadesiko.nako")
// ファイル完全削除("temp.pac")