获取系统对话框的图标

　　获取系统对话框的图标的代码，对想做自定义的，并与系统风格相匹配的对话框有帮助。

 

　　测试代码：在窗体上放置一个按钮，一个Image，一个RadioGroup，RadioGroup的内容设为代码里的数组的内容，然后在按钮下写如下代码：

 

var
  IconID: PChar;
const
  IconIDs: array[0..9] of PChar = (IDI_APPLICATION,
                               IDI_HAND,
                               IDI_QUESTION,
                               IDI_EXCLAMATION,
                               IDI_ASTERISK,
                               IDI_WINLOGO,
                               IDI_WARNING,
                               IDI_ERROR,
                               IDI_INFORMATION,
                               nil);
begin
  IconID := IconIDs[rgID.ItemIndex];
  img.Picture.Icon.Handle := LoadIcon(0, IconID);