掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リムーバブルディスク挿入の検知 (ID:31154)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ＵＳＢメモリでは反応しました。 { Private 宣言 } procedure DEVICECHANGE(var Msg: Tmessage); message WM_DEVICECHANGE; procedure TForm1.DEVICECHANGE(var Msg: Tmessage); const DBT_DEVICEARRIVAL = $8000; DBT_DEVICEREMOVECOMPLETE = $8004; begin case Msg.WParam of DBT_DEVICEARRIVAL: showmessage('入'); DBT_DEVICEREMOVECOMPLETE: showmessage('出'); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.