Local Harddisks

Code:

...
var Ld : DWORD; I : Integer;
begin
    Ld := GetLogicalDrives;
    for I := 0 to 25 do
      begin
          if (Ld and (1 shl I)) <> 0 then
           begin
               Char(Ord('A') + I) + ':' // Ovaj kod ti 
                                             // vraca string tipa 'c:'
                                             // ti vidi sta ces sa njim
           end;
    end;

end;

Code:


Procedure ListajDiskove;
var I : Integer;
    S : String;
    P : String;
Begin
 For I := Ord('C') To Ord('Z') Do Begin
  S := Chr(I) + ':\';
   Case GetDriveType(PChar(S)) Of
    DRIVE_UNKNOWN :    P := 'Ne postoji takav disk';
    DRIVE_NO_ROOT_DIR: P := 'File system nije odgovarajuci';
    DRIVE_REMOVABLE:   P := 'Removable disk';
    DRIVE_FIXED:       P := 'Hard Disk';
    DRIVE_REMOTE:      P := 'Network disk';
    DRIVE_CDROM:       P := 'CD-ROM';
    DRIVE_RAMDISK:     P := 'RAM disk';
   End;
  ShowMessage( S + ' - ' + P);
 End;
End;