Srodne teme

14.05.2001. apache 1.3.19
24.05.2001. IRCNET-ov ircd ...compile errors ...
11.01.2002. NAT IP TABLES
21.07.2002. SQL Server problem....
16.09.2002. sta je bolje?
09.01.2003. mysql
16.10.2003. ZLIB
05.12.2003. Warning: Non-local users!
26.11.2003. MS Exchange 2000
19.01.2004. kako se pokrecu cgi scripte u cgi-bin?

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Local Harddisks

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

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

Autor

Crazy Mix
Nemanja Avramovic
QuadraSoft
Mladenovac

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

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

Profil

Local Harddisks

^{22.05.2003. u 21:48 - pre 266 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

Re: Local Harddisks

^{26.08.2003. u 21:29 - pre 263 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

Re: Local Harddisks

^{27.08.2003. u 14:39 - pre 263 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

Re: Local Harddisks

^{27.08.2003. u 18:51 - pre 263 meseci}

HVALA PUNO!!!

Avram,
http://www.eyesburn.co.sr/

Odgovor na temu

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

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

Srodne teme

14.05.2001. apache 1.3.19
24.05.2001. IRCNET-ov ircd ...compile errors ...
11.01.2002. NAT IP TABLES
21.07.2002. SQL Server problem....
16.09.2002. sta je bolje?
09.01.2003. mysql
16.10.2003. ZLIB
05.12.2003. Warning: Non-local users!
26.11.2003. MS Exchange 2000
19.01.2004. kako se pokrecu cgi scripte u cgi-bin?

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.