在delphi消息框中显示自定义图标

以下程序可实现在delphi中显示自定义图标：

 

{$R myres.res}//显示自定义图标必须预先制作资源文件，然后加载到程序中 function MessageEx(lText, lCaption: PWideChar; lStyle: DWORD; IconID: PWideChar): Integer; var Msg: TMsgBoxParamsW; begin Msg.cbSize := Sizeof(Msg); Msg.hwndOwner := Application.Handle; Msg.hInstance := HInstance; Msg.lpszText := lText; Msg.lpszCaption := lCaption; Msg.dwStyle := lStyle; Msg.lpszIcon := IconID; Msg.dwContextHelpId := 0; Msg.lpfnMsgBoxCallback := nil; Msg.dwLanguageId := LANG_NEUTRAL; Result := Integer(MessageBoxIndirectW(Msg)); end; procedure TForm1.Button1Click(Sender: TObject); begin MessageEx('Hello MessageEx!','MessageEx', MB_OK or MB_USERICON, 'MAINICON');//显示应用程序的图标 end; procedure TForm1.Button2Click(Sender: TObject); begin MessageEx('MessageEx', 'MessageEx', MB_OK or MB_USERICON,'myIco');//可以显示自定义图标 end;   

资源文件的制作：

注意事项：创建的资源文件名不要和工程名相同，因为Delphi创建工程时会自动创建一个和工程名相同的资源文件。并且最好将资源文件保存到和工程文件同一个文件夹中。

 

1、首先创建一个.Rc的纯文本文件。格式如下：
          资源标识符 关键字 资源文件名
    格式说明：
    ① 资源标识符：程序中调用资源时的特定标号；
    ② 关键字：标识资源文件类型；例如：
        Wave ： 资源文件是声音文件；
        RCDATA： JPEG文件；
        AVI   ： AVI动画；
        ICON ： 图标文件；
        BITMAP： 位图文件；
        CURSOR： 光标文件；
        RMI   ： RMI音乐文件；
        MIDI ： MIDI音乐文件
    ③ 资源文件名：加入的资源文件名；
    ④ 举例：  

               mypic Bitmap Water.BMP //加入位图

               mywav WAVE happy.wav //加入声音
                              myAVI AVI EPOEN.AVI //加入视频
                              myIco ICON CJT.ICO //加入图标    假设我们把上述5行保存成myres.rc文件。

mycur cursor move.cur //加入光标

   

 

2、使用Borland资源编译器（BRCC32.EXE）转化.rc文件成.rec文件。

在DOS命令行下输入下列命令：
C：                                     //转在C:驱
CD/                                     //退回根目录

CD/Program Files/Borland/Delphi7/Bin    //进入BRCC32.EXE的所在目录
Brcc32 myres.rc                        //把myres.rc转换成资源文件myres.res

    注意转换前需要把myres.rc文件中指定的未带全路径名的文件Copy进当前目录C:/Program Files/Borland/Delphi7/Bin中来,才可保证转成.RES文件不出错。如果转换过程没有报错，则成功。

 

3、引用资源文件
    把上一步骤生成的资源文件myres.res放到要建立的工程的同一个目录中来。
    为了存取我们的资源文件，必须告诉Delphi链接我们的资源文件到应用程序中。因此要在源代码中加入一条编译指令完成上述功能。这条指令必须紧跟在窗口指令后，如下形式：
    {$R *.DFM}                             //Delphi自带编译指令
    {$R Sample.RES}　                      //新加入的编译资源文件的指令
    不要删除{$R *.DFM}指令，因为这行代码告诉Delphi链接下面的资源到窗口的资源中。

 

下面的语句可以用来改变动态应用程序的图标：
procedure TForm1.Button3Click(Sender: TObject);
begin
    Application.Icon.Handle := LoadIcon(hInstance,'myIco'); //动态改变应用程序图标
end;