Главная страница
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.025 c
1-80008
-=Zerg=-
2004-02-12 10:50
2004.02.25
ХЕЛП!!! Как избежать ошибки Out Of Memory при линковании программ


14-80218
Nikolay M.
2004-02-05 17:43
2004.02.25
ОФИСНАЯ МОЛИТВА... :)


1-79944
Ш-К
2004-02-09 16:15
2004.02.25
Абсолютные координаты.


1-79845
KOSTIK
2004-02-10 19:20
2004.02.25
Рисунок из TImageList в TImage


14-80176
@ac
2004-01-31 08:05
2004.02.25
У кого есть опыт переписки с журналистами, редакторами, ведущими