Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Дисковое оборудование


Добавить код в данный раздел
 Запуск autorun на диске

intermediate AutorunDisk

Прислал: JJ Bat (Красноярск) ( 22 сентября 2007 г. )
Количество просмотров: 852


 Открыть/Закрыть дверцу ЛЮБОГО CD-ROM

intermediate OpenOrCloseCD

Прислал: JJ Bat (Красноярск) ( 22 сентября 2007 г. )
Количество просмотров: 911


 Проверка, доступно ли устройство без всяких окошек об ошибках

function IsDiskInDrive(Drive: string): Boolean;

Прислал: Mystic (Харьков) ( 6 марта 2003 г. )
Количество просмотров: 2133


 Показывает какие диски сушествуют а какие нет и какие из них являются Cd-Rom а какие Floppy

procedure driveinfo;

Прислал: Mad (Ростов-на-Дону) ( 12 февраля 2003 г. )
Количество просмотров: 2276


 Поличение серийного номера IDE диска.

function GetIdeDiskSerialNumber : String;

Прислал: Alex Konshin (Boston, USA) ( 30 декабря 2002 г. )
Количество просмотров: 4165


 Получене имен установленных в системе CDROM'ов

procedure GetAviableCDROM(ListCD:TStrings);

Прислал: DenKop (Ростов-на-дону) ( 18 августа 2002 г. )
Количество просмотров: 2375


 Определение буквы CD-ROM'a

function GetCD_Rom : PChar;

Прислал: Ender (Киев) ( 24 мая 2002 г. )
Количество просмотров: 2488


 Определение типа диска, указанного в параметре Drive

function CheckDriveType(Drive: String): String;

Прислал: VID (Махачкала) ( 26 апреля 2002 г. )
Количество просмотров: 2498


 Получение сведений о диске (метка/имя диска, файловая система, серийный номер)

unit HDDInfo

Прислал: cyborg (Бузулук) ( 23 мая 2002 г. )
Количество просмотров: 3325


 Получение списка фиксированных логических дисков в системе

procedure GetFixedDriveList(const List: TStrings);

Прислал: Dimka Maslov (Санкт-Петербург) ( 29 апреля 2002 г. )
Количество просмотров: 2378


 Получение списка логических дисков в системе

procedure GetLogicalDriveList(const List: TStrings);

Прислал: Dimka Maslov (Санкт-Петербург) ( 29 апреля 2002 г. )
Количество просмотров: 2361


 Определение размера свободного места на логическом диске

function GetDiskFreeSize(Dir: string): Int64;

Прислал: Dimka Maslov (Санкт-Петербург) ( 29 апреля 2002 г. )
Количество просмотров: 2175


 Открытие и закрытие крышки Cd-ROM

mciSendString('Set cdaudio door open wait', nil, 0, Application.handle); mciSendString('Set cdaudio door closed wait', nil, 0, Application.handle);

Прислал: Malder ( 25 апреля 2002 г. )
Количество просмотров: 2667


 Открытие CD-ROM

mciSendString('Set cdaudio door open wait', nil, 0, handle);

Прислал: Malder ( 25 апреля 2002 г. )
Количество просмотров: 2221




Добавить код в данный раздел

Наверх ▲