Re: Aplikacja zminimalizowana i na pasku tray

Article View: pl.comp.lang.pascal

Article #92960

Back to pl.comp.lang.pascal Previous Next

#92960

From: Solaris
Date: Wed, 20 Jan 2010 16:57

47 lines
2078 bytes

Dnia Sun, 03 Jan 2010 20:27:56 +0100, jakże pięknego
DFpawel <0.pawel@STOP.gazeta.pl> wystukał co zawarte poniżej:

: Można prosić o wskazówkę co jeszcze ustawić żeby aplikacja jednak była 
: tylko na tray?

Którą wersję Delphi posiadasz?

Application.MainFormOnTaskbar := false    // Delphi 2009


Inny przykład:

program Project1;

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

{$R *.res}

type 
TWndHider = class
class function MessageHook(var Message: TMessage): Boolean;
end;

class function TWndHider.MessageHook(var Message: TMessage): Boolean;
begin
Result := False;
if (Message.Msg = WM_WINDOWPOSCHANGING) then
with TWMWindowPosChanging(Message).WindowPos^ do
if flags and SWP_SHOWWINDOW <> 0 then
flags := flags and not SWP_SHOWWINDOW;
end;

begin
Application.HookMainWindow(TWndHider.MessageHook);
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.


-- 
Contact: GG#44450, solargrim at gmail.com
19:16:28 -!- Platyna Erroneous Nickname

Technical Details

Message-ID: <20100120175732.41ef5a3e.solaris@be.inspired>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.glorb.com!news2.glorb.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx02.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail

References: <hhqqt5$dvs$1@inews.gazeta.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.glorb.com!news2.glorb.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx02.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail
From: Solaris <solaris@be.inspired>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Aplikacja zminimalizowana i na pasku tray
Date: Wed, 20 Jan 2010 17:57:32 +0100
Organization: Szeregi milicji
Lines: 47
Message-ID: <20100120175732.41ef5a3e.solaris@be.inspired>
References: <hhqqt5$dvs$1@inews.gazeta.pl>
NNTP-Posting-Host: aeca148.neoplus.adsl.tpnet.pl
Mime-Version: 1.0
X-Trace: atlantis.news.neostrada.pl 1264006811 18125 79.186.52.148 (20 Jan 2010 17:00:11 GMT)
X-Complaints-To: usenet@news.neostrada.pl
NNTP-Posting-Date: Wed, 20 Jan 2010 17:00:11 +0000 (UTC)
X-Newsreader: Sylpheed 2.4.8 (GTK+ 2.10.13; i686-pc-linux-gnu)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message