Как сделать чтобы запущеный exe сам себя удалил?
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: новые сочинения, реферат риски
| Добавил(а) на сайт: Jekonomov.
Предыдущая страница реферата | 4 5 6 7 8 9 10 11 12 13 14 | Следующая страница реферата
begin
// инициализируем буфер (просто обнуляем его)
Fillchar(buffer, sizeof(buffer), 0);
// инициализируем структуру TSRB_ExecSCSICmd (глобальная переменная Srb)
Fillchar(Srb, sizeof(TSRB_ExecSCSICmd), 0);
hEvent := CreateEvent(nil, true, false, nil); // создаём событие
ResetEvent(hEvent); // переключаем на наше событие
with Srb do
begin
SRB_Cmd := SC_EXEC_SCSI_CMD;
SRB_HaId := Cdroms.Cdroms[Number].HaID;
SRB_Target := Cdroms.Cdroms[Number].Target;
SRB_Lun := Cdroms.Cdroms[Number].Lun;
// здесь добавляется ещё один флаг SRB_EVENT_NOTIFY ($40), уведомляющий
// систему о событии
SRB_Flags := SRB_DIR_IN or SRB_EVENT_NOTIFY;
SRB_BufLen := sizeof(buffer); // указываем размер буфера
SRB_BufPointer := @buffer; // определяем указатель на наш буфер
SRB_SenseLen := SENSE_LEN; // определяем длину буфера значения
SRB_CDBLen := 6; // эта команда – шестибайтная
SRB_PostProc := Pointer(hEvent); // процедура постинга – созданное событие
CDBByte[0] := $12; // код команды INQUIRY
// сюда помещаем старший байт длины буфера
CDBByte[3] := HIBYTE(sizeof(buffer));
// а сюда помещаем младший байт длины буфера
Рекомендуем скачать другие рефераты по теме: шпоры по гражданскому праву, заказать дипломную работу.
Категории:
Предыдущая страница реферата | 4 5 6 7 8 9 10 11 12 13 14 | Следующая страница реферата
Главная