Status Drives Search

[d2010]

Hello.
I have in batch(".txt") script to reveal -all-drives.()
How to replace this batch(".txt")  with pascal100%source?
--but only  writeble disk/s drive
--but not CD-rom, not DVD

[Bart]

I have a function like this:

Code: Pascal  [Select][+][-]

1. function GetAvailableDrives(DiskMustBeInDrive: Boolean = False; DriveTypes: TDriveTypes = AllDriveTypes): TSysCharSet;

As you can guess from it's signature you can search for writable drives that must be mounted.

You can find the code here.

Feel free to use and alter the code if so desired.

Bart

[d2010]

Thank you your-code, please you read my hints.
01)you  replace upcase with locase

Code: Pascal  [Select][+][-]

1.   D := GetLogicalDrives;
2.   for C := 'a' to 'z' do
3.   begin
4.     Mask := (1 shl (Ord(c) - Ord('a')));
5.     if (Mask and D) = Mask then
6.     begin
7.       if ((not DiskMustBeInDrive) or DiskInDrive(C)) and
8.          (GetDriveType(C) in DriveTypes) then
9.  
10.