Aplikacja zminimalizowana i na pasku tray

Article View: pl.comp.lang.pascal

Article #92959

Back to pl.comp.lang.pascal Previous Next

#92959

From: DFpawel
Date: Sun, 03 Jan 2010 19:27

28 lines
1619 bytes

Witam!


Piszę sobie na własne potrzeby prostą aplikację pod Windows, która po 
uruchomieniu będzie tylko na pasku tray. Ustawiłem Formę główną TForm 
ShowInTaskBar stNever dodatkowo w kodzie projektu:

var
ES:= Integer;

begin
   {$I Aplikacja1.lrs}
   Application.Initialize;
   ES:=GetWindowLong(HWND(nil), GWL_EXSTYLE);
   ES:=ES or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW;
   SetWindowLong(HWND(nil),GWL_EXSTYLE,ES);
   Application.CreateForm(TForm1, Form1);
   Application.Run;
end;

Dołożyłem komponent: TrayIcon1, ustawiłem ikonkę i po odpaleniu jest na 
pasku tray ale niestety nadal pojawia się na normalnym pasku menu.

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


Pozdrawiam DFpawel

Technical Details

Message-ID: <hhqqt5$dvs$1@inews.gazeta.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: DFpawel <0.pawel@STOP.gazeta.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Aplikacja zminimalizowana i na pasku tray
Date: Sun, 03 Jan 2010 20:27:56 +0100
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 28
Message-ID: <hhqqt5$dvs$1@inews.gazeta.pl>
NNTP-Posting-Host: ip-093157113244.mikolow.multimetro.pl
Mime-Version: 1.0
X-Trace: inews.gazeta.pl 1262546661 14332 93.157.113.244 (3 Jan 2010 19:24:21 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Sun, 3 Jan 2010 19:24:21 +0000 (UTC)
X-User: 0.pawel
X-Antivirus: avast! (VPS 100103-0, 2010-01-03), Outbound message
X-Antivirus-Status: Clean
User-Agent: Thunderbird 2.0.0.19 (Windows/20081209)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit