vershow.rc

这一系列是我平时收集的pascal深入核心编程

// Define
 #define IDD_VERSHOW 101
 #define IDI_VERSHOW 102
 #define IDC_PATHNAME 1000
 #define IDC_FIXEDFILEINFOFIELDS 1001
 #define IDC_FIXEDFILEINFODATA 1002
 #define IDC_TRANSLATIONS 1003
 #define IDC_STRINGS 1004
 #define IDC_SELECTFILE 1005

// Icon
 IDI_VERSHOW ICON DISCARDABLE "VerShow.ico"

// Version
 VS_VERSION_INFO VERSIONINFO
   FILEVERSION 2,0,0,0
   PRODUCTVERSION 3,0,0,0
   FILEFLAGSMASK 0x3fL
   FILEFLAGS 0x3L 
   FILEOS 0x10004L
   FILETYPE 0x1L
   FILESUBTYPE 0x0L
 BEGIN
   BLOCK "StringFileInfo"
   BEGIN
     BLOCK "040704b0"
     BEGIN
       VALUE "Comments", "Deutsche Version der StringFileInfo Section\0"
       VALUE "CompanyName", "M & T Books, Inc.\0"
       VALUE "FileDescription", "VerShow dient zur Schnellansicht von der Dateiversions-Resource\0"
       VALUE "FileVersion", "2.0\0"
       VALUE "InternalName", "VerShow\0"
       VALUE "LegalCopyright", "Copyright 1995 Jeffrey Richter. Alle Rechte vorbehalten\0"
       VALUE "LegalTrademarks", "Vershow ist ein eingetragenes Warenzeichen von Jeffrey Richter\0"
       VALUE "OriginalFilename", "VerShow.exe\0"
       VALUE "ProductName", "Windows 95: Richtlinien fuer die Programmierung\0"
       VALUE "ProductVersion", "3.0\0"
     END
     
     BLOCK "040904b0"
     BEGIN
       VALUE "Comments", "This is the U.S. English version of the StringFileInfo section\0"
       VALUE "CompanyName", "M & T Books, Inc.\0"
       VALUE "FileDescription", "VerShow: File version resource information viewer\0"
       VALUE "FileVersion", "2.0\0"
       VALUE "InternalName", "VerShow\0"
       VALUE "LegalCopyright", "Copyright \251 1995 by Jeffrey Richter\0"
       VALUE "LegalTrademarks", "VerShow\256 is a registered trademark of Jeffrey Richter.\0"
       VALUE "OriginalFilename", "VerShow.exe\0"
       VALUE "ProductName", "Windows 95: A Developer's Guide\0"
       VALUE "ProductVersion", "3.0\0"
     END
    
     BLOCK "040c04b0"
     BEGIN
       VALUE "Comments", "Version Fran\347aise de la Section StringFileInfo\0"
       VALUE "CompanyName", "M & T Books, Inc.\0"
       VALUE "FileDescription", "VerShow sert \340 obtenir l'Information de la Ressource de Version d'un Fichier\0"
       VALUE "FileVersion", "2.0\0"
       VALUE "InternalName", "VerShow\0"
       VALUE "LegalCopyright", "(C) Copyright 1995 Jeffrey Richter. Tous droitsr\351serv\351s\0"
       VALUE "LegalTrademarks", "VerShow est une marque d\351pos\351e de Jeffrey Richter\0"
       VALUE "OriginalFilename", "VerShow.exe\0"
       VALUE "ProductName", "Windows 95: Directives de Programmation\0"
       VALUE "ProductVersion", "3.0\0"
     END
   END
   
   BLOCK "VarFileInfo"
   BEGIN
     VALUE "Translation", 0x407, 1200, 0x409, 1200, 0x40c, 1200
   END
 END
 
// Dialog
 IDD_VERSHOW DIALOG DISCARDABLE -32768, 5, 275, 261
   STYLE WS_MINIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
   CAPTION "Version Shower"
   FONT 6, "Helv"
 BEGIN
   PUSHBUTTON "Select &file...",IDC_SELECTFILE,4,4,48,14
   CONTROL "(Please select a file)",IDC_PATHNAME,"Static",SS_LEFTNOWORDWRAP | SS_NOPREFIX | WS_BORDER | WS_GROUP,56,4,212,14
   GROUPBOX "VS_FIXEDFILEINFO (Version Information)",IDC_STATIC,4,24, 264,96
   LTEXT "Signature:\nStruct ver:\nFile ver:\nProd ver:\nFlag mask:\nFlags:\nOS:\nType:\nSubtype:\nDate:",IDC_FIXEDFILEINFOFIELDS,8,36,40,80,SS_NOPREFIX
   LTEXT "",IDC_FIXEDFILEINFODATA,48,36,216,80,SS_NOPREFIX
   LTEXT "&Translations:",IDC_STATIC,4,124,44,8
   COMBOBOX IDC_TRANSLATIONS,52,124,216,80,CBS_DROPDOWNLIST | WS_VSCROLL | WS_GROUP | WS_TABSTOP
   LTEXT "&Strings:",IDC_STATIC,4,140,32,10
   EDITTEXT IDC_STRINGS,4,152,264,104,ES_MULTILINE | ES_AUTOHSCROLL | ES_READONLY | WS_VSCROLL | WS_HSCROLL
 END
  
// String Table
 STRINGTABLE DISCARDABLE
 BEGIN
   0 "7-bit ASCII"
 END

 STRINGTABLE DISCARDABLE
 BEGIN
   936 "Windows, Chinese (GBK)"
   949 "Windows, Korea (Shift - KSC 5601)"
   950 "Windows, Taiwan (GB5)"
 END

 STRINGTABLE DISCARDABLE
 BEGIN
   1200 "Unicode"
 END

 STRINGTABLE DISCARDABLE
 BEGIN
   1250 "Windows, Latin-2 (Eastern Europe)"
   1251 "Windows, Cyrillic"
   1252 "Windows, Multilingual"
   1253 "Windows, Greek"
   1254 "Windows, Turkish"
   1255 "Windows, Hebrew"
   1256 "Windows, Arabic"
 END