掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
プリンタのオンライン／オフラインの判定ができません (ID:44662)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下記のサイトなどを参考にしてMicrosoftのScript Control タイプライブラリを取り込んで、DelphiからVBを実行すること によりプリンタのオン・オフラインを判定することができました。 迂遠な方法で釈然としませんが、とりあえず必要な情報はえられ ました。VBに相当するDelphiのコードはどうなるのか引き続き調べて 見たいと思います。 質問をごらんになって考えてくださった方に御礼申し上げます。 http://www.vbforums.com/showthread.php?532954-RESOLVED-Printer-status-detecting-on-or-off http://oshiete.goo.ne.jp/qa/120709.html USES MSScriptControl_TLB ; PROCEDURE TForm1.ListBox1Click( Sender: TObject ) ; VAR VB_Script : STRING ; ScriptControl : TScriptControl ; begin VB_Script := 'GetObject("winmgmts:\\.\root\CIMV2").Get("Win32_Printer=''' + ListBox1.Items[ ListBox1.ItemIndex ] + '''").WorkOffline' ; ScriptControl := TScriptControl.Create( Application ) ; ScriptControl1.Language := 'VBScript' ; IF ScriptControl1.Eval( VB_Script ) THEN ShowMessage( 'オフライン' ) ; ScriptControl.Free ; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.