Получить букву или номер CD-ROMDelphi , Файловая система , CD-ROMПолучить букву или номер CD-ROM
Оформил: DeeCo function GetFirstCDROMDrive: char; var drivemap, mask: DWORD; i: integer; root: string; begin Result := #0; root := 'A:\'; drivemap := GetLogicalDrives; mask := 1; for i := 1 to 32 do begin if (mask and drivemap) <> 0 then if GetDriveType(PChar(root)) = DRIVE_CDROM then begin Result := root[1]; Break; end; mask := mask shl 1; Inc(root[1]); end; end; procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage(GetFirstCDROMDrive); end; {********************************} function GetNumberOfCDDrives: Byte; var drivemap, mask: DWORD; i: integer; root: string; begin Result := 0; root := 'A:\'; drivemap := GetLogicalDrives; mask := 1; for i := 1 to 32 do begin if (mask and drivemap) <> 0 then if GetDriveType(PChar(root)) = DRIVE_CDROM then begin Inc(Result); end; mask := mask shl 1; Inc(root[1]); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := IntToStr(GetNumCDDrives); end; В статье описываются два функционаля: получение буквы или номера CD-ROM-диска и определение количества доступных CD-ROM-устройств на компьютере. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |