45827 (Как сделать чтобы запущеный exe сам себя удалил?), страница 3

type

TScsiPassThrough = record

Length : Word; // Размер структуры TScsiPassThrough

ScsiStatus : Byte; // Статус SCSI-запроса

PathId : Byte; // Идентификатор SCSI-адаптера

TargetId : Byte; // Идентификатор объекта SCSI

Lun : Byte; // Logical Unit Number (LUN - логический номер устройства)

// Длина CDB (Command Descriptor Block – блока дескриптора команды)

CDBLength : Byte;

SenseInfoLength : Byte; // Длина буфера значения

DataIn : Byte; // Байт, определяющий тип запроса (ввод или вывод)

DataTransferLength : DWORD; // Размер передаваемых данных

TimeOutValue : DWORD; // Время ожидания запроса в секундах

DataBufferOffset : DWORD; // Смещение буфера данных

SenseInfoOffset : DWORD; // Смещение буфера значения

// SCSI Command Descriptor Block (Блок дескриптора команды)

CDB: array [0..15] of Byte;

end;

TScsiPassThroughWithBuffers = record

spt : TScsiPassThrough;

bSenseBuf : array [0..31] of Byte; // Буфер значения

bDataBuf : array [0..191] of Byte; // Буфер данных

end;

ScsiPassThroughWithBuffers=TScsiPassThroughWithBuffers;

PScsiPassThroughWithBuffers=^TScsiPassThroughWithBuffers;

procedure GetSPTIDrives; // Процедура получает информацию о CD-ROM

var

j : integer;

s : string;

len, returned : DWORD;

sptwb : TScsiPassThroughWithBuffers;

Cdroms : TCdroms; // Структура Tcdroms описана в предыдущей статье

const

SCSI_IOCTL_DATA_IN = 1;

IOCTL_SCSI_PASS_THROUGH = ($00000004 shl 16)

or (($0001 or $0002) shl 14) or ($0401 shl 2) or (0);

begin

// Кроме строки '\\.\E : ', можно использовать, 'cdrom0', 'cdrom1' и т.д.

// в зависимости от количества устройств

hDevice := CreateFile('\\.\E : ', GENERIC_READ or GENERIC_WRITE,

FILE_SHARE_READ or FILE_SHARE_WRITE,

nil, OPEN_EXISTING, 0, 0);

if hDevice=INVALID_HANDLE_VALUE then

ShowMessage('INVALID_HANDLE_VALUE');

sptwb.Spt.Length := sizeof(TSCSIPASSTHROUGH);

sptwb.Spt.CdbLength := 6; // Шестибайтная команда

sptwb.Spt.SenseInfoLength := 24;

// Команда будет получать данные от устройства (ввод)

sptwb.Spt.DataIn := SCSI_IOCTL_DATA_IN;

// Устанавливаем размер передаваемых данных

sptwb.Spt.DataTransferLength := sizeof(sptwb.bDataBuf);

sptwb.Spt.TimeOutValue := 10; // Время ожидания – 10 секунд

sptwb.Spt.DataBufferOffset := DWORD(@sptwb.bDataBuf)-DWORD(@sptwb);

sptwb.Spt.SenseInfoOffset := DWORD(@sptwb.bSenseBuf)-DWORD(@sptwb);

len := sptwb.Spt.DataBufferOffset+sptwb.spt.DataTransferLength;

// Команда INQUIRY вам уже известна по предыдущей статье

sptwb.Spt.CDB[0] := SCSI_INQUIRY;

sptwb.Spt.CDB[3] := HiByte(sizeof(sptwb.bDataBuf));

sptwb.Spt.CDB[4] := LoByte(sizeof(sptwb.bDataBuf));

if DeviceIoControl(hDevice, IOCTL_SCSI_PASS_THROUGH, @sptwb,

len, @sptwb, len, Returned, nil) and (sptwb.Spt.ScsiStatus = $00) then

begin

// Нижеследующие циклы предназначены для разделения информации о

// производителе, спецификации и т.д. Если вашей программе это не нужно,

