Как отследить появление нового диска?

[54rus]

Доброго всем времени суток. Возник вопрос:
Как отследить появление нового диска в системе (Съёмного носителя или виртуального диска) на дэльфи.

[raxp]

отслеживайте сообщение WM_DeviceChange и будет вам счастье.

[Utkin]

В смысле нового диска в приводе или нового привода с диском?

[SERG1980]

обрабатываем событие WM_DEVICECHANGE. в private части описания формы вставляем код вида

procedure WMDEVICECHANGE(var msg:TMessage); message WM_DEVICECHANGE;
.....
procedure TForm1.WMDeviceChange(var Msg: TMessage); 
begin 
if (Msg.wParam = DBT_DEVICEARRIVAL) then showmessage('устройство добавлено');
if (Msg.wParam = DBT_DEVICEREMOVECOMPLETE) then ShowMessage('удалено');
end;

[54rus]

прикольно, спасибо. вроде всё понял. а букву диска как узнать?

[raxp]

сие делается так...

function GetDrive(pDBVol: PDevBroadcastVolume): string;
var i: Byte;
    Maske: DWORD;
begin
 Maske := pDBVol^.dbcv_unitmask;
 for i := 0 to 25 do begin
  if (Maske and 1) = 1 then
   Result := Char(i + Ord('A')) + ':';
  Maske := Maske shr 1;
 end
end;

procedure tf.WndProc(var Msg: TMessage); // перехват события USB-
begin
 if msg.WParam = DBT_DEVICEARRIVAL then
  if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
 messagebox(handle,pchar(GetDrive(PDevBroadcastVolume(Msg. lParam))),'',0);
end;

[54rus]

raxp спасибо
Я так понял эта процедура работает только с USB дисками а как мне отследить появление нового виртуального диска и узнать его букву.

[raxp]

уберите проверку

if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume

и будет отслеживать все диски

[54rus]

raxp очень огромное спасибо. сейчас буду пробывать

Ни чего не получается. (вроде раньше руки из нужного места росли). можно подробнее.

[raxp]

можно и подробнее... (расширение поменяйте на dpr)
(для пробы, виртуальный можете смонтировать так - subst Z: /с)