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

Prostor na particijama

[es] :: Pascal / Delphi / Kylix :: Prostor na particijama

[ Pregleda: 920 | Odgovora: 3 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

reiser
Beograd

Član broj: 7895
Poruke: 1903
*.dialup.neobee.net.



Profil

icon Prostor na particijama16.08.2005. u 05:37

Kako da odredim koliki je free/total prostor na nekoj particiji na hard disku ?
16.08.2005. u 05:37 

peromalosutra
Ivan Rajkovic
PHP/MySQL programmer, Ogosense
Banjaluka

Član broj: 54774
Poruke: 431
*.dialup.blic.net.

Jabber: peromalosutra@elitesecurity.org
Sajt: computer-stuff.freehostia..


Profil

icon Re: Prostor na particijama16.08.2005. u 13:06
Ako te zanima Pascal, onda u unitu dos imas funkciju Diskfree (oznaka:byte):longit, gdje je "oznaka" - oznaka particije i to tako da je
Citat:

0 Default drive
1 Drive A
2 Drive B
3 Drive C

Rezultat dobisaš u longint-u.

A ako pitaš za Delphi... onda nemam pojma!

[Ovu poruku je menjao peromalosutra dana 16.08.2005. u 14:09 GMT+1]

[Ovu poruku je menjao peromalosutra dana 16.08.2005. u 14:09 GMT+1]
ivan@ivan-desktop:~$ ./encrypt.run
*** stack smashing detected ***: ./encrypt.run terminated
Aborted (core dumped)
16.08.2005. u 13:06 

Burgos
Zrenjanin

Član broj: 12484
Poruke: 1275
*.ppp-bg.sezampro.yu.

ICQ: 290190857
Sajt: www.last.fm/user/Burgos


Profil

icon Re: Prostor na particijama16.08.2005. u 13:19
I u Delphiju postoji ta funkcija:




Code:
var

  S: string;
  AmtFree: Int64;
  Total:   Int64;
begin
  AmtFree := DiskFree(0);
  Total := DiskSize(0);
  S := IntToStr(AmtFree div Total) + 'percent of the space on drive 0 is free: ' (AmtFree div 1024) + ' Kbytes free. ';
  Label1.Caption := S;
end;


Citat:
Returns the number of free bytes on a specified drive.

Unit

SysUtils

Category

file management routines

Delphi syntax:

function DiskFree(Drive: Byte): Int64;

C++ syntax:

extern PACKAGE __int64 __fastcall DiskFree(Byte Drive);

Description

DiskFree returns the number of free bytes on the specified drive, where 0 = Current, 1 = A, 2 = B, and so on.

DiskFree returns -1 if the drive number is invalid.

Note: DiskFree is only available on Windows.
Dejane, vrati se :)
16.08.2005. u 13:19 

reiser
Beograd

Član broj: 7895
Poruke: 1903
*.dialup.neobee.net.



Profil

icon Re: Prostor na particijama16.08.2005. u 17:55
tenks :)
16.08.2005. u 17:55 

[es] :: Pascal / Delphi / Kylix :: Prostor na particijama

[ Pregleda: 920 | Odgovora: 3 ]

 Postavi temu Odgovori

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