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

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

if DeviceIoControl(hDevice, IOCTL_SCSI_PASS_THROUGH, @sptwb,

len, @sptwb, len, Returned, nil) and (sptwb.Spt.ScsiStatus = $00) then

begin

// Нижеследующие циклы предназначены для разделения информации о

// производителе, спецификации и т.д. Если вашей программе это не нужно,

// можно сделать так : ShowMessage(PChar(@sptwb.bDataBuf[8]));

s := '';

for j := 8 to 15 do

s := s + Chr(sptwb.bDataBuf[j]);

// Идентификатор производителя

Cdroms.Cdroms[Cdroms.ActiveCdrom].VendorID := s;

s := '';

for j := 16 to 31 do

s := s + Chr(sptwb.bDataBuf[j]);

Cdroms.Cdroms[Cdroms.ActiveCdrom].ProductID := s; // Идентификатор продукта

s := '';

for j := 32 to 35 do

s := s+chr(sptwb.bDataBuf[j]);

Cdroms.Cdroms[Cdroms.ActiveCdrom].Revision := s; // Номер изменения

s := '';

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

Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата

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