没有FORM的文件如何加上图标？类似命令行下的

Question

我写了个小程序，作用是之行后先修改下注册表，然后起动一个EXE文件。
内容如下：program OK;
uses
  windows,Registry;
var
st:STARTUPINFO;
pi:PROCESS_INFORMATION;
reg:tregistry;
begin
//处理注册表
reg:=tregistry.Create; 
reg.rootkey:=HKEY_CURRENT_USER; 
reg.DeleteKey('\Software\testit');//删除注册表项
reg.CloseKey; 
reg.Free; 
//启动文件
fillchar(st,sizeof(st),#0);
st.cb :=sizeof(STARTUPINFO);
st.dwFlags :=STARTF_USESHOWWINDOW;
st.wShowWindow :=sw_show;
CreateProcess(nil,pchar('mainrun.exe'),nil,nil,false,CREATE_NEW_CONSOLE,nil,nil,st,pi);
end.之行后生成的文件是个没有图标的，如何加上图标？

Answer 1

新建一个Unit（form类型），loadicon选择图标，F9运行一下，会生成一个后缀res的资源文件，然后在console里面包含res即可
program Project1;uses
  SysUtils;{$R *.res}//就是这个begin
   ……
end.

Answer 2

將ICO作為資源文件，然後用brcc32加進再編譯
{$R *.res}//就是这个