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

时间：2015-01-09 18:44:36 收藏：0 阅读：298

uses
  Windows;


procedure TformLogin.FormCreate(Sender: TObject);

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

Delphi XE2通过编译

原文：http://www.cnblogs.com/LceMeaning/p/4213828.html