Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Local Harddisks

[es] :: Pascal / Delphi / Kylix :: Local Harddisks

[ Pregleda: 2537 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

Crazy Mix
Nemanja Avramovic
QuadraSoft
Mladenovac

Član broj: 7103
Poruke: 331
*.telekom.yu

ICQ: 266136396
Sajt: www.quadrasoft.co.sr


Profil

icon Local Harddisks22.05.2003. u 21:48 - pre 254 meseci
Treba mi funkcija(ili bilo sta) koja prepoznaje hard diskove (kao u search opciji u Total Commanderu kad kliknete na local harddisks - potpuno isto).
Avram,
http://www.eyesburn.co.sr/
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.161.EUnet.yu



+1 Profil

icon Re: Local Harddisks26.08.2003. u 21:29 - pre 251 meseci
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.
 
Odgovor na temu

Bokkie
Pančevo

Član broj: 8216
Poruke: 203
*.bozic.co.yu



Profil

icon Re: Local Harddisks27.08.2003. u 14:39 - pre 251 meseci
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
Kopernikus r3c DCIP, TotalTV, SS2 2.6d
Tanjir 120cm, twin LNB, SuperJack, 53e-45w
 
Odgovor na temu

Crazy Mix
Nemanja Avramovic
QuadraSoft
Mladenovac

Član broj: 7103
Poruke: 331
*.telekom.yu

ICQ: 266136396
Sajt: www.quadrasoft.co.sr


Profil

icon Re: Local Harddisks27.08.2003. u 18:51 - pre 251 meseci
HVALA PUNO!!!
Avram,
http://www.eyesburn.co.sr/
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Local Harddisks

[ Pregleda: 2537 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.