VPF::Определение и установка... - Форум программистов

WIN32API

Дата 12.4.2005, 15:19 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ребята, не подскажите как программно определить скорость CD-привода, а также установить ее, как это делает, например, CDSlow или утилитка, входящая в поставку с Неро?

~FoX~

Дата 12.4.2005, 16:18 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 0
Всего: 68

Цитата

Находим в интернете файл ASPI.pas (еще есть wnaspi32.pas), подключаем его к проекту, пишем следующий код:

Код


function SetCDSpeed(Host,Target:byte;Speed:integer):BOOL; 
var 
  dwASPIStatus: DWORD; 
  hEvent: THandle; 
  srbExec: SRB_ExecSCSICmd; 
begin 
  if Speed<176 then result:=false 
  else 
  begin 
  hEvent:=CreateEvent(nil, true, false, nil); 
  Fillchar(srbExec,sizeof(SRB_ExecSCSICmd),0); 
  srbExec.SRB_Cmd:= SC_EXEC_SCSI_CMD; 
  srbExec.SRB_Flags:= SRB_DIR_OUT or SRB_EVENT_NOTIFY; 
  srbExec.SRB_Target:= Target; 
  srbExec.SRB_HaId:= Host; 
  srbExec.SRB_Lun:= 0; 
  srbExec.SRB_SenseLen:= SENSE_LEN; 
  srbExec.SRB_CDBLen:= 12; 
  srbExec.SRB_PostProc:=Pointer(hEvent); 
  srbExec.CDBByte[0]:= $BB; // команда изменения скорости привода 
  srbExec.CDBByte[2]:= Speed shr 8; 
  srbExec.CDBByte[3]:= Speed; 
  srbExec.CDBByte[4]:= $FF; 
  srbExec.CDBByte[5]:= $FF; 
  ResetEvent(hEvent); 
  dwASPIStatus:= SendASPI32Command(@srbExec); 
  if dwASPIStatus=SS_PENDING 
  then 
  begin 
    WaitForSingleObject(hEvent,INFINITE); 
  end; 
  if srbExec.SRB_Status<>SS_COMP 
  then 
  begin 
    MessageBox(0,'Error processing the SRB.','Error',MB_OK); 
    result:=false; 
  end 
  else 
  result:=true; 
  end; 
end;

Читайте FAQ или DRKB

--------------------

…множественность никогда не следует полагать без необходимости…

WIN32API

Дата 12.4.2005, 18:21 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

С установкой - понятно. А как прочитать текущую скорость? Кстати, пример использования бы не помешал??? Даже представленной функции.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »