program on trayd bar....

How i make one program run on tray with a icon (this tray is the place that have the whatch, protect-virus,... on windows 95). I know a program that make this with any program - traydminimizer, but i want do this only in delphi.
Another thing is that i want make a window that always will show like a status bar of microsoft office.
inhaempepoAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ZifNabCommented:
trayd bar? Please explain more briefly.

Stay on Top : property FormStyle of Form : fsStayOnTop.

Have fun,
ZifNab;
0
inhaempepoAuthor Commented:
Edited text of question
0
ZifNabCommented:
Sorry for my bad english, but I still don't really know what you mean with traybar. Do you mean with this the taskbar? Bottom-right corner in Win95? If that what you mean, then perhaps this will help you further (UDDF-files):

Buttons in Win95 task bar

Can anyone tell me of a way or a component or whatever else that will allow
delphi 2 or 3 to place a button on the task bar much like what PowerDesk
2.0 Toolbar does.

Here are the code snipits to do just that!

// This needs to be in your public declarations @ the top of the pas file
procedure TForm1.IconCallBackMessage( var Mess : TMessage ); message WM_USER
+ 100;




procedure TForm1.FormCreate(Sender: TObject);
var
   nid : TNotifyIconData;
begin
     with nid do
     begin
           cbSize := SizeOf( TNotifyIconData );
           Wnd := Form1.Handle;
           uID := 1;
           uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
           uCallbackMessage := WM_USER + 100;
           hIcon := Application.Icon.Handle;
           szTip := 'This is the hint!';
     end;
     Shell_NotifyIcon( NIM_ADD, @nid );
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
   nid : TNotifyIconData;
begin
     with nid do
     begin
           cbSize := SizeOf( TNotifyIconData );
           Wnd := Form1.Handle;
           uID := 1;
           uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
           uCallbackMessage := WM_USER + 100;
           hIcon := Application.Icon.Handle;
           szTip := 'This is the hint!';
// All the above is probably not needed.
     end;
     Shell_NotifyIcon( NIM_DELETE, @nid );
end;

procedure TForm1.IconCallBackMessage( var Mess : TMessage );
var
   sEventLog : String;
begin
     case Mess.lParam of
// Do whatever you wish here. For example popup up a menu on a right click.
          WM_LBUTTONDBLCLK  : sEventLog := 'Left Double Click';
          WM_LBUTTONDOWN    : sEventLog := 'Left Down';
          WM_LBUTTONUP      : sEventLog := 'Left Up';
          WM_MBUTTONDBLCLK  : sEventLog := 'M Dbl';
          WM_MBUTTONDOWN    : sEventLog := 'M D';
          WM_MBUTTONUP      : sEventLog := 'M U';
          WM_MOUSEMOVE      : sEventLog :=  'movement';
          WM_MOUSEWHEEL     : sEventLog := 'Wheel';
          WM_RBUTTONDBLCLK  : sEventLog := 'r dbl';
          WM_RBUTTONDOWN    : sEventLog := 'r down';
          WM_RBUTTONUP      : sEventLog := 'r up';
     end;
end;

Have fun,
c.u. ZifNab;


0
Exploring ASP.NET Core: Fundamentals

Learn to build web apps and services, IoT apps, and mobile backends by covering the fundamentals of ASP.NET Core and  exploring the core foundations for app libraries.

inhaempepoAuthor Commented:
i can´t run the application becouse
var  nid : TNotifyIconData; the compiler not know.... (i put this code in unit1.pas...)
my uses have classes... what i´m doing wrong???



0
ZifNabCommented:
To make it very easy and quick for us (and it saves time!), you maybe can use freeware components, which already do all of this what you want? Good idea? I think so! Here are some :

http://SunSite.icm.edu.pl/delphi/ftp/d20free/appbar13.zip
>>>>>>>>>>> makes of application an application desktop toolbar!

http://SunSite.icm.edu.pl/delphi/ftp/d20free/iconbar.zip
>>>>>>>>>>> puts an icon into the taskbar!

Have fun,
c.u. ZifNab;
0
inhaempepoAuthor Commented:
thank you for the answer...

in this site i have to make anything to make tins question answered???
0
ZifNabCommented:
Now you can answer this question by grading it :

I normally always give comments to an answer (except if the answer is obvious). This way everybody can give an answer and the questionar can choose which comment he finds the best.

To make it very easy and quick for us (and it saves time!), you maybe can use freeware components, which already do all of this what you want? Good idea? I think so! Here are some :

                          http://SunSite.icm.edu.pl/delphi/ftp/d20free/appbar13.zip 
>>>>>>>>>>> makes of application an application desktop toolbar!

                            http://SunSite.icm.edu.pl/delphi/ftp/d20free/iconbar.zip 
>>>>>>>>>>> puts an icon into the taskbar!

Have fun,
c.u. ZifNab;

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
inhaempepoAuthor Commented:
You are very good!!!

thank's....
0
inhaempepoAuthor Commented:
You are very good!!!

thank's....
0
ZifNabCommented:
Glad I could help.

Have fun making your program! And good luck with it.
c.u. ZifNab;

0
inhaempepoAuthor Commented:
TNotifyIconData
i don´t undesrtant what its this kind???
in these componentes the compiler don´t know and i can´t compile the library...
i think that i have to include some file in uses but i dont find in help what lib has this TNotifyIconData
0
ZifNabCommented:
Hi inhaempepo,

You need ShellAPI. So this unit has to be in your uses clausule.

Hope this helps.

Regards,
ZifNab;
0
inhaempepoAuthor Commented:
i try shellapi but don´t works....
TNotifyIconData  unknown identifier......
i try later read all codes of the components to try understand the commands....
0
ZifNabCommented:
I don't get it. TNotifyIconData is defined in ShellAPI.
You can see it for yourself in the source code delivered by
Delphi.
0
inhaempepoAuthor Commented:
I am already with headache from being thinking of this subject. I already sought in the help and I didn't find anything on TNotifyIconData, on ShellAPI I found.  
Everything well. I will rest a little and later I think of the subject again.  
Please, if you could sends me an e-mail explaining as this site works. I didn't still understand right as the subject of the points.  
zmbotta@nutecnet.com.br  
thank you / /
0
ZifNabCommented:
Hi inhaempepo,

Which version of delphi are you running? I'm using D2 and just compiled a small program using iconbar.zip. Everything worked fine. Had no problems at all!

Have fun,
c.u. ZifNab;


0
inhaempepoAuthor Commented:
i´m using the delphi 1.0 (for 16bits)....
0
ZifNabCommented:
Aha, that's the problem. Code's I gave you are for D2 or above. Don't think these things work on D1.
0
ZifNabCommented:
Inhaempepo,

 Here are some components for 16bit, didn't look at them so
 I don't if source is included :

 ftp://delphiexchange.com/pub/free/trayicon.zip

 ( Allows Delphi 1.0 Application to use an Icon in the Windows95    System Tray, Requires Call32NT)

 ftp://delphiexchange.com/pub/free/ptask201.zip
 ftp://delphiexchange.com/pub/free/ptask.zip
 ftp://delphiexchange.com/pub/free/ptask11.zip
 ftp://delphiexchange.com/pub/free/ptask101.zip
  ( taskbar for Win3.x : maybe some usefull code)
                                     

 
0
inhaempepoAuthor Commented:
very very tank´s....
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.