How to get a TrayIcon handle?

[nildo]

Hello Madshi and everyone!

Madshi, are you able to tell me the way you do to get a trayicon handle of another process?

Thank you!

[Shenck]

var
ico:Ticon;
begin
ico:=Ticon.Create;
ico.Handle:=Process('explorer.exe').Icon;
//rest of code
ico.free;
end;

[nildo]

var
ico:Ticon;
begin
ico:=Ticon.Create;
ico.Handle:=Process('explorer.exe').Icon;
//rest of code
ico.free;
end;

I mean... How does Process('explorer.exe').Icon works internaly?

[neji]

use the source luke , hehe

I don't know if I'm allowed to post madshi's code here but I think this is the most important part of the function

Code: Select all

c1 := SHGetFileInfo(pchar(file_), GetFileAttributes(pchar(file_)), sfi, sizeOf(sfi), c1);

[madshi]

Are we talking about the tray icon handle or about the exe icon shown in the explorer list?

[Shenck]

Code: Select all

function GetTrayIcon(PID:dword):cardinal;
var
 exe:string;
 i:integer;
begin
  exe:=process(pid).ExeFile;
  Result:=0;
  for i:=0 to TrayIcons().ItemCount-1 do
  begin
   if  TrayIcons().Items[i].Window.OwnerProcess.ExeFile=exe then
    begin
     Result:=TrayIcons().Items[i].Icon;
     exit;
    end;
  end;
end;

[madshi]

Shenck, you can have that easier:

Code: Select all

function GetTrayIcon(PID:dword):cardinal;
begin
  result := Process(PID).TrayIcons[0].Icon;
end;

[nildo]

Are we talking about the tray icon handle or about the exe icon shown in the explorer list?

TrayIcon.

I would like to know how does it works internaly. How do you get the handle. I'm just curious! But if it's secret, I understand!

See you!

[madshi]

Oh, it's quite complicated - and it differs depending on the OSs!

Check out this one to find more information about it:

http://members.fortunecity.com/nickrepin/winprog.html

[nildo]

Oh, it's quite complicated - and it differs depending on the OSs!

Check out this one to find more information about it:

http://members.fortunecity.com/nickrepin/winprog.html

THank you!

[neji]

http://www.delphipraxis.net/topic44544_ ... t=trayicon

maybe this can help you , too (look at the attachment in the second post)

[nildo]

Nice! THank you people!