发信人: delphifan()
整理人: (2000-12-05 19:12:22), 站内信件
|
如何让自己的程序在不同分辨率下拥有不同的图标
我们知道,几乎好多程序都有几个图标(你用VC打开它的EXE就可以看到),
但是用Delphi如何实现呢?
以下是源代码:
===============================
Application.Initialize;
Application.CreateForm(TForm1, Form1);
CASE GetDeviceCaps(GetDC(Form1.Handle), HORZRES) of
640 : Application.Icon.Handle := LoadIcon (hInstance, 'ICON640');
800 : Application.Icon.Handle := LoadIcon (hInstance, 'ICON800');
1024 : Application.Icon.Handle := LoadIcon (hInstance, 'ICON1024')
;
1280 : Application.Icon.Handle := LoadIcon (hInstance, 'ICON1280')
;
END;
Application.Run;
=====================================================
注意:'ICON640','ICON800'……是图标的名称,关于如何把职员加入到EXE
中,请另行参考文章。
-- =================================================
== [email protected] ==
== [一个真正有内容、较实用的Delphi网站] ==
== http://lmd.yeah.net http://lmd.126.com ==
=================================================
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.100.18.226]
|
|