给纯Pascal程序换图标(LoadIcon)

=====================程序代码==============================

 

program aaaaa;
  {$R 'Icon.res'} //导入制作好的包含图标的资源文件

 

uses
  windows,
  SysUtils;

 

begin
  { TODO -oUser -cConsole Main : Insert code here }
   loadicon(hinstance,'Cool'); //使用LoadIcon
end.

==============================================================

 

==========================资源文件的制作===================

这个DOS命令可以按Icon.txt提供的要求来制作Icon.res文件

BRCC32.EXE Icon.txt

 

这是Icon.txt的内容

Cool  icon Cool.ico
===================

Cool是标识

icon代表图标类型

Cool.ico 是要加入res的图标文件