精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>[文章]如何让自己的程序在不同分辨率下拥

主题:[文章]如何让自己的程序在不同分辨率下拥
发信人: 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]

[关闭][返回]