home *** CD-ROM | disk | FTP | other *** search
/ PC & Mediji 1997 April / PCM_9704.iso / bralci / st / kop_bris.~pa < prev    next >
Text File  |  1997-02-15  |  1KB  |  61 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.      ShowMessage(srcFileName);
  34.      Reset(Fold);
  35.      Read(Fold, T);
  36.      Rewrite(Fnew, trgFileName);
  37.      Write(Fnew, T);
  38.      CloseFile(Fold);
  39.      CloseFile(Fnew);
  40. end;
  41.  
  42. function TDataModule1.delete(srcFileName: string): boolean;
  43. begin
  44.      DeleteFile(srcFileName);
  45. end;
  46.  
  47. function TDataModule1.ProstorNaDisku(drive: byte): integer;
  48. var
  49. DiskFreeSpace: integer;
  50. begin
  51. DiskFreeSpace:=DiskFree(drive);
  52. ProstorNaDisku:=DiskFreeSpace;
  53. end;
  54.  
  55. function TDataModule1.VelikostDiska(drive: byte): integer;
  56. begin
  57. VelikostDiska:=DiskSize(drive);
  58. end;
  59.  
  60. end.
  61.