Arsip: Mendeteksi disk berdasar message dari windows

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
//pembuatan procedur
  procedure CDROM_Notification(var msg: TMessage);
message WM_DEVICECHANGE;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//angka konstanta nilai cd
const
CD_OUTPUT = $8004;
CD_INPUT = $8000;
procedure TForm1.CDROM_Notification(var msg: TMessage);
begin
if msg.wParam = CD_INPUT then
ShowMessage('Terdeteksi adanya disk baru.')
else if msg.wParam = CD_OUTPUT then
ShowMessage('Terdeteksi ada disk yang dikeluarkan.');
end;
end.