32 lines
625 B
ObjectPascal
32 lines
625 B
ObjectPascal
unit mr.drv;
|
|
|
|
interface
|
|
|
|
type
|
|
TDriver = class abstract
|
|
protected
|
|
class var
|
|
fInterfaceGuid : string;
|
|
|
|
protected
|
|
fDeviceHandle : THandle;
|
|
fDevicePath : string;
|
|
|
|
public
|
|
procedure Open; virtual; abstract;
|
|
procedure Close; virtual; abstract;
|
|
|
|
public
|
|
class property InterfaceGUID: string read fInterfaceGuid;
|
|
|
|
public
|
|
property DevicePath : string read fDevicePath;
|
|
property DeviceHandle : THandle read fDeviceHandle;
|
|
end;
|
|
|
|
TDriverClass = class of TDriver;
|
|
|
|
implementation
|
|
|
|
end.
|