Скорость CD

← →
Shiza © (2003-12-03 13:54) [0]

Знает ли кто-нибудь, как уменьшить скорость CD-ROM. У меня есть код, но он выдаёт ошибку. Определить скорость - работает. Подскажите если кто работал с ASPI.

← →
*FoX (2003-12-04 13:12) [1]

Слушай чувак кидани этот код мне на мыло , а там разберёмся:
antilamer@pisem.net

Вот тебе код:{извини что не на мыло}

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;

Скорость CD Найти похожие ветки