浏览代码

+ win32 version infos

pierre 22 年之前
父节点
当前提交
640d361988
共有 2 个文件被更改,包括 42 次插入1 次删除
  1. 11 1
      ide/fp.pas
  2. 31 0
      ide/fpw32.rc

+ 11 - 1
ide/fp.pas

@@ -15,6 +15,10 @@
  **********************************************************************}
 program FP;
 
+{$ifdef win32}
+{$R fpw32.rc}
+{$endif win32}
+
 {$I globdir.inc}
 (**********************************************************************)
 (* CONDITIONAL DEFINES                                                *)
@@ -32,6 +36,9 @@ uses
 {$ifdef IDEHeapTrc}
   PPheap,
 {$endif IDEHeapTrc}
+{$ifdef Use_DBGHEAP}
+  dbgheap,
+{$endif Use_DBGHEAP}
 {$ifdef go32v2}
   dpmiexcp,
 {$endif go32v2}
@@ -487,7 +494,10 @@ BEGIN
 END.
 {
   $Log$
-  Revision 1.17  2002-12-12 00:08:09  pierre
+  Revision 1.18  2003-01-07 00:29:13  pierre
+   + win32 version infos
+
+  Revision 1.17  2002/12/12 00:08:09  pierre
    Use fpregs unit
 
   Revision 1.16  2002/11/28 12:49:20  pierre

+ 31 - 0
ide/fpw32.rc

@@ -0,0 +1,31 @@
+AppIcon ICON "fp32.ico"
+
+1 VERSIONINFO
+FILEVERSION 0, 9, 2, 0
+PRODUCTVERSION 3, 0, 0, 0
+FILEFLAGSMASK 0
+FILEOS 0x40000
+FILETYPE 1
+{
+ BLOCK "StringFileInfo"
+ {
+  BLOCK "040904E4"
+  {
+   VALUE "CompanyName", "Free Pascal"
+   VALUE "FileDescription", "Free Pascal Integrated Development Editor"
+   VALUE "FileVersion", "0.9.2"
+   VALUE "InternalName", "FP"
+   VALUE "LegalCopyright", "GNU Public License"
+   VALUE "LegalCopyright", "FPC Public License"
+   VALUE "OriginalFilename", "fp.pas"
+   VALUE "ProductName", "Free Pascal IDE"
+   VALUE "ProductVersion", "0.9.2"
+  }
+ }
+ BLOCK "VarFileInfo"
+  {
+    VALUE "Translation", 0x409, 0x4E4
+  }
+}
+
+