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;