home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kolekce / d12345 / MISC.ZIP / Fileinfo.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  2001-05-09  |  3.0 KB  |  85 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.     void __fastcall setExecutableFile(System::AnsiString FileName);
  39.     void __fastcall clearInfo(void);
  40.     
  41. public:
  42.     __fastcall virtual TFileVersionInfo(Classes::TComponent* AOwner);
  43.     void __fastcall FindFileVersionInfo(void);
  44.     
  45. __published:
  46.     __property System::AnsiString Comments = {read=fComments, write=fComments};
  47.     __property System::AnsiString CompanyName = {read=fCompanyName, write=fCompanyName};
  48.     __property System::AnsiString CountryCode = {read=fCountryCode, write=fCountryCode};
  49.     __property System::AnsiString ExecutableFile = {read=fExecutableFile, write=setExecutableFile};
  50.     __property System::AnsiString FileDescription = {read=fFileDescription, write=fFileDescription};
  51.     __property System::AnsiString FileVersion = {read=fFileVersion, write=fFileVersion};
  52.     __property System::AnsiString InternalName = {read=fInternalName, write=fInternalName};
  53.     __property System::AnsiString LegalCopyright = {read=fLegalCopyright, write=fLegalCopyright};
  54.     __property System::AnsiString LegalTradeMarks = {read=fLegalTradeMarks, write=fLegalTradeMarks};
  55.     __property System::AnsiString OriginalFilename = {read=fOriginalFilename, write=fOriginalFilename};
  56.         
  57.     __property System::AnsiString ProductName = {read=fProductName, write=fProductName};
  58.     __property System::AnsiString ProductVersion = {read=fProductVersion, write=fProductVersion};
  59. public:
  60.         
  61.     /* TComponent.Destroy */ __fastcall virtual ~TFileVersionInfo(void) { }
  62.     
  63. };
  64.  
  65. #pragma pack(push, 1)
  66. struct TTranslation
  67. {
  68.     Byte b1;
  69.     Byte b2;
  70.     Byte b3;
  71.     Byte b4;
  72. } ;
  73. #pragma pack(pop)
  74.  
  75. typedef TTranslation *PTranslation;
  76.  
  77. //-- var, const, procedure ---------------------------------------------------
  78.  
  79. }    /* namespace Fileinfo */
  80. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  81. using namespace Fileinfo;
  82. #endif
  83. //-- end unit ----------------------------------------------------------------
  84. #endif    // Fileinfo
  85.