Hide/Show Tray icons from Delphi code

Here's how to show or hide the Windows Tray:

procedure TraySHOW
var
  TopWindow : HWND;
begin
  TopWindow:= FindWindow('Shell_TrayWnd', nil) ;
  TopWindow:= FindWindowEx(TopWindow,0, 'ReBarWindow32', nil) ;
  TopWindow:= FindWindowEx(TopWindow,0, 'SysPager', nil) ;
  ShowWindow( TopWindow,Sw_Show) ;
end;

procedure TrayHIDE
var
  TopWindow : HWND;
begin
  TopWindow:= FindWindow('Shell_TrayWnd', nil) ;
  TopWindow:= FindWindowEx(TopWindow,0, 'ReBarWindow32', nil) ;
  TopWindow:= FindWindowEx(TopWindow,0, 'SysPager', nil) ;
  ShowWindow( TopWindow,Sw_Hide) ;
end;

System Tray Delphi application
Placing Delphi applications in the System Tray in easy steps. The perfect place form programs that are left running for long periods of time with no user interaction. Once you have placed a Delphi program's icon in the Tray, it's time to show a (customized) pop up menu near the icon and have the icon reflect the stat of your application - even animate it if you want to!

Delphi tips navigator:
» Disable mouse and keyboard
« TListBox with Multiple Columns

• 1
• 2
• 3
• 4
• 5