home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / fileintf.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  2KB  |  65 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'FileIntf.pas' rev: 5.00
  6.  
  7. #ifndef FileIntfHPP
  8. #define FileIntfHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <VirtIntf.hpp>    // Pascal unit
  14. #include <SysUtils.hpp>    // Pascal unit
  15. #include <ActiveX.hpp>    // Pascal unit
  16. #include <SysInit.hpp>    // Pascal unit
  17. #include <System.hpp>    // Pascal unit
  18.  
  19. //-- user supplied -----------------------------------------------------------
  20.  
  21. namespace Fileintf
  22. {
  23. //-- type declarations -------------------------------------------------------
  24. class DELPHICLASS TIVirtualFileSystem;
  25. class PASCALIMPLEMENTATION TIVirtualFileSystem : public Virtintf::TInterface 
  26. {
  27.     typedef Virtintf::TInterface inherited;
  28.     
  29. public:
  30.     virtual _di_IStream __stdcall GetFileStream(const AnsiString FileName, int Mode) = 0 ;
  31.     virtual int __stdcall FileAge(const AnsiString FileName) = 0 ;
  32.     virtual bool __stdcall RenameFile(const AnsiString OldName, const AnsiString NewName) = 0 ;
  33.     virtual bool __stdcall IsReadonly(const AnsiString FileName) = 0 ;
  34.     virtual bool __stdcall IsFileBased(void) = 0 ;
  35.     virtual bool __stdcall DeleteFile(const AnsiString FileName) = 0 ;
  36.     virtual bool __stdcall FileExists(const AnsiString FileName) = 0 ;
  37.     virtual AnsiString __stdcall GetTempFileName(const AnsiString FileName) = 0 ;
  38.     virtual AnsiString __stdcall GetBackupFileName(const AnsiString FileName) = 0 ;
  39.     virtual AnsiString __stdcall GetIDString(void) = 0 ;
  40. public:
  41.     #pragma option push -w-inl
  42.     /* TInterface.Create */ inline __fastcall TIVirtualFileSystem(void) : Virtintf::TInterface() { }
  43.     #pragma option pop
  44.     
  45. public:
  46.     #pragma option push -w-inl
  47.     /* TObject.Destroy */ inline __fastcall virtual ~TIVirtualFileSystem(void) { }
  48.     #pragma option pop
  49.     
  50. };
  51.  
  52.  
  53. //-- var, const, procedure ---------------------------------------------------
  54.  
  55. }    /* namespace Fileintf */
  56. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  57. using namespace Fileintf;
  58. #endif
  59. #pragma option pop    // -w-
  60. #pragma option pop    // -Vx
  61.  
  62. #pragma delphiheader end.
  63. //-- end unit ----------------------------------------------------------------
  64. #endif    // FileIntf
  65.