ioctl_scsi_miniport = $0004d008;
ioctl_scsi_miniport_identify = $001b0501;
datasize = sizeof(tsendcmdinparams)-1+identify_buffer_size;
buffersize = sizeof(srb_io_control)+datasize;
w9xbuffersize = identify_buffer_size+16;
var
hdevice : thandle;
cbbytesreturned : dword;
pindata : psendcmdinparams;
poutdata : pointer; // psendcmdoutparams
buffer : array[0..buffersize-1] of byte;
srbcontrol : tsrbiocontrol absolute buffer;
procedure changebyteorder( var data; size : integer );
var ptr : pchar;
i : integer;
c : char;
begin
ptr := @data;
for i := 0 to (size shr 1)-1 do
begin
