home *** CD-ROM | disk | FTP | other *** search
/ PC & Mediji 1997 April / PCM_9704.iso / bralci / st / kop_bris.pas < prev    next >
Pascal/Delphi Source File  |  1997-02-17  |  1KB  |  60 lines
  1. unit kop_bris;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  7.  
  8. type
  9.   TDataModule1 = class(TDataModule)
  10.   private
  11.     { Private declarations }
  12.   public
  13.     { Public declarations }
  14.     function copy(srcFileName, trgFileName: string): boolean;
  15.     function delete(srcFileName: string): boolean;
  16.     function ProstorNaDisku(drive: byte): integer;
  17.     function VelikostDiska(drive: byte): integer;
  18.   end;
  19.  
  20. var
  21.   DataModule1: TDataModule1;
  22.   Fold: TextFile;
  23.   Fnew: TextFile;
  24.   T: string;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. function TDatamodule1.copy(srcFileName, trgFileName: string): boolean;
  31. begin
  32.      AssignFile(Fold, srcFileName);
  33.      Reset(Fold);
  34.      Read(Fold, T);
  35.      Rewrite(Fnew, trgFileName);
  36.      Write(Fnew, T);
  37.      CloseFile(Fold);
  38.      CloseFile(Fnew);
  39. end;
  40.  
  41. function TDataModule1.delete(srcFileName: string): boolean;
  42. begin
  43.      DeleteFile(srcFileName);
  44. end;
  45.  
  46. function TDataModule1.ProstorNaDisku(drive: byte): integer;
  47. var
  48. DiskFreeSpace: integer;
  49. begin
  50. DiskFreeSpace:=DiskFree(drive);
  51. ProstorNaDisku:=DiskFreeSpace;
  52. end;
  53.  
  54. function TDataModule1.VelikostDiska(drive: byte): integer;
  55. begin
  56. VelikostDiska:=DiskSize(drive);
  57. end;
  58.  
  59. end.
  60.