satocchiaブログ

キーワードサーチ

▼キーワード検索

プロフィール

satocchia

フォローする

カレンダー

お気に入りブログ

まだ登録されていません

コメント新着

tomoZo@ Re:Pale　Moon日本語化トラブル(06/06) はじめまして。 28.16.0でまたもや提供さ…

satocchia @ Re[1]:Pale　Moon日本語化トラブル(06/06) zui_9さんへ本日、確認しました。ようや…

zui_9 @ Re:Pale　Moon日本語化トラブル(06/06) 上記リンク「Githubのプロジェクト」の左…

わたなべ@ Re:powershellコンソール、見づらくありませんか？(08/26) 初めまして、この情報最高です！背景を白…

y__@ Re:uwscでGUIフォーム(05/12) UWSC 仮掲示板から飛んできました。 HTAで…

フリーページ

2020.12.19

デバッグ中かどうか自動判定

テーマ：ソフトウェア開発(54)

カテゴリ： UWSC

UWSCスクリプトを作るとき、最初に

public DEBUG=true

なんておまじないを付けているのは私だけではないはず。
でも、これってtrue/falseを設定し忘れたりすると、結構めんどいことになることもあります。

ECサイトで思いがけずポチっちゃった りして。

で、自動でデバッグ中かどうかを返す関数を作ってみました。
デバッグ中かどうか、なんてどうしてわかるの？　という方はスクリプトを読んでください。

IsInDebug.uws

if Get_Uwsc_Name="IsInDebug.uws"

endif
function isInDebug()
    with createoleobj("WbemScripting.SWbemLocator")
        getOleItem(.ConnectServer.ExecQuery( "SELECT * FROM Win32_Process" ))
    endwith
    ParentPid=""
    ParentName=""
    for process in All_Ole_Item
        if process.processid=status(getid(GET_THISUWSC_WIN), ST_PROCESS)
            ParentPid=process.ParentProcessId
            break

    next
    for process in All_Ole_Item
        if process.processid=ParentPid
            ParentName=process.Name
            ParentName=copy( ParentName, 1, length(ParentName)-4 )

    next
    result=!(!pos( ParentName, MyEditors ))
textblock MyEditors
sakura mery code atom
endtextblock
fend

スクリプトの冒頭でコールしておけば、必要な時
if IsInDebug()
とかで制御できます。
デバッグ中かどうかの判定は、エディタから起動したかどうか。ただそれだけ。
テキストブロックに使いそうなエディタを書いておけば大抵用は足りると…。

お気に入りの記事を「いいね！」で応援しよう