[ Crazy Mix @ 22.05.2003. 21:48 ] @
Treba mi funkcija(ili bilo sta) koja prepoznaje hard diskove (kao u search opciji u Total Commanderu kad kliknete na local harddisks - potpuno isto).
[ morlic @ 26.08.2003. 21:29 ] @
Evo nekog mog koda, malo prepravljenog za ovaj primer:

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;


Mozda ti treba i funkcija GetDriveInfo preko koje mozes da saznas o kakvom se
uredjaju radi.
[ Bokkie @ 27.08.2003. 14:39 ] @
Evo jos jednog resenja:

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;



Nadam se da sam pomogao
[ Crazy Mix @ 27.08.2003. 18:51 ] @
HVALA PUNO!!!