|
2017/3/28 (火) 23:10:14 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 したサンプルコードは，当サイトのサンプル記事のコードをコピペ
して，少し修正を加えだものでごさいます．
 |
|
