Реферат: Как сделать чтобы запущеный exe сам себя удалил 2
dwSupportInfo := GetASPI32SupportInfo;
byASPIStatus := HIBYTE(LOWORD(dwSupportInfo)); // статус ASPI
byHACount := LOBYTE(LOWORD(dwSupportInfo)); // количество адаптеров
case byASPIStatus of
SS_COMP: Result := Integer(byHACount);
SS_NO_ADAPTERS: ShowMessage('ASPI-контроллеры не обнаружены!');
SS_ILLEGAL_MODE: ShowMessage(
'ASPI не может быть выполнен под управлением Windows 3.1!');
SS_NO_ASPI: ShowMessage(
'Неправильная установка ASPI, или имеются конфликты ресурсов!');
SS_MISMATCHED_COMPONENTS: ShowMessage(
'Установка ASPI нарушена! Установите повторно, пожалуйста!');
SS_INSUFFICIENT_RESOURCES: ShowMessage(
'Недостаточно системных ресурсов для инициализации ASPI!');
SS_FAILED_INIT: ShowMessage('Общий внутренний сбой ASPI!');
end;
end;
Итак, мы получили информацию об имеющихся SCSI-адаптерах. Теперь выделим из их числа (если их несколько) устройства CD-ROM/R/RW. Для этого создадим вспомогательные структуры: TCDROM и TCDROMs.
|
type TCDROM=record HaID, // номер адаптера ASPI Target, // ID объекта SCSI Lun: Byte; // логический номер устройства DriveLetter: string; // буквенное обозначение диска VendorID, // идентификатор производителя ProductID, // идентификатор продукта Revision, // изменение VendorSpec, // спецификация производителя Description: string; // описание К-во Просмотров: 447
Бесплатно скачать Реферат: Как сделать чтобы запущеный exe сам себя удалил 2
|