| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как программно замедлить скорость вращения CD-ROMа [D7, Win95/98, WinXP]

delpher_g ©   (2007-11-27 14:43:00) 

Ув. мастера!
Подскажите как можно в Дельфи программно замедлить скорость вращения CD-ROM'а до минимума, а потом восстановить до максимума.
Если возможно с примерами.
Спасибо.

---

slow!alfamoon!com   (2007-11-27 17:14:00) [1]

инклуды искать например на http://delphi-jedi.org/

---

Rouse_   (2007-11-27 15:30:00) [2]

uses ASPI; // в инете где-то лежит

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;

---

Наверх