请问如何每创建一个窗口就在任务栏里显示一个图标？

Question

我记得以前有人问过这样的问题。
但是，那些旧帖上哪儿找去呢？
谢谢！

Answer 1

很easy的
procedure TForm2.FormCreate(Sender: TObject);
var
  WDL: Integer;
begin
  WDL := GetWindowLong(handle, GWL_EXSTYLE);
  SetWindowLong(handle, GWL_EXSTYLE, WDL or WS_EX_APPWINDOW);
end;

Answer 2

你把要使用的窗体全部放在dll中，通过一个接口函数调用可以实现该要求

Answer 3

procedure TForm2.FormCreate(Sender: TObject);
var
  WDL: Integer;
begin
  WDL := GetWindowLong(handle, GWL_EXSTYLE);
  SetWindowLong(handle, GWL_EXSTYLE, WDL or WS_EX_APPWINDOW);
end;