unit1.pas

Delphi的Glib功能实现 具体功能请看帮助

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CDiskInfo, StdCtrls, ExtCtrls, ComCtrls, ImgList, ShellAPI,
  TeEngine, Series, TeeProcs, Chart, Buttons, TypInfo;

type
  TForm1 = class(TForm)
    DiskInfo1: TDiskInfo;
    pnlResult: TPanel;
    Label1: TLabel;
    lbDriveLetters: TListBox;
    imgDrive: TImage;
    pnlGraph: TPanel;
    Chart1: TChart;
    Series1: TPieSeries;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lblCapacidad: TLabel;
    lblUtilizado: TLabel;
    lblLibre: TLabel;
    lblExplorerDisplayName: TLabel;
    lblDriveTypeName: TLabel;
    Panel1: TPanel;
    Button7: TButton;
    spClose: TSpeedButton;
    Label5: TLabel;
    Label6: TLabel;
    Panel2: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Image1: TImage;
    Bevel1: TBevel;
    mmInfo: TMemo;
    procedure Button7Click(Sender: TObject);
    procedure lbDriveLettersClick(Sender: TObject);
    procedure spCloseClick(Sender: TObject);
    procedure Label6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button7Click(Sender: TObject);
begin
  // Obtener las letras de unidad
  lbDriveLetters.Clear;
  DiskInfo1.GetDriveList(lbDriveLetters.Items);

  MessageDlg('Seleccina la unidad que desees de las disponibles en la lista.'+#13+#10+'Select a drive from the list.', mtInformation, [mbOK], 0);
end;

procedure TForm1.lbDriveLettersClick(Sender: TObject);
var
  PorcOcup, PorcFree:Integer;
  Str:String;

  //贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩
  procedure _AddInfo(Title, Value:String);
  begin
    if (Title <> STR_EMPTY) then begin
      mmInfo.Lines.Add(Title + ':  ' + Value);
    end
    else begin
      mmInfo.Lines.Add(STR_EMPTY);
    end;
  end;
  //贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩贩

begin

  // Item Seleccionado?
  if (lbDriveLetters.ItemIndex <> -1) then begin

    pnlGraph.Visible := True;

    DiskInfo1.DriveLetter := lbDriveLetters.Items[lbDriveLetters.ItemIndex][1];
    // Imagen
    imgDrive.Picture.Icon.handle := DiskInfo1.SystemIcon;

    // Graph
    Chart1.Title.Text[0] := DiskInfo1.ExplorerDisplayName;
    // Valores
    Chart1.Series[0].Clear;

    // Est