名前
題名
▼ Mr.XRAYさん > ハイ．さらに追加しました． > > 今度は，ブラウザの終了を自動検出します． > WMI のイベントシンクを使用しています． > > [plBrowseURL_TOPMOST.zip] 2,336 KB > http://mrxray.on.coocan.jp/Delphi/zip/plBrowseURL_TOPMOST.zip > > イベントシンクのコードは以下のようになっています． > > //----------------------------------------------------------------------------- > // TSWbemSinkのOnObjectReadyイベントのコード > // イベントの宣言部と，この実装部はWbemScripting_TLBのコードをコピペ > //----------------------------------------------------------------------------- > procedure TForm1.EventOnObjectReady(ASender: TObject; > const objWbemObject: ISWbemObject; > const objWbemAsyncContext: ISWbemNamedValueSet); > var > LPropVal : OleVariant; > LPropValue : OleVariant; > LText : string; > begin > LPropVal := objWbemObject; > LPropValue := LPropVal.TargetInstance; > > if VarToStr( LPropVal.Path_.Class) = '__InstanceDeletionEvent' then begin > if FCloseDlgFlag = False then begin > FCloseDlgFlag := True; > LText := 'ブラウザが閉じられました'; > MessageBox(Handle, PChar(LText), '情報', MB_ICONINFORMATION); > > SetActiveWindow(Handle); > SetForegroundWindow(Handle); > end; > end; > end; > > > UP したサンプルコードは，当サイトのサンプル記事のコードをコピペ > して，少し修正を加えだものでごさいます． >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link