IT SOLUTIONS
Your full service technology partner! 
-Collapse +Expand
Delphi
Search Delphi Group:

Advanced
-Collapse +Expand Delphi To/From
To/FromCODEGuides
-Collapse +Expand Delphi Store
PRESTWOODSTORE

Prestwood eMagazine

May Edition
Subscribe now! It's Free!
Enter your email:

   ► KBProgrammingDelphi for W...Language Det...   Print This     
  From the September 2011 Issue of Prestwood eMag
 
Delphi Language Details:
Using SetWindowLong in Delphi
 
Posted 17 years ago on 11/22/2002
Take Away: Use SetWindowLong to hide your application.

KB100068



Q. In Delphi, how do you hide an application from the list with the start-menu-button on it?

A. Are you talking about hiding your application from the task list? If so, use the SetWindowLong procedure to change the application type from application window to a tool window.

Here's some code:

code:


program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Windows;

{$R *.RES}

//Declare a var to retrieve current window information
var
  ExtendedStyle : Integer;

begin
  Application.Initialize;

  //Get the Extended Styles of the Application, 
  //by passing its
  //handle to GetWindowLong
  ExtendedStyle := GetWindowLong(Application.Handle, 
                   GWL_EXSTYLE);

  //Now, set the Extended Style by doing a 
  //bit masking operation.
  //OR in the WS_EX_TOOLWINDOW bit, and AND out 
  //the WS_EXAPPWINDOW bit
  //This effectively converts the application from 
  //an App Windows to a
  //Tool Window.
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
     ExtendedStyle OR WS_EX_TOOLWINDOW
     AND NOT WS_EX_APPWINDOW);

  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.


Comments

0 Comments.
Share a thought or comment...
 
Write a Comment...
...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.


Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1257A1
Enter key:
KB Post Contributed By Mike Prestwood:

Mike Prestwood is a drummer, an author, and creator of the PrestwoodBoards online community. He is the President & CEO of Prestwood IT Solutions. Prestwood IT provides Coding, Website, and Computer Tech services. Mike has authored 6 computer books and over 1,200 articles. As a drummer, he maintains play-drums.com and has authored 3 drum books. If you have a project you wish to discuss with Mike, you can send him a private message through his PrestwoodBoards home page or call him 9AM to 4PM PST at 916-726-5675 x205.

Visit Profile

 KB Article #100068 Counter
14188
Since 4/2/2008
Go ahead!   Use Us! Call: 916-726-5675  Or visit our new sales site: 
www.prestwood.com


©1995-2019 Prestwood IT Solutions.   [Security & Privacy]