function RiGetRenderWindow():Pointer; stdcall; external RiBox3D.dll name 'RiGetRenderWindow@0';

unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
 THiAsmClass = class(TDebug)
   private
        
    public
 onFanon: THI_Event;
 onFanoff: THI_Event;
   
  Procedure doFanOn(var _Data:TData; Index:Word); 
  Procedure doFanOff(var _Data:TData; Index:Word);
 end;
Procedure on(); stdcall; external AcerFanControlLib.dll name '_on@0';
Procedure off(); stdcall; external AcerFanControlLib.dll name '_off@0';
  
 implementation
   
Procedure THiAsmClass.doFanOn;
begin
 on;
    _hi_OnEvent(onFanon,'Yes') ;
end;

Procedure THiAsmClass.doFanOff;
begin
 off;
    _hi_OnEvent(onFanoff,'Yes') ;
end;
end.