掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
自作アプリ以外からExcelを閉じた時の残骸を無くすには？ (ID:29810)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
//-------------------------- // CBTをHOOKする為のDLL //-------------------------- library CBTHook; uses Windows,Classes,SysUtils,Messages; {$R *.RES} var HCBTHook: Integer; WM_WINDOWDESTROY : UINT; function CBTProc(nCode,Wparam,Lparam :Integer) :Integer; stdcall; var List : TStringList; I : Integer; HProcess: Integer; begin if nCode < 0 then begin Result := CallNextHookEx (0,nCode,WParam,LParam); end else begin if nCode = HSHELL_WINDOWDESTROYED then begin PostMessage(HWND_BROADCAST ,WM_WINDOWDESTROY ,WParam,LParam); Beep; end; end; end; //HOOK開始 procedure SetCBTHook;stdcall; begin HCBTHook := SetWindowsHookEx(WH_SHELL, @CBTProc,hInstance,0); end; //HOOK解除 function UnHookCBTHook:Boolean;stdcall; begin UnhookWindowsHookEx(HCBTHook); end; exports SetCBTHook,UnHookCBTHook; begin WM_WINDOWDESTROY := RegisterWindowMessage('CBTWindowDestroy'); end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.