Mega Code Archive
Get the drive type
<![CDATA[
Title: get the drive type?
procedure TForm1.Button1Click(Sender: TObject);
var
typ: Integer;
s: string;
begin
s := 'C:\';
typ := GetDriveType(PChar(s));
if Typ 0 then case typ of
DRIVE_REMOVABLE:
begin
ShowMessage('Drive Removable / Diskette');
end;
DRIVE_FIXED:
begin
ShowMessage('Drive fixed / Festplatte');
end;
DRIVE_CDROM:
begin
ShowMessage('CD ROM Drive');
end;
DRIVE_RAMDISK:
begin
ShowMessage('RAM Drive');
end;
DRIVE_REMOTE:
begin
ShowMessage('Remote Drive / Netzlaufwerk');
end;
end;
end;
]]>