选择应用程序图标(80分)

吴向球 · 2000-05-26

在windows中，右击应用程序快捷图标，在快捷菜单中选择“更改图标”按钮，就可以选择应用程序的图标，在delphi中怎么样实现？在应用程序中怎么样实现多个图标？请高手回答。

wjiachun · 2000-05-26

那是windows系统干的活啊，要是你自己的程序 可以在 Appliciation部分解决

吴向球 · 2000-05-26

在delphi的应用程序中一般情况下只能有一个图标，我怎么样在应用程序加许多图标

Kang · 2000-05-26

你要先做好几个图标,可以在程序中修改

cAkk · 2000-05-26

*.res

吴向球 · 2000-05-26

请问怎么样修改，并使其能的应用程序的快捷方式中改变快捷图标？

Fudei · 2000-05-27

其实也不用这么麻烦，你直接在菜单project下的resource打开的子窗口中 为ICon子项添加图标就可.

CathyEagle · 2000-05-27

Fudei，怎么找不到你说的窗口？ 用Image Editor建立一个资源文件，把图标放在里面，然后在工程文件里用$R编译参数把这个资源文件链接进去即可。

jingtao · 2000-05-28

我写的一篇小东西，现在贴一下： 谈资源文件在Delphi中的应用                                         鲸鱼工作室陈经韬   资源文件一般为扩展名为res的文件。在VC中资源文件用得非常普遍， 但Delphi在其联机帮助中对资源文件没作什么介绍，其实利用其自带的 资源编译工具BRCC32.EXE(一般位于/Delphi/BIN目录下），我们完全可 以做出跟VC一样效果的文件来。//   资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一 起编译，生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如 在一条程序中你要临时调用一幅图片，一般作法是把图片放在某一路径下 （通常是主程序所在路径），但如果用户路径误删你的图片文件，则可能 使程序找不到相应文件而出错崩溃。另外，如果你想自己的程序界面美观， 想用一些自定义光标，也要用到资源文件。   资源文件的使用步骤为：   1.编写rc脚本文本    用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如：        mycur  cursor  move.cur  //加入光标        mypic  Bitmap  Water.BMP  //加入位图        mywav  WAVE    happy.wav  //加入声音        myAVI  AVI     EPOEN.AVI  //加入视频        myIco  ICON    CJT.ICO    //加入图标      格式分别为在资源文件中的名称->类型->实际文件名称，例如上面 第一行  定义一个名为mycur的光标，实际名称为加入光标move.cur.   2.将rc文件编译成res资源文件         将脚本文件和实际文件拷到Brcc32.EXE所在目录，执行DOS命令。 格式为：Brcc32  脚本文件(回车)，例如有一名为myfirst.rc的脚本文件， 则执行 Brcc32  myfirst.rc(回车)即可。如果你是懒人，也可新建一批 处理文件，内容只有一行：Brcc32 mufist.rc.(因为Delphi安装后一般会 在自动批处理文件中指明搜索路径的。)如果编译成功，则会生成一个结尾 为res的文件，这个文件就是我们需要的资源文件。    3.在Delphi单元中加入资源文件         将生成的res资源文件拷贝到你所编程序的路径下，在单元文件 {$R *DFM}后加上一句{$R mufirst.res}，则将res文件加入去，编译后资 源文件即已包含在可执行文件中了。若你有多个资源文件，也按上法依次 加入。    4.在Delphi程序中调用资源文件        资源文件在Delphi中的关键字为hinstance.下面给出具体用法     <1>光标的调用         首先在程序中定义一个值大于0的常量，因为Delphi本身用0-负 16来索引默认的光标，所以我们制定的光标应从表面上1开始索引。然后 在窗口的Oncreat事件中添加以下代码：        screen.cursor[35]:Load cursor (hinstance,'mycur');          其中35为大于1的常量，mycur为光标在资源文件中的名字。如 果希望在其他控件上使用定制光标，例如Panel控件，只需在程序的适当 处加入以下代码：              Panel1.cursor:=35;     <2>位图的调用        新建一项工程，添加一Timage控件，在需要显示的地方写以下代码：          Var mymap:Hbitmap;        begin         hmymap:=LoadBitmap(hinstance,'mypic');        Image1.picture.Bitmap.Handle:=mymap；        end;       其中"mypic"为位图资源文件中的名称。    〈3〉AVI文件的调用         新建一工程，添加一Animate控件，在需要的地方加入：         animater1.resname:='myAVI';         animater1.Active:=true;        其中myAVI为视频文件在资源文件中的名称。    〈4〉调用WAV文件        在uses中加入mmsystm单元，以便在程序中播放WAV文件。播放时Playsound        (pchar('mywav'),hinstance,sndsync or snd_resource);其中mywav为声音        文件在资源中的名称。    〈5〉加入光标        加入光标比较容易，只要将res文件加入单元文件中即可。但需注意，名称        最好取"W"."WW"等，使第一个字母尽量靠后，以免与主程序的图标顺序颠倒。       补充：1.资源类型除上述类型外，还可以字体文件，字符串文件等。             2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。             下面我们来试验一下：             新建一工程，将唯一的一个Form删除，然后修改工程文件。增加一句             {$Apptype console},在uses子句中加入mmsystem,并将其它引用单元             删掉。将Begin和end之间语句删掉。至此，我们就可和Turbo PASCAL             下编程序一样，且还可以调用windows的API和资源。将资源文件----             {$R myfist.res}加入。在Begin和end之间写下：               writeln('演示程序，按任意键开始！');               readln;               playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);               writeln('演示结束！');       运行程序，将弹出一个标准DOS窗口，按任意键播放声音文件。是不是很COOL呢!       我曾下载过一个播放器，在其安装目录下我发现有一"DOS程序",用鼠标双击它       便弹出一个DOS窗口，显示DOS时代特有的画图，并有背景音乐！可能就是用这个       方法做的。              3.Delphi本身自带了一个叫Image Editor的工具，同样可以编辑资源文       本，但和本文的方法比较，可得出下表：                                                **************************************                   Image Editor         Brcc32                            BMP   只支持16位色        任意色                         光标   黑白两色            任意色             ICO    只支持16位色        任意色             AVI    不支持              支持             WAV    不支持              支持            字体          字符串    不支持              支持            其他                     **************************************** ★软件作者:     陈经韬         430074湖北省武汉市武昌民院路湖北经济管理大学计算机系(本)9803班       E-Mail: lovejingtao@21.cn.com             jingtao@990.net

partisan · 2000-05-28

如果运行的时候想改本程序的什么信息，可以用 SetClassLong。 如果想改变连接的图标、名称等信息，可以用IShellLink接口搞定，如： const   IID_IPersistFile: TGUID = (     D1:$0000010B;D2:$0000;D3:$0000;D4

$C0,$00,$00,$00,$00,$00,$00,$46));   ObjectLinked = 'D:/TEMP/TEST.OBJ';   ObjectLink = 'D:/TEMP/TEST.OBJ.LNK';   IconLibrary = 'C:/WINNT/SYSTEM32/SHELL32.DLL';   IconIndex = 1; implementation uses ShlObj, ActiveX; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var   ShellLink: IShellLink;   PersistFile: IPersistFile; begin   CoInitialize (nil);   CoCreateInstance (CLSID_ShellLink,                     nil,                     CLSCTX_INPROC_SERVER,                     IID_IShellLinkA,                     ShellLink);   ShellLink.SetPath (ObjectLinked);   ShellLink.SetIconLocation (IconLibrary, IconIndex);   ShellLink.QueryInterface (IID_IPersistFile, PersistFile);   PersistFile.Save (ObjectLink, TRUE);   CoFreeUnusedLibraries;   CoUninitialize;

吴向球 · 2000-05-28

多人接受答案了。

选择应用程序图标(80分)

吴向球

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

吴向球

Unregistered / Unconfirmed

Kang

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

吴向球

Unregistered / Unconfirmed

Fudei

Unregistered / Unconfirmed

CathyEagle

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

partisan

Unregistered / Unconfirmed

吴向球

Unregistered / Unconfirmed

Similar threads