Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

18th
Сен

Определить размер физического диска

Posted by micher under Delphi

Кто подскажет как определить размер физического диска???

Robin_



unit Unit2;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;
type

  TForm2 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form2: TForm2;
implementation
{$R *.dfm}
function GetDriveSize (DriveNo : byte) : Int64;

var

 hDrive : THandle;

 Size : Int64;

 Tmp : Cardinal;
begin

 Result := 0;

 hDrive := CreateFile (PChar('\\.\PhysicalDrive' + Char(DriveNo + Ord('0'))),

                       GENERIC_READ,

                       FILE_SHARE_READ or FILE_SHARE_WRITE,

                       nil,

                       OPEN_EXISTING,

                       0,

                       0);

 if hDrive = INVALID_HANDLE_VALUE then Exit;
 Tmp := SizeOf(Size);

 Size := 0;

 if DeviceIoControl (hDrive, $7405C,

                     nil, 0,

                     @Size, SizeOf(Size), Tmp,

                     nil) then Result := Size;
 CloseHandle (hDrive);

end;
procedure TForm2.Button1Click(Sender: TObject);

begin

   ShowMessage (FloatToStr(GetDriveSize(0)/(1024*1024*1024)) + ' Gb');

end;
end.