Mega Code Archive
Recognize CDROM drive
<![CDATA[
Title: Recognize CDROM drive
Use GetDriveType-function for a type definition of the device. Returns values:
0 - Unknown
1 - Unknown
2 - Floppy Disk
3 - Local Drive
4 - Network Drive
5 - CD-Rom
6 - RAM-Disk
implementation
Uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
N: Byte;
Drv: string;
Drives: set of 0..25;
begin
Integer(Drives):=GetLogicalDrives;
for N:=0 to 25 do
if N in Drives then
begin
Drv:=Char(N+Ord('A'))+':';
if(GetDriveType(PChar(Drv))=5) then
Label1.Caption:='Drive '+Drv+' is the CD-Rom Drive';
end;
end;
]]>