掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
プリンタのオンライン／オフラインの判定ができません (ID:44661)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
プリンタのオンライン／オフラインの判定をするのに 下記のようにしましたが、戻ってくるステータスの値は 0のままです。DELPHI 5, Win XPです。 よろしくお願いいたします。 ListBoxにプリンタが列挙されている状態で procedure TForm1.ListBox1Click(Sender: TObject); VAR hPrinter : THandle ; pPrntrInf2 : PPrinterInfo2 ; cbNeeded : Cardinal ; BEGIN WinSpool.OpenPrinter( PChar( ListBox1.Items[ ListBox1.ItemIndex ] ), hPrinter, NIL ) ; IF hPrinter = INVALID_HANDLE_VALUE THEN EXIT ; WinSpool.GetPrinter( hPrinter, 2, NIL, 0, @cbNeeded ) ; pPrntrInf2 := AllocMem( cbNeeded ) ; TRY WinSpool.GetPrinter( hPrinter, 2, pPrntrInf2, cbNeeded, @cbNeeded ) ; IF ( pPrntrInf2^.Status AND PRINTER_STATUS_OFFLINE ) = PRINTER_STATUS_OFFLINE THEN ShowMessage( 'オフライン' ) ; FINALLY FreeMem( pPrntrInf2 ) ; WinSpool.ClosePrinter( hPrinter ) ; END ; END;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.