Initial check in

2026-01-03 18:53:14 +01:00
commit b9305ab8af
36 changed files with 6720 additions and 0 deletions
@@ -0,0 +1,24 @@
+unit mr.drv;
+
+interface
+
+type
+   TDriver =  class abstract( TInterfacedObject)
+      protected
+         fDeviceHandle     : THandle;
+         fDevicePath       : string;
+
+      public
+         procedure   Open;    virtual; abstract;
+         procedure   Close;   virtual; abstract;
+
+      public
+         property    DevicePath     : string    read  fDevicePath;
+         property    DeviceHandle   : THandle   read  fDeviceHandle;
+   end;
+
+   TDriverClass = class of TDriver;
+
+implementation
+
+end.