为Delphi的控制台程式添加图标


本文整理自网络,侵删。

 一般来说,在delphi中可以通过 Project ?C Options ?C Application 来加载图标,但是有时这个选项是灰掉的,特别在控制台程序中是不可用的。让它出现的方法如下:

在dpr文件uses部分添加 forms
在begin之前添加 {$R *.res}
在运行的部分添加 Application.Initialize;

如果提示没有res文件的话,就自己建立一个,可以随意建立一个空文件用 工程名.res 命名,之后 Load Icon 就变成可用了。你可以注意到在我发布的源码中这些部分已经添加过,只是注释掉了。

这就是说,让 Load Icon 这个按钮不为灰色必须同时满足上面说的4个条件,即3处代码和一个res文件。这样实际上是认为此程序是一个基于Form的程序,而使得这个选项能够被使用。

但是在编译的时候,是否载入res文件则只由 {$R *.res} 是否存在决定,这就是说完全可以在载入图标之后将另外两处代码注释掉。

相关阅读 >>

Delphi 利用csidl打开特殊文件夹

Delphi xe 网上获取北京时间android app 启动黑屏优化补丁

Delphi winapi: getwindowtextlength - 获取窗口标题长度

Delphi 正则表达式tperlregex 详解

Delphi申请和释放内存

Delphi2010中使用pchar时e2010 incompatible types: 'char' and 'ansichar' 错误的处理

Delphi datasnap双缓存下载文件

Delphi读写utf-8、unicode格式文本文件

键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例

Delphi 以十六进制显示数据内容

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...