Реферат: Как сделать чтобы запущеный exe сам себя удалил 2
begin
// ...устанавливаем скорость записи
Srb.CDBByte[4] := Byte((WriteSpeed * 176) shr 8);
Srb.CDBByte[5] := Byte(WriteSpeed * 176);
end;
ResetEvent(hEvent);
dwASPIStatus := SendASPI32Command(@Srb);
if dwASPIStatus=SS_PENDING then
WaitForSingleObject(hEvent,INFINITE);
if Srb.SRB_Status<>SS_COMP then
result := false
else
result := true;
end;
end;
Напоследок хочу рассказать о том, как узнать все скорости, которые поддерживает привод. Разместите на форме компоненты TComboBox и TButton. В обработчике события OnClick компонента TButton поместите следующий код:
|
var i : integer; begin ComboBox1.Items.Clear; // очищаем элементы выпадающего списка with Cdroms.Cdroms[0] do // используем первый CD-ROM begin // открываем цикл от 1 до максимальной скорости привода for i := 1 to GetCDSpeeds(HaID, Target, Lun).MaxSpeed do begin SetSpeed(HaID, Target, Lun, i, 0); // устанавливаем скорость, равную i if i = GetCDSpeeds(HaID, Target, Lun).CurrentSpeed then // сравниваем, если текущая скорость равна i, заносим это // значение в выпадающий список К-во Просмотров: 453
Бесплатно скачать Реферат: Как сделать чтобы запущеный exe сам себя удалил 2
|