[es] - Velicina HDD u TLabel?

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

^{30.05.2006. u 18:57 - pre 218 meseci}

> Kako da prikazem velicinu hdd ( recimo 40GB ) u TLabel komponenti?
> Treba mi prvo kod da izracunam, pa potom da predstavim?

Ako ti treba veličina particije onda možeš koristiti Delphi funkcije DiskSize i DiskFree, imaš opis i primere u helpu.
Ako ti treba fizička veličina diska onda moraš koristiti DeviceIoControl i IOCTL_DISK_GET_LENGTH_INFO ...

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.neobee.net.

Profil

Re: Velicina HDD u TLabel?

^{31.05.2006. u 01:45 - pre 218 meseci}

Pregledao sam ranije teme, bilo je reci, ali nisam naisao na izracunavanje velicine hdd-a?

Citat:

savkic:
Ako ti treba veličina particije onda možeš koristiti Delphi funkcije DiskSize i DiskFree, imaš opis i primere u helpu.
Ako ti treba fizička veličina diska onda moraš koristiti DeviceIoControl i IOCTL_DISK_GET_LENGTH_INFO ...

Pokusao sam ovo, ali nisam u help-u nasao kako da predstavim velicinu hdd-a. Pa, ako vam nije tesko da postujete funkciju ili proceduru koja bi to resila..

Hvala unapred..

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Velicina HDD u TLabel?

^{31.05.2006. u 07:30 - pre 218 meseci}

> Pokusao sam ovo, ali nisam u help-u nasao kako da predstavim velicinu hdd-a. Pa, ako vam nije tesko da postujete funkciju ili proceduru koja bi to resila..

Trebalo bi u helpu da to bude, evo primera upravo iz helpa:

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. ';
Canvas.TextOut(10, 10, S);
end;

Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.dialup.neobee.net.

Profil

Re: Velicina HDD u TLabel?

^{31.05.2006. u 14:32 - pre 218 meseci}

Citat:

savkic:
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. ';
Canvas.TextOut(10, 10, S);
end;

U help-u sam i ja naisao na ovaj primer, ali, on mi prikazuje velicinu particije, recimo C ili D, kao i slobodnog prostora. Ali, izgleda da vi niste mene dobro razumeli, meni treba opcija ( kod ) da prikazem ukupnu velicinu HDD-a. Znaci, ne particije, nego HDD, ako je on velicine 40GB da to i u TLabel ispisem?!

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Velicina HDD u TLabel?

^{31.05.2006. u 19:15 - pre 218 meseci}

> U help-u sam i ja naisao na ovaj primer, ali, on mi prikazuje velicinu particije, recimo C ili D, kao i slobodnog prostora. Ali, izgleda da vi
> niste mene dobro razumeli, meni treba opcija ( kod ) da prikazem ukupnu velicinu HDD-a. Znaci, ne particije, nego HDD,
> ako je on velicine 40GB da to i u TLabel ispisem?!

Možeš sabrati veličine svih particija i tako dobiti veličinu diska ili možeš koristiti neku od ovih funkcija:

Code:

uses
  JwaWinIoctl; // Potraži na netu (autor je Marcel van Brakel, možda ima i u jedi biblioteci)

function GetDiskSize: Int64;
var
  Info: GET_LENGTH_INFORMATION;
  hDisk: THandle;
  Temp: Cardinal;
begin
  Result := 0;

  hDisk := CreateFile('\\.\PhysicalDrive0', 0, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  if hDisk <> INVALID_HANDLE_VALUE then
  begin
    if DeviceIoControl(hDisk, IOCTL_DISK_GET_LENGTH_INFO, nil, 0, @Info, sizeof(Info), Temp, nil) then
      Result := Info.Length.QuadPart;

     CloseHandle(hDisk);
  end;
end;

function GetDiskSize2: Int64;
var
  hDisk: THandle;
  Info: DISK_GEOMETRY;
  Temp: Cardinal;
begin
  Result := 0;

  hDisk := CreateFile('\\.\PhysicalDrive0', 0, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  if hDisk <> INVALID_HANDLE_VALUE then
  begin
    if DeviceIoControl(hDisk, IOCTL_DISK_GET_DRIVE_GEOMETRY, nil, 0, @Info, sizeof(Info), Temp, nil) then
      Result := Info.Cylinders.QuadPart * Info.TracksPerCylinder * Info.SectorsPerTrack * Info.BytesPerSector;

    CloseHandle(hDisk);
  end;
end;

Odgovor na temu