Macro/投稿/29

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F29


Top > Macro > 投稿 > 29

Java コンパイル+実行

  • ページ: Macro/投稿
  • 作者: しにゃ?
  • カテゴリー: ppa
  • 投稿日: 2004-11-29 (月) 08:33:15

メッセージ

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
//'C:\Program Files\Java'を適宜変更
// Javaコンパイル + 実行マクロ
var
        strFileExt  : String;        // ファイル拡張子文字列変数
        strJavaHome : String;        // JavaHomeパス文字列変数
        strCommand  : String;        // 実行用コマンド文字列変数
        intResult   : Integer;        // メッセージボックス返却値用変数
begin
        // 拡張子の取得
        strFileExt := Delete( S_ExpandParameter( '$f' ), 1, Length( S_ExpandParameter( '$g' ) ) );
        // 取得した拡張子文字列を小文字に変換
        strFileExt := LowerCase( strFileExt );
        // 拡張子が.javaまたは.javでない場合
        if CompareStr( strFileExt, '.java' ) <> 0 and CompareStr( strFileExt, 'jav' ) <> 0 then
                begin
                        // 警告メッセージを表示
                        MessageBox( 'Javaファイルではありません。', 'Javaコンパイル', $10 );
                        // 終了
                        Exit;
                end
        ;
        // メッセージボックス戻り値の初期値を設定
        intResult := 0;
        // コンパイル、コンパイル + 実行、 キャンセルの実行選択メッセージの表示
        case MessageBox( '実行もしますか?', 'Javaコンパイル', $23 ) of
                // キャンセルの場合
                2:
                        // 終了
                        Exit;
                // いいえの場合
                7:
                        // アップレットビューアの実行選択メッセージの表示
                        intResult := MessageBox( 'アップレットビューアで表示しますか?',  'Javaコンパイル', $24 );
        end;
        // JavaHomeのパス設定
        strJavaHome := 'C:\Program Files\Java';←ここを変更
        // コンパイル用コマンド文字列を設定
        strCommand := strJavaHome + '\bin\javac ' + S_ExpandParameter( '$f' );
        // Javaコンパイル実行
        S_ExecCommand( strCommand, 1 );
        // メッセージボックスの戻り値によって切り分け処理
        case intResult of
                // 実行する場合
                0:
                        // 実行用コマンド文字列を設定
                        strCommand := strJavaHome + '\bin\java ' + S_ExpandParameter( '$g' );
                // アップレットビューアで表示する場合
                6:
                        // アップレットビューア表示用コマンドを設定
                        strCommand := strJavaHome + '\bin\appletviewer ' + S_ExpandParameter( '$f' );
                // いいえを選択した場合
                7:
                        // 終了
                        Exit;
        end;
        // コマンドを実行
        S_ExecCommand( strCommand, 1 );
end;


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2006-07-29 (土) 23:53:16 (4405d)