Как сделать чтобы запущеный exe сам себя удалил?

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: новые сочинения, реферат риски
| Добавил(а) на сайт: Jekonomov.

hEvent := CreateEvent(nil, true, false, nil);

FillChar(buffer,sizeof(buffer),0);

FillChar(Srb,sizeof(TSRB_ExecSCSICmd),0);

Srb.SRB_Cmd := SC_EXEC_SCSI_CMD;

Srb.SRB_Flags := SRB_DIR_IN or SRB_EVENT_NOTIFY;

Srb.SRB_Target := Target;

Srb.SRB_HaId := Host;

Srb.SRB_Lun := Lun;

Srb.SRB_BufLen := sizeof(buffer);

Srb.SRB_BufPointer := @buffer;

Srb.SRB_SenseLen := SENSE_LEN;

Srb.SRB_CDBLen := $0A; // это десятибайтная команда

Srb.SRB_PostProc := Pointer(hEvent);

Srb.CDBByte[0] := $5A; // код команды MODE SENSE(10)

// код страницы CD Capabilities and Mechanical Status Page

Srb.CDBByte[2] := $2A;

Srb.CDBByte[7] := HIBYTE(sizeof(buffer));

Srb.CDBByte[8] := LOBYTE(sizeof(buffer));

ResetEvent(hEvent);

dwASPIStatus := SendASPI32Command(@Srb);

if dwASPIStatus=SS_PENDING then

WaitForSingleObject(hEvent,INFINITE);

if Srb.SRB_Status<>SS_COMP then

// если ошибка, обнуляем структуру TCDSpeeds

Рекомендуем скачать другие рефераты по теме: шпоры по гражданскому праву, заказать дипломную работу.

Claw.ru | Рефераты по информатике, программированию | Как сделать чтобы запущеный exe сам себя удалил?