Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

 hEvent := CreateEvent(nil, true, false, nil);

 FillChar(buffer,sizeof(buffer),0);

 FillChar(Srb,sizeof(TSRB_ExecSCSICmd),0);

 Srb.SRB_Cmd := SC_EXEC_SCSI_CMD;

 Srb.SRB_Flags := SRB_DIR_IN or SRB_EVENT_NOTIFY;

 Srb.SRB_Target := Target;

 Srb.SRB_HaId := Host;

 Srb.SRB_Lun := Lun;

 Srb.SRB_BufLen := sizeof(buffer);

 Srb.SRB_BufPointer := @buffer;

 Srb.SRB_SenseLen := SENSE_LEN;

 Srb.SRB_CDBLen := $0A; // это десятибайтная команда

 Srb.SRB_PostProc := Pointer(hEvent);

 Srb.CDBByte[0] := $5A; // код команды MODE SENSE(10)

 // код страницы CD Capabilities and Mechanical Status Page

 Srb.CDBByte[2] := $2A;

 Srb.CDBByte[7] := HIBYTE(sizeof(buffer));

 Srb.CDBByte[8] := LOBYTE(sizeof(buffer));

 ResetEvent(hEvent);

 dwASPIStatus := SendASPI32Command(@Srb);

 if dwASPIStatus=SS_PENDING then

 WaitForSingleObject(hEvent,INFINITE);

 

 if Srb.SRB_Status<>SS_COMP then

 // если ошибка, обнуляем структуру TCDSpeeds

Рекомендуем скачать другие рефераты по теме: шпоры по гражданскому праву, заказать дипломную работу.



Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки