为Delphi控制台程序增加版本信息及图标

    当我们使用Delphi创建一个控制台程序时，IDE默认生成一个没有图标没有版本信息的工程，如图：<o:p></o:p>

<v:shapetype o:spt="75" coordsize="21600,21600" filled="f" stroked="f" id="_x0000_t75" path=" m@4@5 l@4@11@9@11@9@5 xe" o:preferrelative="t"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0 "></v:f><v:f eqn="sum @0 1 0 "></v:f><v:f eqn="sum 0 0 @1 "></v:f><v:f eqn="prod @2 1 2 "></v:f><v:f eqn="prod @3 21600 pixelWidth "></v:f><v:f eqn="prod @3 21600 pixelHeight "></v:f><v:f eqn="sum @0 0 1 "></v:f><v:f eqn="prod @6 1 2 "></v:f><v:f eqn="prod @7 21600 pixelWidth "></v:f><v:f eqn="sum @8 21600 0 "></v:f><v:f eqn="prod @7 21600 pixelHeight "></v:f><v:f eqn="sum @10 21600 0 "></v:f></v:formulas><v:path o:extrusionok="f" o:connecttype="rect" gradientshapeok="t"></v:path><o:lock v:ext="edit" aspectratio="t"></o:lock></v:shapetype><v:shape coordsize="21600,21600" id="_x0000_i1025" type="#_x0000_t75" style="WIDTH: 414.75pt; HEIGHT: 312.75pt"><v:imagedata src="为Delphi控制台程序增加版本信息及图标.files/image001.png" o:title=""></v:imagedata></v:shape>

灰掉的Version information选项

<v:shape coordsize="21600,21600" id="_x0000_i1026" type="#_x0000_t75" style="WIDTH: 414.75pt; HEIGHT: 312.75pt"><v:imagedata src="为Delphi控制台程序增加版本信息及图标.files/image003.png" o:title=""></v:imagedata></v:shape>

灰掉的Icon选项

但我们如果打开subversion的bin文件夹会发现，虽然这些exe也是控制台程序，但都具备版本信息和图标，也就是说，控制台程序同样可以具备这些数据。<o:p></o:p>

<v:shape coordsize="21600,21600" id="_x0000_i1027" type="#_x0000_t75" style="WIDTH: 156pt; HEIGHT: 52.5pt"><v:imagedata src="为Delphi控制台程序增加版本信息及图标.files/image005.png" cropbottom="5699f" o:title="" croptop="9973f"></v:imagedata></v:shape>

subversion的控制台程序带有图标信息

那么在Delphi需要怎么做才能加入这些信息呢？其实很简单，打开View Source（即dpr文件），在begin前面增加一句：<o:p></o:p>

{$R *.RES}<o:p></o:p>

IDE会提示xxx.res无法找到，不用管它，点确定，编译，然后再打开Project Option对话框，是不是发现上述灰掉的选项都可以用了呢？<o:p></o:p>