在Win7应用程序中使用盾牌图标
为了支持Windows7，如果你的程序需要管理员权限，显示一个盾牌图标是非常不错的想法，这样即人性化，同时程序也比较美观在Delphi里实现起来非常简单，代码如下：
procedure TForm1.btn4Click(Sender: TObject);
begin
SendMessage(btn4.Handle, BCM_SETSHIELD, 0, 1);
end;
//BCM_SETSHIELD = BCM_FIRST + $000C; 是在CommCtrls.pas 中定义的，如果没有，可以直接使用$00160C
点击btn4按钮，显示效果如下
这个小图标是不是很可爱
页:
[1]