Mit Delphi 6.0 auf USB zugreifen

[NicoDE]

Wie Robert schon bemerkt hat, wird der Aufruf von CreateFile nicht funktionieren (wird bei Dir auch nicht überprüft)

Delphi-Quellcode:

function RdPort(PortNr: Byte; out Value: Byte): Boolean;
var
  InBuffer: _lIn;  // TInBuffer?
  OutBuffer: _lOut;  // TOutBuffer?
  DeviceHandle: THandle;
  BytesReturned: DWORD;
begin
  Result := False;
  DeviceHandle := CreateFile('\\.\CompuLABusb_0', 0, // bzw. GENERIC_READ/WRITE
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  if (DeviceHandle <> INVALID_HANDLE_VALUE) then
  try
    InBuffer.bFunction := 20;
    InBuffer.bValue1 := PortNr;
    if DeviceIoControl(DeviceHandle, $04, @InBuffer, SizeOf(InBuffer),
      @OutBuffer, SizeOf(OutBuffer), BytesReturned, nil) then
    begin
      Value := OutBuffer.bValue1;
      Result := True;
    end;
  finally
    CloseHandle (DeviceHandle);
  end;
end;