Драйверы вашего CD-ROM привода находятся на прилагаемом компакт диске...
procedure TForm1.Button1Click(Sender: TObject);
var
w: dword;
Root: string;
i: integer;
begin
w := GetLogicalDrives;
Root := '#:\';
for i := 0 to 25 dobegin
Root[1] := Char(Ord('A') + i);
if (W and (1 shl i)) > 0 thenif GetDriveType(Pchar(Root)) = DRIVE_CDROM then
Form1.Label1.Caption := Root;
end;
end;
Статья Определить букву CD-ROM раздела Файловая система Диски может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.