hiding main window's taskbar button on windows

[wht244]

Code: [Select]

  es := GetWindowLong(Application.Handle, GWL_EXSTYLE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE, es or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);this code allows to hide taskbar button for window, which handle is set as the first parameter in these two functions. by that code i can hide taskbar button of whole application. but only in delphi.
then, how to hide taskbar button of an application in lazarus?

[ivan17]

oddly, i think that stopped working recently; anyway, if your application title is different than form captions, this will do the job:

Code: [Select]

  h := FindWindow('Window', PChar(Application.Title));
  ShowWindow(h, 0);

if it's the same as main form caption, we need a bit more (this should work in either case):

Code: [Select]

  h := FindWindow('Window', PChar(Application.Title));
  p := GetParent(h);
  if h = Self.Handle then repeat
    h := FindWindowEx(p, h, 'Window', PChar(Application.Title));
  until (h = 0)  or  (h <> Self.Handle);
  ShowWindow(h, 0);


[RAW]

No need to... just don't create that button... 

Code: Pascal  [Select][+][-]

1. PROGRAM Project1;
2.  {$MODE OBJFPC}{$H+}
3.  
4.  USES
5.   {$IFDEF UNIX}{$IFDEF UseCThreads}
6.   cthreads,
7.   {$ENDIF}{$ENDIF}
8.   Interfaces,
9.   Forms,
10.   Unit1;
11.  
12.   {$R *.RES}
13.  
14. BEGIN
15.  RequireDerivedFormResource:= True;
16.   Application.Initialize;
17.    Form1:= TForm1.Create(Application);
18.    Form1.Show;
19.   Application.Run;
20. END.      
21.  

Code: Pascal  [Select][+][-]

1. Unit Unit1;
2.  {$MODE OBJFPC}{$H+}
3.  
4. Interface
5.  USES
6.   Classes, Forms, Controls;
7.  
8.  TYPE
9.   TForm1 = Class(TForm)
10.  
11.    Procedure FormCreate (Sender: TObject);
12.    Procedure FormClose  (Sender: TObject; Var CloseAction: TCloseAction);
13.   End;
14.  
15.  VAR
16.   Form1: TForm1;
17.  
18. Implementation
19.  {$R *.LFM}
20.  
21.  
22. Procedure TForm1.FormCreate(Sender: TObject);
23.  Begin
24.   SetBounds(500, 200, 500, 300);
25.   Caption:= 'No TaskbarButton...';
26.  End;
27.  
28.  
29. Procedure TForm1.FormClose(Sender: TObject; Var CloseAction: TCloseAction);
30.  Begin
31.   Application.Terminate;
32.  End;
33.  
34. End.            
35.  

[ASerge]

No need to... just don't create that button... 

Or even shorter

Code: Pascal  [Select][+][-]

1. ...
2. begin
3.   RequireDerivedFormResource := True;
4.   Application.Initialize;
5. //  Application.CreateForm(TForm1, Form1);
6.   Form1 := TForm1.Create(Application);
7.   Form1.ShowModal;
8. //  Application.Run;
9. end.
10.  

[RAW]

Really nice... 
Yes, if you only need one window... funny, I never tried that one... good to know !!!
Thanks a lot ...

[Deepaak]

And even more logical

Code: Pascal  [Select][+][-]

1. program Project1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.   {$IFDEF UNIX}{$IFDEF UseCThreads}
7.   cthreads,
8.   {$ENDIF}{$ENDIF}
9.   Interfaces, // this includes the LCL widgetset
10.   Forms, unit1, unit2, unit3
11.   { you can add units after this };
12.  
13. {$R *.res}
14.  
15. begin
16.   RequireDerivedFormResource:=True;
17.   Application.Initialize;
18.   Application.ShowMainForm:=False;
19.   Application.CreateForm(TForm1, Form1);
20.   Application.CreateForm(TForm2, Form2);
21.   Form2.Show;
22.   Application.CreateForm(TForm3, Form3);
23.   Application.Run;
24. end.    
25.  
26.  

and in form2 side

Code: Pascal  [Select][+][-]

1. procedure TForm2.FormClose(Sender: TObject; var CloseAction: TCloseAction);
2. begin
3.  application.Terminate;
4. end;  
5.  

And this method is not limited to single windows. Entire application can be created.

remember: Forget Form1 leave as it is.

I have not tested but it may be applicable to all the platforms.
keep Coding... 

[loaded]

Good solutions from good people

[Fungus]

What's wrong with:

Code: Pascal  [Select][+][-]

1. RequireDerivedFormResource := True;
2. Application.Initialize;
3. Application.MainFormOnTaskBar:= False;
4. Application.CreateForm(TForm1, Form1);
5. Application.Run;

[loaded]

Hey Fungus

What's wrong with:

Code: Pascal  [Select][+][-]

1. RequireDerivedFormResource := True;
2. Application.Initialize;
3. Application.MainFormOnTaskBar:= False;
4. Application.CreateForm(TForm1, Form1);
5. Application.Run;

In Lazarus 1.6.2 this code does not work in Win7 operating system. Yet ;

Code: Pascal  [Select][+][-]

1. ...
2. begin
3.   RequireDerivedFormResource := True;
4.   Application.Initialize;
5. //  Application.CreateForm(TForm1, Form1);
6.   Form1 := TForm1.Create(Application);
7.   Form1.ShowModal;
8. //  Application.Run;
9. end.
10.  

It works fine.