在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按钮，显示效果如下

 

 这个小图标是不是很可爱

 

转载于:https://www.cnblogs.com/iihe602/archive/2010/01/17/1650178.html