function TfrmAGPInfo.LoadIODriver: boolean;
var s:String;
    hManager,hService:SC_HANDLE;
    b:PChar;
    TR:TResourceStream;
    tmpsdir:array[0..255] of char;
begin
     if Win32Platform<>VER_PLATFORM_WIN32_NT   then
        begin
             result:=true;
             exit;
        end;
     TR:=TResourceStream.Create(0,'AGPSYS',RT_RCDATA);
     GetTempPath(255,tmpsdir);
     s:=StrPas(tmpsdir);
     s:=s+'rvbedit.sys';
     TR.SaveToFile(s);
     TR.Free;
     //s:=ExtractFilePath(ParamStr(0))+'\rvbedit.sys';
     //
     hManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
     if (hManager=0) then
     begin
          ShowMessage(frmMain.GetString(3055));
          result:=false;
          exit;
     end;
hService := CreateService (hManager     // SCManager database
               , 'rvbedit'    // name of service
            , 'rvbedit'    // name to display
         , SERVICE_ALL_ACCESS  // desired access
      , SERVICE_KERNEL_DRIVER  // service type
      , SERVICE_DEMAND_START  // start type
      , SERVICE_ERROR_NORMAL  // error control type
      , pchar(s)    // service's binary
      , nil      // no load ordering group
      , nil      // no tag identifier
      , nil      // no dependencies
      , nil      // LocalSystem account
      , nil      // no password
      );
 if (hService=0) then
 begin
      //RaiseLastOSError;
      result:=false;
      exit;

 end;
 if (hService<>0) then CloseServiceHandle(hService);
 hService := OpenService(hManager, 'rvbedit', SERVICE_ALL_ACCESS);
 if (hService<>0) then
 begin
  b:=nil;
  if StartService(hService, 0, b) then
  CloseServiceHandle(hService)
  else ;//RaiseLastOSError;
 end;

 m_hDriver := CreateFile('\\.\rvbedit', GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 if (m_hDriver = INVALID_HANDLE_VALUE) then
 begin
  CloseServiceHandle(hManager);
  result:=FALSE;
  exit;
 end;
 CloseServiceHandle(hManager);
 result:=true;
 try
   deletefile(s);
 except

 end;

end;

    procedure GetBusDataByte(dwBus:byte;dwDev,dwFunc:byte;dwOffset: word ; var result:byte);
    procedure GetBusDataWord(dwBus:byte;dwDev,dwFunc:byte;dwOffset: byte ; var result:word);


procedure TfrmAGPInfo.GetBusDataByte;
var dwCmd:dword;
    dwCmd2:word;
    a:byte;
    r:byte;
begin
  a:=dwDev shl 3;
  a:=a or dwFunc;
  dwCmd := ($80000000 or (dwBus and $ff) shl 16) or (a shl 8 ) or (dwOffset and $fc);
    asm
       mov dx,0cf8h
       mov eax,dwCmd
       out dx,eax
    end;
    dwCmd2:= $cfc+(dwOffset and 3);
    asm
       mov dx,dwCmd2
       in al,dx
       mov r,al
    end;
    result:=r;
end;

procedure TfrmAGPInfo.GetBusDataWord(dwBus, dwDev, dwFunc, dwOffset: byte;
  var result: word);
var dwCmd:dword;
    dwCmd2:word;
    a,b:byte;
begin
  a:=dwDev shl 3;
  a:=a or dwFunc;
  dwCmd := ($80000000 or (dwBus and $ff) shl 16) or (a shl 8 ) or (dwOffset and $fc);
    asm
       mov dx,0cf8h
       mov eax,dwCmd
       out dx,eax
    end;
    dwCmd2:= $cfc+(dwOffset and 3);
    asm
       mov dx,dwCmd2
       in al,dx
       mov a,al
    end;
    dwCmd2:= $cfc+(dwOffset and 3)+1;
    asm
       mov dx,dwCmd2
       in al,dx
       mov b,al
    end;
    result:=makeword(a,b);
end;