Delphi 实现任务栏多窗口图标显示，使用WS_EX_APPWINDOW风格

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;