Главная страница
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
14-80137
SergP
2004-02-01 23:36
2004.02.25
Вопрос про кеширование


1-80011
Yanis
2004-02-10 00:17
2004.02.25
Stream ы


1-80007
Den_K2004
2004-02-13 10:25
2004.02.25
Как подсунуть свои картинки в TWebBrowser


1-79813
siriusP
2004-02-10 19:22
2004.02.25
Как вставить в ImageList прозрачную картинку?


1-79732
Серёга
2004-02-02 15:29
2004.02.25
TStringgrid