Event når der indsættes/fjernes en CD

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
  procedure WMDeviceChange(var Msg: TMessage); message WM_DeviceChange;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMDeviceChange(var Msg: TMessage);
const
DBT_QUERYCHANGECONFIG = $0017;
DBT_CONFIGCHANGED = $0018;
DBT_CONFIGCHANGECANCELED = $0019;
DBT_DEVICEARRIVAL = $8000;
DBT_DEVICEQUERYREMOVE = $8001;
DBT_DEVICEQUERYREMOVEFAILED = $8002;
DBT_DEVICEREMOVEPENDING = $8003;
DBT_DEVICEREMOVECOMPLETE = $8004;
DBT_DEVICETYPESPECIFIC = $8005;
DBT_USERDEFINED = $FFFF;
var
tmpStr : String;
begin
inherited ;
case Msg.wParam of
DBT_DEVICEARRIVAL:
tmpStr := 'CD inserted in drive';
DBT_DEVICEREMOVECOMPLETE:
tmpSTr := 'CD removed from drive';
end;
ShowMessage(tmpStr);
end;


end.

Stoney

Jeg tester det enten i aften eller på onsdag og vender tilbage der efter, men kan du oplyse hvor du fandt det?

Det virker fint .. mange tak

Men vil du ud med hvor du fandt det ?

Forresten ... hvorfor har du inherited med din procedure (ved godt at den kalder "forfædrens" procedure af navn, men kan ikke se hvad den laver her)

Jeg aner ikke hvor jeg har fundet det.
Når jeg falder over over et godt tip på nettet
gemmer jeg det i min egen lille frække database.
Men jeg er ved at lave min egen egen delphi hjemmeside
hvor alle mine tip og lign. vil blive tilgængelige.
Siden bliver selvfølgelig lavet i Delphi/ISAPI :-)

Den med inherit har du faktisk ret i, men som sagt det var
et tip jeg hev frem fra gemmerne.(ren copy/paste)

Stoney

ok :) .. det er også tilladt at være doven ;)

Der er et lign. her
http://www.swissdelphicenter.com/en/showcode.php?id=372

"De" bruger også inherit

Stoney

Jeg har lidt problemer når jeg prøver at overføre den kode som ellers virkede, til en komponent. For der sker blot det at den slet ikke modtager nogle formor for messages.

Jeg har kigget lidt på en anden komponent, som dog ikke virker i Delphi 7, bruger
AllocateHWnd(en procedure);
Altså noget med at de beder om at skulle modtage messeges, men jeg kan ikke helt få det til at virke.

Nogen der kan overskue dette kort? (hvis det bliver bliver besværtligt opretter jeg gerne nyt spørgsmål)

Stoney -> "Men jeg er ved at lave min egen egen delphi hjemmeside
hvor alle mine tip og lign. vil blive tilgængelige."
http://www.tradestone.dk/ ?

Nogen af jer der har en ide om hvorfor disse events ikke bliver sendt på min bærbar ?

Den kører ogås Win XP.