25 lines
363 B
ObjectPascal
25 lines
363 B
ObjectPascal
unit mr.drv.trinity;
|
|
|
|
interface
|
|
uses
|
|
mr.drv.usb.winusb;
|
|
|
|
type TTrinityDriver = class (TWinUsbDriver)
|
|
class constructor CreateClass;
|
|
end;
|
|
|
|
|
|
implementation
|
|
uses
|
|
mr.dev.manager;
|
|
|
|
class constructor TTrinityDriver.CreateClass;
|
|
begin
|
|
fInterfaceGUID := '{CDDE880F-898A-4DAB-B0EA-51FBA32C1D82}';
|
|
end;
|
|
|
|
initialization
|
|
RegisterDriver( TTrinityDriver);
|
|
|
|
end.
|