Вставлена ли флешка

[Baaandit]

Нашел такой код в интернете,определяет имя вставленной флешки.Можно ли описать процедуру WMDeviceChange без привязке к форме?-Чтоб программа меньше весила.

type
  TForm1 = class(TForm)
  private
    procedure WMDeviceChange(var Msg: TMessage); message WM_DeviceChange;
    { Private declarations }
  public
    { Public declarations }
  end;
   const
     DBT_DeviceArrival = $8000;
   DBT_DeviceRemoveComplete = $8004;
   DBTF_Media = $0001;
   DBT_DevTyp_Volume = $0002;

 type
   PDevBroadcastHdr = ^TDevBroadcastHdr;
   TDevBroadcastHdr = packed record
     dbcd_size: DWORD;
     dbcd_devicetype: DWORD;
     dbcd_reserved: DWORD;
   end;

 type
   PDevBroadcastVolume = ^TDevBroadcastVolume;
   TDevBroadcastVolume = packed record
     dbcv_size: DWORD;
     dbcv_devicetype: DWORD;
     dbcv_reserved: DWORD;
     dbcv_unitmask: DWORD;
     dbcv_flags: Word;
   end;

var
  Form1: TForm1;

implementation
 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 tform1.WMDeviceChange(var Msg: TMessage);
var
   drive: string;
 begin
   inherited;
   case Msg.wParam of
      DBT_DEVICEARRIVAL:if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
       begin
         Drive :=GetDrive(PDevBroadcastVolume(Msg.lParam));
         showmessage(drive);
   end;
        end;
 end;

[Greblin]

Вариантов как минимум 2: служба и просто программа без формы

[notHaker]

Сообщение от Greblin

Вариантов как минимум 2: служба и просто программа без формы

Исчо можно WND "пустой" зарегить. Распространённая практика... Службы - гемор, никому не нужный.

[Baaandit]

Сообщение от notHaker

Исчо можно WND "пустой" зарегить. Распространённая практика... Службы - гемор, никому не нужный.

Код можно привести? Хотя бы какой-то пример, с чего вообще начать.

[raxp]

Нашел такой код в интернете,определяет имя вставленной флешки.Можно ли описать процедуру WMDeviceChange без привязке к форме?

да можно, на api:

var FWnd: HWnd;
...
// при создании-
FWnd:= AllocateHWnd(WndProc)

procedure WndProc(var Msg:TMessage);
begin
 case Msg.wparam of
    
    DBT_DEVICEARRIVAL: if PDevBroadcastHdr(Msg.lParam)^.dbcd_ devicetype = DBT_DevTyp_Volume then begin
     Drive :=GetDrive(PDevBroadcastVolume(Msg. lParam));
     showmessage(drive);
    end;
 end else Result:= DefWindowProc(FWnd, Msg, wParam, lParam);

[Baaandit]

var FWnd: HWnd;
...
// при создании-
FWnd:= AllocateHWnd(WndProc).
Я так понял-это не весь код который нужен). Можно подронее объяснить,что например делает FWnd:= AllocateHWnd(WndProc).Я так представляю надо создать свой класс средствами API чтоб заработоло или нет? И Result:= DefWindowProc(FWnd, Msg, wParam, lParam).Result вроде только в фунцкциях пишется.

[notHaker]

Сообщение от Baaandit

var FWnd: HWnd;
...
// при создании-
FWnd:= AllocateHWnd(WndProc).
Я так понял-это не весь код который нужен). Можно подронее объяснить,что например делает FWnd:= AllocateHWnd(WndProc).Я так представляю надо создать свой класс средствами API чтоб заработоло или нет?

Да не весь... WND исчо надо закрыть . DeallocateHWnd.
AllocateHWnd создаёт "пустой" WND, по которому можно ловить сообщения.
Можешь класс создать, можешь не создавать (а вабще класс и так создаётся, ток он системный, а ты к нему по дескриптору обращаешся)

Сообщение от Baaandit

И Result:= DefWindowProc(FWnd, Msg, wParam, lParam).Result вроде только в фунцкциях пишется.

чего??

[Baaandit]

Result-не в функцих только пишется)?

[notHaker]

Msg.Result имеется ввиду.

[Baaandit]

Сообщение от raxp

да можно, на api:

var FWnd: HWnd;
...
// при создании-
FWnd:= AllocateHWnd(WndProc)

procedure WndProc(var Msg:TMessage);
begin
 case Msg.wparam of
    
    DBT_DEVICEARRIVAL: if PDevBroadcastHdr(Msg.lParam)^.dbcd_ devicetype = DBT_DevTyp_Volume then begin
     Drive :=GetDrive(PDevBroadcastVolume(Msg. lParam));
     showmessage(drive);
    end;
 end else Result:= DefWindowProc(FWnd, Msg, wParam, lParam);

Все равно не пойму,как описать это код?