mengetahui Jenis Media Penyimpan

Wah ini neeh yang biaasa dipake ama programmer multimedia, cukup mudah... tapi buat kalian gapapadeh hehehehe

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');
end;
DRIVE_CDROM:
begin
ShowMessage('CD ROM Drive');
end;
DRIVE_RAMDISK:
begin
ShowMessage('RAM Drive');
end;
DRIVE_REMOTE:
begin
ShowMessage('Remote Drive');
end;
end;
end;