// можно сделать так : ShowMessage(PChar(@sptwb.bDataBuf[8]));

s := '';

for j := 8 to 15 do

s := s + Chr(sptwb.bDataBuf[j]);

// Идентификатор производителя

Cdroms.Cdroms[Cdroms.ActiveCdrom].VendorID := s;

s := '';

for j := 16 to 31 do

s := s + Chr(sptwb.bDataBuf[j]);

Cdroms.Cdroms[Cdroms.ActiveCdrom].ProductID := s; // Идентификатор продукта

s := '';

for j := 32 to 35 do

s := s+chr(sptwb.bDataBuf[j]);

Cdroms.Cdroms[Cdroms.ActiveCdrom].Revision := s; // Номер изменения

s := '';

for j := 36 to 55 do

s := s+chr(sptwb.bDataBuf[j]);

// Спецификация производителя

Cdroms.Cdroms[Cdroms.ActiveCdrom].VendorSpec := s;

end;

end;

procedure Get_PathId_TargetId_Lun;

var

buf : array [0..1023] of Byte;

pscsiAddr:PSCSI_ADDRESS;

const

IOCTL_SCSI_GET_ADDRESS = $41018;

begin

ZeroMemory(@buf, sizeof(buf));

pscsiAddr := PSCSI_ADDRESS(@buf);

pscsiAddr^.Length := sizeof(TSCSI_ADDRESS);

if (DeviceIoControl(hDevice, IOCTL_SCSI_GET_ADDRESS, nil, 0,

pscsiAddr, sizeof(TSCSI_ADDRESS), returned, nil)) then

begin

Cdroms.Cdroms[Cdroms.ActiveCdrom].HaID := pscsiAddr^.PortNumber;

Cdroms.Cdroms[Cdroms.ActiveCdrom].Target := pscsiAddr^.TargetId;

Cdroms.Cdroms[Cdroms.ActiveCdrom].Lun := pscsiAddr^.Lun;

end else

ShowMessage(SysErrorMessage(GetLastError));

end;

type

TSCSI_ADDRESS = record

Length : LongInt; // Размер структуры TSCSI_ADDRESS

PortNumber : Byte; // Номер адаптера SCSI

PathId : Byte; // Идентификатор адаптера SCSI

TargetId : Byte; // Идентификатор объекта SCSI

Lun : Byte; // Логический номер устройства

end;

SCSI_ADDRESS = TSCSI_ADDRESS;

PSCSI_ADDRESS = ^TSCSI_ADDRESS;

function SPTISetSpeed(ReadSpeed, WriteSpeed:integer):Boolean;

var

spti:TScsiPassThroughWithBuffers;

const

SCSI_IOCTL_DATA_OUT = 0;

Rate = 176;

begin

spti.Spt.Length := sizeof(TSCSIPASSTHROUGH);

spti.Spt.CdbLength := 10;

spti.Spt.SenseInfoLength := 24;

spti.Spt.DataIn := SCSI_IOCTL_DATA_OUT;

spti.Spt.TimeOutValue := 10;

spti.spt.DataBufferOffset := DWORD(@spti.bDataBuf)-DWORD(@spti);

spti.spt.SenseInfoOffset := DWORD(@spti.bSenseBuf)-DWORD(@spti);

spti.Spt.DataTransferLength := sizeof(spti.bDataBuf);

spti.spt.CDB[0] := $BB;

spti.spt.CDB[2] := BYTE(ReadSpeed*Rate shr 8);

spti.spt.CDB[3] := BYTE(ReadSpeed*Rate);

if WriteSpeed<>0 then

begin

spti.spt.CDB[4] := BYTE(WriteSpeed*Rate shr 8);

spti.spt.CDB[5] := BYTE(WriteSpeed*Rate);

end else

spti.spt.CDB[4] := $FF;

spti.spt.CDB[5] := $FF;

if DeviceIoControl(hDevice, IOCTL_SCSI_PASS_THROUGH, @spti, len, @spti, len, returned, nil) and

(spti.spt.ScsiStatus=$00) then result := true

else

result := false;

end;