Consulta sobre focos

[Mage]

Hola, estoy trabajando con un programa que la idea es que este en el systray, totalmente oculto, solo se vea el icono del tray y a su vez, que no moleste al estar usando la pc, ya que este programa va haciendo rutinas paralelas, asi que mientras se ejecuta debes en cuando me saca el foco de por ejemplo el msn, o de esta pagina mientras escribo, cada sierto tiempo que es que ejecuta una accion, esta accion no genera mostrar ventanas, ni nada visual, simplemente esta navegando una pagina web, y lo que hace es recargar la pagina. Tambien desactive del explorer que le de foco cuando se carga la pagina, ya que estoy usando el twebbrowser y es el explorer.
Tambien estoy usando showwindow, pero no se bien como funciona, lo que quiero es que este programa no tome foco a menos que yo usuario ejecute una accion sobre el, con el mouse, hay alguna forma de hacer eso? de que una aplicacion no tome foco?

[TheWatcher]

este codigo me lo pasaron a mi hace rato aunq no lo probe del todo
pero parece q lo q hace es q cuando cierras el programa te lo deja en el systray y lo puedes volver a abrir o algo asi.
algunas cosas estan en ingles porq asi me lopasaron.

haber si lo pueds hacer correr ,creo q es lo q quieres



In your uses statement, include 'shellapi'.

Create a program constant like this:

WM_NOTIFYICON = WM_USER+333;

At the end of your procedure listing for your form include these lines:

private
{ Private declarations }
tnid: TNotifyIconData;
HMainIcon: HICON;
procedure CMClickIcon(var msg: TMessage); message WM_NOTIFYICON;

The actual procedure looks like this:

procedure TForm.CMClickIcon(var msg: TMessage);
begin
case msg.lparam of
WM_LBUTTONDBLCLK, WM_LBUTTONDOWN : Show;
end;
end;

In your TForm.FormCreate procedure include these lines:

HMainIcon := LoadIcon(MainInstance, 'MAINICON');

Shell_NotifyIcon(NIM_DELETE, @tnid);

tnid.cbSize := sizeof(TNotifyIconData);
tnid.Wnd := handle;
tnid.uID := 123;
tnid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
tnid.uCallbackMessage := WM_NOTIFYICON;
tnid.hIcon := HMainIcon;
tnid.szTip := 'Volume Control';

Shell_NotifyIcon(NIM_ADD, @tnid);

In your TForm.FormClose procedure add these lines:

Action := caNone;
Hide;

[dec]

Hola,

TheWatcher, por favor, edita tu anterior mensaje y encierra el código fuente de Delphi en etiquetas [ DELPHI ], de tal modo que tu mensaje quede más curioso y el código fuente se lea y se entienda mejor. Gracias.

Código Delphi [-]
procedure HolaMundo;
begin
  ShowMessage('¡Hola mundo!');
end;

Nota: Si no sabes cómo utilizar las etiquetas [ DELPHI ] así como otras etiquetas, por favor, revisa este Hilo.