|
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ 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;
-
More for developers
