Question about Tray Icons

BackupUser · Post by **BackupUser** » Tue Feb 04, 2003 2:31 am

Restored from previous forum. Originally posted by pusztry.

I have been trying to use, the Icon that the .exe has when you include one during creating an .exe, in the tray icon. How can I do this? I have been tring to use "iconid.l = GetClassLong_(WindowID(), #GCL_HICON)" But I can't even get this to work.
Please help

- Ryan
RJP Computing

WinXP, PIII 800 MHz, 512MB RAM, SB Live 5.1, NVidia TNT 2 Ultra

BackupUser · Post by **BackupUser** » Tue Feb 04, 2003 3:14 am

Restored from previous forum. Originally posted by Paul.

Personally I use this:
AddSysTrayIcon(1,WindowID(),ExtractIcon_(0,"ProgramName.exe",0))

Of course you must compile your app to make this work because it takes the icon from the compiled exe

----------
Visit the PB Resources Site at http://www.reelmediaproductions.com/pb

BackupUser · Post by **BackupUser** » Tue Feb 04, 2003 12:40 pm

Restored from previous forum. Originally posted by freak.

I am using the following code:

Code: Select all

FileName.s = Space(1024)
GetModuleFileName_(GetModuleHandle_(0), @FileName, 1025)  ; Get Name of Exe

hImg.l = ExtractIcon_(GetModuleHandle_(0), @FileName, 0) ; Extract Icon

If hImg = 1 Or hImg = 0     ; If it fails in some Way (for example none included)
  hImg = LoadIcon_(0,#IDI_APPLICATION)   ; Load a Standart Icon
EndIf

AddSysTrayIcon(0,WindowID(),hImg)

This way, the code will find the Executable name by himselve (just in case some User changes it), And if reading fails, a Standart Icon is loaded.

So you can also run this from the Editor, and the Code will automatically use this Standart Icon.

Timo

--------------------------------
Programming today is a race between software engineers striving to build bigger and
better idiot-proof programs and the universe trying to produce bigger and better idiots.

...So far, the universe is winning.

BackupUser · Post by **BackupUser** » Tue Feb 04, 2003 9:02 pm

Restored from previous forum. Originally posted by pusztry.

Does anybody have a sample using 'GetClassLong_'. There are other things that you can pull from that. I can't get that to work.
Thanks Paul and Timo

@Timo I actually used that method without error checking so I will add that now.

- Ryan
RJP Computing

WinXP, PIII 800 MHz, 512MB RAM, SB Live 5.1, NVidia TNT 2 Ultra

BackupUser · Post by **BackupUser** » Tue Feb 04, 2003 10:10 pm

Restored from previous forum. Originally posted by freak.

> Does anybody have a sample using 'GetClassLong_'.

I just played around with that, and had no problems.
Here's some code:

Code: Select all

OpenWindow(0, 0, 0, 100, 100, #PB_Window_Screencentered|#PB_Window_SystemMenu, "Icon test")

hIcon = GetClassLong_(WindowID(), #GCL_HICON)
If hIcon = 0
  MessageRequester("Error!",Str(GetLastError_()), 0)
  End
EndIf

AddSysTrayIcon(0, WindowID(), hIcon)

While WaitWindowEvent()  #PB_EventClosewindow: Wend
End

Important: This one only works, if you create an Executable out of it, including an Icon. Otherwise it will report some error.

By the way, what else do you want to get from it?

Maybe this one helps a bit...

Timo