Реферат: Как сделать чтобы запущеный exe сам себя удалил 2
CloseHandle(hEvent);
end;
Итак, скорости мы определили, теперь нужно научиться ими управлять.
Для этого воспользуемся SCSI-командой SetCDSpeed.
|
// параметры ReadSpeed и WriteSpeed – скорость чтения и записи соответственно function SetSpeed( Host, Target, Lun : Byte; ReadSpeed, WriteSpeed : integer) : boolean; begin if ReadSpeed=0 then result := false else begin hEvent := CreateEvent(nil, true, false, nil); FillChar(Srb,sizeof(TSRB_ExecSCSICmd), 0); Srb.SRB_Cmd := SC_EXEC_SCSI_CMD; // обратите внимание здесь данные передаются из приложения в // устройство (флаг SRB_DIR_OUT) Srb.SRB_Flags := SRB_DIR_OUT or SRB_EVENT_NOTIFY; Srb.SRB_Target := Target; Srb.SRB_HaId := Host; Srb.SRB_Lun := Lun; Srb.SRB_SenseLen := SENSE_LEN; Srb.SRB_CDBLen := $0C; // эта команда двенадцатибайтная Srb.SRB_PostProc := Pointer(hEvent); Srb.CDBByte[0] := $BB; // код команды Set CD Speed // устанавливаем скорость чтения Srb.CDBByte[2] := Byte((ReadSpeed * 176) shr 8); Srb.CDBByte[3] := Byte(ReadSpeed * 176); К-во Просмотров: 454
Бесплатно скачать Реферат: Как сделать чтобы запущеный exe сам себя удалил 2
|