![]() ![]() Procedure TM圜lass.WMDeviceChange ( var Msg: TMessage ) īegin if Msg.Msg = WM_Quit then Closing := true else if Msg.Msg = WM_DeviceChange then begin if Msg.wParam = $8000 then begin if PDEV_BROADCAST_HDR (Msg.LParam )^.dbch_devicetype = 2 then begin if PDEV_BROADCAST_VOLUME (Msg.LParam )^.dbcv_flags = 0 then begin //CODE end īegin while not (Closing ) do begin if PeekMessage (Msg, 0, 0, 0, pm_Remove ) then begin if Msg. TForm1 = class (TForm ) private constructor TM圜lass.Create PDEV_BROADCAST_VOLUME = ^TDEV_BROADCAST_VOLUME PDEV_BROADCAST_HDR = ^TDEV_BROADCAST_HDR Le coronavirus identifié en Chine en 2019 a causé rien de plus qu’un gros rhume ou une grippe, sans différence jusqu’à présent avec le rhume ou la grippe tels que nous les connaissons », déclare-t-il. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |