Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

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

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

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


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

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


 
Shiza ©   (2003-12-05 16:08) [2]

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

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;



Страницы: 1 вся ветка

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
4-80358
yaric
2003-11-26 18:08
2004.02.25
Можно ли программно заблокировать лоток CD


1-80017
Developer
2004-02-13 08:59
2004.02.25
Объект автоматизации с поддержкой определенного COM-интерфейса


1-79908
AlexandrKu
2004-02-09 16:14
2004.02.25
Доступ к ячейкам Excel через OleContainer


1-79906
Budy
2004-02-09 15:20
2004.02.25
Align у TEdit


3-79634
deadbitch
2004-01-31 19:13
2004.02.25
Возврат набора данных из stored proc