掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
プリンタのオンライン／オフラインの判定ができません (ID：44666)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.Button2Click(Sender: TObject); var oClass: OleVariant; begin oClass:=OleVariant(CreateOleObject('WbemScripting.SWbemLocator')).ConnectServer. ExecQuery('Select * From Win32_Printer').Item('Win32_Printer.DeviceID="'+Edit1.Text+'"'); Memo1.Lines.Add('--------------------------------------'); Memo1.Lines.Add('プリンタ名：'+VarToStr(oClass.Name)); Memo1.Lines.Add('WorkOffline：'+mWorkOffline[Boolean(oClass.WorkOffline)]); Memo1.Lines.Add('PrinterStatus：'+mPrinterStatus[Integer(oClass.PrinterStatus)]); oClass:=Unassigned; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.