home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kompon / d123456 / CHEMPLOT.ZIP / Misc / Fileinfo.hpp < prev    next >
C/C++ Source or Header  |  2001-07-31  |  3KB  |  87 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Fileinfo.pas' rev: 3.00
  6.  
  7. #ifndef FileinfoHPP
  8. #define FileinfoHPP
  9. #include <Windows.hpp>
  10. #include <SysUtils.hpp>
  11. #include <Classes.hpp>
  12. #include <SysInit.hpp>
  13. #include <System.hpp>
  14.  
  15. //-- user supplied -----------------------------------------------------------
  16.  
  17. namespace Fileinfo
  18. {
  19. //-- type declarations -------------------------------------------------------
  20. class DELPHICLASS TFileVersionInfo;
  21. class PASCALIMPLEMENTATION TFileVersionInfo : public Classes::TComponent 
  22. {
  23.     typedef Classes::TComponent inherited;
  24.     
  25. private:
  26.     System::AnsiString fCompanyName;
  27.     System::AnsiString fFileDescription;
  28.     System::AnsiString fFileVersion;
  29.     System::AnsiString fInternalName;
  30.     System::AnsiString fLegalCopyright;
  31.     System::AnsiString fLegalTradeMarks;
  32.     System::AnsiString fOriginalFilename;
  33.     System::AnsiString fProductName;
  34.     System::AnsiString fProductVersion;
  35.     System::AnsiString fComments;
  36.     System::AnsiString fExecutableFile;
  37.     System::AnsiString fCountryCode;
  38.     
  39. protected:
  40.     void __fastcall setExecutableFile(System::AnsiString FileName);
  41.     void __fastcall clearInfo(void);
  42.     
  43. public:
  44.     __fastcall virtual TFileVersionInfo(Classes::TComponent* AOwner);
  45.     void __fastcall FindFileVersionInfo(void);
  46.     
  47. __published:
  48.     __property System::AnsiString Comments = {read=fComments, write=fComments};
  49.     __property System::AnsiString CompanyName = {read=fCompanyName, write=fCompanyName};
  50.     __property System::AnsiString CountryCode = {read=fCountryCode, write=fCountryCode};
  51.     __property System::AnsiString ExecutableFile = {read=fExecutableFile, write=setExecutableFile};
  52.     __property System::AnsiString FileDescription = {read=fFileDescription, write=fFileDescription};
  53.     __property System::AnsiString FileVersion = {read=fFileVersion, write=fFileVersion};
  54.     __property System::AnsiString InternalName = {read=fInternalName, write=fInternalName};
  55.     __property System::AnsiString LegalCopyright = {read=fLegalCopyright, write=fLegalCopyright};
  56.     __property System::AnsiString LegalTradeMarks = {read=fLegalTradeMarks, write=fLegalTradeMarks};
  57.     __property System::AnsiString OriginalFilename = {read=fOriginalFilename, write=fOriginalFilename};
  58.         
  59.     __property System::AnsiString ProductName = {read=fProductName, write=fProductName};
  60.     __property System::AnsiString ProductVersion = {read=fProductVersion, write=fProductVersion};
  61. public:
  62.         
  63.     /* TComponent.Destroy */ __fastcall virtual ~TFileVersionInfo(void) { }
  64.     
  65. };
  66.  
  67. #pragma pack(push, 1)
  68. struct TTranslation
  69. {
  70.     Byte b1;
  71.     Byte b2;
  72.     Byte b3;
  73.     Byte b4;
  74. } ;
  75. #pragma pack(pop)
  76.  
  77. typedef TTranslation *PTranslation;
  78.  
  79. //-- var, const, procedure ---------------------------------------------------
  80.  
  81. }    /* namespace Fileinfo */
  82. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  83. using namespace Fileinfo;
  84. #endif
  85. //-- end unit ----------------------------------------------------------------
  86. #endif    // Fileinfo
  87.