Drive.Eject

(строка) Привод дисков для извлечения. Первым символом строки будет буква используемого привода дисков. Поэтому "E", "E:"," E:\" и "E:\Myfile.txt" будут правильными значениями, если нужно извлечь привод дисков E:.

Drive.Eject(_SourceDrive);

Извлекаем привод CD/DVD-ROM, из которого в настоящий момент работает приложение.

Drive.Eject(_SourceFolder);

Извлекаем привод CD/DVD-ROM, из которого в настоящий момент работает приложение.

-- Eject the current drive.
-- Извлекаем текущий привод.
Drive.Eject(_SourceFolder);

-- Determine if an error occurred.
-- Определяем, не случилось ли ошибки.
error = Application.GetLastError();

-- If an error occurred, display the error message.
-- Если произошла ошибка, показываем сообщение об ошибке.
if (error ~= 0) then
    result = Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end

Извлекаем привод CD/DVD-ROM, из которого в настоящий момент работает приложение. Если происходит ошибка, в диалоговом окне сообщения показываем код ошибки.

-- Get the type of the drive where the application is running from.
-- Получаем тип привода, откуда работает приложение.
drive_type = Drive.GetType(_SourceDrive);

-- If the drive type is a CD/DVD ROM drive, eject it.
-- Если привод является приводом CD/DVD ROM, извлекаем его.
if (drive_type == DRIVE_CDROM) then
    Drive.Eject(_SourceDrive);
end

Определяем тип привода, откуда работает приложение и сохраняем результат в переменной drive_type. Если пользователь запустил приложение из CD-ROM или DVD-ROM привода, извлекаем привод.