, denne artikel viser, hvordan at afsløre, når en cd er blevet indføjet /fjernet.,,,, tform1 = klasse (tform), private, (private erklæringer), procedure wmdevicechange (var - mng: tmessage); meddelelse wm_devicechange;, offentlig, {offentlige erklæringer},,,,,,, procedure tform1. wmdevicechange (var - mng: tmessage), og denne,, dbt_querychangeconfig = $0017;,, dbt_configchanged = $0018;,, dbt_configchangecanceled = $0019,,, dbt_devicearrival = $8.000,,, dbt_devicequeryremove = $8001;,, dbt_devicequeryremovefailed = $8002,,, dbt_deviceremovepending = $8003;,, dbt_deviceremovecomplete = $8004;,, dbt_devicetypespecific = $8005;,,, dbt_userdefined = $eøf;,, var, tmpstr: string;, begynder, arvede, sag msg.wparam af, dbt_devicearrival: tmpstr: = cd - indsat.! ",,, dbt_deviceremovecomplete: tmpstr: = cd fjernet!! ",,,,,, showmessage (tmpstr);,,,,