Rework

2026-01-08 19:04:51 +01:00
parent b9305ab8af
commit cb039a3035
14 changed files with 723 additions and 338 deletions
@@ -3,7 +3,11 @@ unit mr.drv;
 interface

 type
-   TDriver =  class abstract( TInterfacedObject)
+   TDriver =  class abstract
+      protected
+         class var
+            fInterfaceGuid : string;
+
      protected
         fDeviceHandle     : THandle;
         fDevicePath       : string;
@@ -13,8 +17,11 @@ type
         procedure   Close;   virtual; abstract;

      public
-         property    DevicePath     : string    read  fDevicePath;
-         property    DeviceHandle   : THandle   read  fDeviceHandle;
+         class property InterfaceGUID: string read fInterfaceGuid;
+
+      public
+         property    DevicePath   : string  read  fDevicePath;
+         property    DeviceHandle : THandle read  fDeviceHandle;
   end;

   TDriverClass = class of TDriver;