Kako da prikazem velicinu hdd ( recimo 40GB ) u TLabel komponenti?
Treba mi prvo kod da izracunam, pa potom da predstavim?
Hvala unapred...
Treba mi prvo kod da izracunam, pa potom da predstavim?
Hvala unapred...
Velicina HDD u TLabel?
Zaključano
Zakačeno
Pogledaj ranije teme,bilo price o tome!Pozzz
Potpis
SERVIA NOSTRUM REGNUM!
> 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 ...
> 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 ...
Potpis
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
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
Pregledao sam ranije teme, bilo je reci, ali nisam naisao na izracunavanje velicine hdd-a?
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..
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 ...
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..
> 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;
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;
Potpis
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
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
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;
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?!
> 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:
> 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;
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;
Potpis
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
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
:( jel moze neko da postuje JwaWinIoctl.pas (JwaWinIoctl.dcu) ili jedi bibilioteku, ako ne,
moze li bar link ka njima za download.
Hvala unapred.
moze li bar link ka njima za download.
Hvala unapred.
www.delphi-jedi.org pa API Library ili ftp://delphi-jedi.org/api/win32api.zip.
Potpis
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
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
Hvala, savkic-u, kad skinem i malo prostudiram javicu sta sam skontao...
Pozdrav...
Pozdrav...
Da, to mi je trebalo... Hvala jos jednom...