CreateFile & DeviceIOControl Problem mit 64Bit

[RWarnecke]

Hallo zusammen,

ich habe folgende Funktion für 32Bit-Programme bis jetzt immer erfolgreich genutzt. Wenn ich die gleiche Funktion für 64Bit kompiliere und ausführe gibt der erste DeviceIOControl-Befehl immer False zurück.

Delphi-Quellcode:

type
  SCSIPASSTHROUGH = record
    spt_Length             : Word;
    spt_ScsiStatus         : Byte;
    spt_PathId             : Byte;
    spt_TargetId           : Byte;
    spt_Lun                : Byte;
    spt_CdbLength          : Byte;
    spt_SenseInfoLength    : Byte;
    spt_DataIn             : Byte;
    spt_DataTransferLength : ULong;
    spt_TimeOutValue       : ULong;
    spt_DataBufferOffset   : DWord;
    spt_SenseInfoOffset    : ULong;
    spt_Cdb                : array[0..15] of Byte;
  end;

  SCSI_PASS_THROUGH_DIRECT_WITH_BUFFER = record
    spt : SCSI_PASS_THROUGH_DIRECT;
    Filler : ULONG;
    ucSenseBuf : array[0..32 - 1] of Byte;
  end;
  PSCSI_PASS_THROUGH_DIRECT_WITH_BUFFER = ^SCSI_PASS_THROUGH_DIRECT_WITH_BUFFER;

  SCSI_ADDRESS = record
    Length : LongInt;
    PortNumber : Byte;
    PathId : Byte;
    TargetId : Byte;
    Lun : Byte;
  end;
  PSCSI_ADDRESS = ^SCSI_ADDRESS;

const
  SCSI_IOCTL_DATA_IN             = 1;
  IOCTL_SCSI_PASS_THROUGH_DIRECT = $4D014;
  IOCTL_SCSI_GET_ADDRESS         = $41018;

{...}

procedure TCDDVDInfo.GetCDDVDDriveInfos;
var
  I, returned  : Integer;
  FileHandle   : THandle;
  buffer       : array[0..1023] of AnsiChar;
  inqData      : array[0..99] of AnsiChar;
  pswb         : PSCSI_PASS_THROUGH_DIRECT_WITH_BUFFER;
  pscsiAddr    : PSCSI_ADDRESS;
  DriveString  : PAnsiChar;
  sptdwblength : Integer;
  CDDVDDrive   : string;
begin
  for I := 0 to FCDDVDCount - 1 do
  begin
    setlength(FVendor, i + 1);
    setlength(FProductId, i + 1);
    setlength(FRevision, i + 1);
    setlength(FVendorSpec, i + 1);
    setlength(FModellName, i + 1);
    setlength(FHaId, i + 1);
    setlength(FTarget, i + 1);
    setlength(FLun, i + 1);
    CDDVDDrive := '\\.\' + string(FDriveLetter[i]) + ':';
    FileHandle := CreateFile(pointer(CDDVDDrive),
                     GENERIC_READ or GENERIC_WRITE,
                     FILE_SHARE_READ or FILE_SHARE_WRITE,
                     nil,
                     OPEN_EXISTING,
                     FILE_ATTRIBUTE_NORMAL,
                     0);
    if FileHandle <> INVALID_HANDLE_VALUE then
    begin
      ZeroMemory(@buffer, 1024);
      ZeroMemory(@inqData, 100);
      pswb := PSCSI_PASS_THROUGH_DIRECT_WITH_BUFFER(@buffer);
      pswb^.spt.Length := sizeof(SCSIPASSTHROUGH);
      pswb^.spt.CdbLength := 6;
      pswb^.spt.SenseInfoLength := 24;
      pswb^.spt.DataIn := SCSI_IOCTL_DATA_IN;
      pswb^.spt.DataTransferLength := 100;
      pswb^.spt.TimeOutValue := 2;
      pswb^.spt.DataBuffer := @inqData;
      pswb^.spt.SenseInfoOffset := sizeof(pswb^.spt) + sizeof(pswb^.Filler);
      pswb^.spt.Cdb[0] := $12;
      pswb^.spt.Cdb[4] := $64;
      sptdwblength := sizeof(SCSI_PASS_THROUGH_DIRECT_WITH_BUFFER);
      if DeviceIoControl(FileHandle, IOCTL_SCSI_PASS_THROUGH_DIRECT,
            pswb, sptdwblength, pswb, sptdwblength,
            Cardinal(returned), nil) then
      begin
        DriveString := @inqData[0];
        Inc(DriveString, 8);
        FVendor[i] := Copy(DriveString, 1, 8);
        FProductId[i] := Copy(DriveString, 8 + 1, 16);
        FRevision[i] := Copy(DriveString, 24 + 1, 4);
        FVendorSpec[i] := Copy(DriveString, 28 + 1, 20);
        FModellName[i] := FVendor[i] + FProductId[i] + FRevision[i];
        ZeroMemory( @buffer, 1024 );
        pscsiAddr := PSCSI_ADDRESS( @buffer );
        pscsiAddr^.Length := sizeof( SCSI_ADDRESS );
        if ( DeviceIoControl( FileHandle, IOCTL_SCSI_GET_ADDRESS, nil, 0,
          pscsiAddr, sizeof( SCSI_ADDRESS ), Cardinal( returned ),
          nil ) ) then
        begin
          FHaId[i] := pscsiAddr^.PortNumber;
          FTarget[i] := pscsiAddr^.TargetId;
          FLun[i] := pscsiAddr^.Lun;
        end;
        CloseHandle(FileHandle);
      end;
    end;
  end;     // FOR-Schleife Anzahl der CD-ROM/DVD Laufwerke
end;

Ich verstehe nur nicht, warum DeviceIoControl für eine 64Bit Anwendung hier False zurückgibt. Warum passiert das und wie kann ich den Teil ändern, dass es für eine 32Bit und eine 64Bit Anwendung funktioniert ?