不在任务栏显示图标(解决ShowInTaskBar无效)

talince · 发表于 2012-8-23 12:38:48

program project1;
{$mode objfpc}{$H+}
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit1 ,Windows, Unit2
  { you can add units after this };
{$R *.res}
var
  Ex : Integer;
begin
  RequireDerivedFormResource := True;
  Application.Initialize;
Ex:=GetWindowLong(FindWindow(nil, 'project1'), GWL_EXSTYLE);
  SetWindowLong(FindWindow(nil, 'project1'),GWL_EXSTYLE, Ex or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

bugxiong · 发表于 2012-8-23 13:06:15

Lazarus社区有你更精彩！

sgzhou12345 · 发表于 2012-10-1 15:08:27

谢谢分享，
学习中

xinqing_2013 · 发表于 2013-8-29 22:53:27

非常感谢。

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）

不在任务栏显示图标(解决ShowInTaskBar无效)

评分