home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / tenpack.lzh / INFODEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1995-06-19  |  2KB  |  63 lines
  1. unit infodemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, psfinfo, StdCtrls, Buttons, FileCtrl;
  8.  
  9. type
  10.   TDemoFileInfo = class(TForm)
  11.     DriveComboBox1: TDriveComboBox;
  12.     DirectoryListBox1: TDirectoryListBox;
  13.     Label1: TLabel;
  14.     BitBtn1: TBitBtn;
  15.     Fileinfo1: TFileinfo;
  16.     Memo1: TMemo;
  17.     procedure BitBtn1Click(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  23.  
  24. var
  25.   DemoFileInfo: TDemoFileInfo;
  26.  
  27. implementation
  28.  
  29. {$R *.DFM}
  30.  
  31. procedure TDemoFileInfo.BitBtn1Click(Sender: TObject);
  32. var
  33.    msg : string;
  34. begin
  35.    memo1.clear;
  36.    Fileinfo1.path := directorylistbox1.directory;
  37.    msg := 'Drive '+Copy(drivecombobox1.text,1,2);
  38.    msg := Msg + ' has ' + FloatToStrF(Fileinfo1.numTopLevelDirs,ffnumber,12,0);
  39.    msg := Msg + ' Top level directories.  ';
  40.    Memo1.lines.add(msg);
  41.    msg := '';
  42.    msg := msg + 'Path ' + directorylistbox1.directory;
  43.    msg := msg + ' has ' + FloattoStrf(Fileinfo1.Numfiles,ffnumber,12,0);
  44.    msg := msg + ' files occupying ';
  45.    msg := msg + Floattostrf(Fileinfo1.Filebytes,ffnumber,12,0)+' bytes of disk space.';
  46.    Memo1.lines.add(msg);
  47.    msg := '';
  48.    Msg := msg + 'The directory tree beginning at ' + directorylistbox1.directory;
  49.    msg := msg + ' has ' + Floattostrf(Fileinfo1.Numdirsbeneath,ffnumber,12,0)+' subdirectories.';
  50.    Memo1.lines.add(msg);
  51.    msg := '';
  52.    msg := msg + 'This directory tree has ' + Floattostrf(Fileinfo1.numfilesbeneath,ffnumber,12,0) + ' files occupying ';
  53.    msg := msg + Floattostrf(Fileinfo1.filebytesbeneath,ffnumber,12,0) + ' bytes of disk space.';
  54.    Memo1.lines.add(msg);
  55.    msg := '';
  56.    msg := msg + 'This size of drive ' + copy(drivecombobox1.text,1,2) + ' is ';
  57.    msg := msg + Floattostrf(Fileinfo1.Thisdisksize,ffnumber,12,0) + ' bytes.';
  58.    memo1.lines.add(msg);
  59.    memo1.visible := true;
  60. end;
  61.  
  62. end.
  63.