Delphi 實現多窗口任務欄顯示圖標《轉》

uses
  Windows;


procedure TformLogin.FormCreate(Sender: TObject);

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

Delphi XE2經過編譯