Delphi 实现任务栏多窗口图标显示

uses
  Windows;
type
  TfrmLogin = class(TForm)
 end;

implementation

{$R *.dfm}

procedure TfrmLogin.FormCreate(Sender: TObject);
begin
     SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));
end;

http://blog.csdn.net/yanjiaye520/article/details/6659662