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

uses
  Windows;


procedure TformLogin.FormCreate(Sender: TObject);

begin
     SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));
end; 

Delphi XE2经过编译