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;