Intrucciones que causaron el problema
//se sustituyo estas instruccionespor el componente hecho escafandra systray
// fix problem
{with TrayIconData do
begin
cbSize := SizeOf(TrayIconData);
Wnd := Handle;
uID := 0;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage := WM_ICONTRAY;
hIcon := Application.Icon.Handle;
StrPCopy(szTip, Application.Title);
end;
Shell_NotifyIcon(NIM_ADD, @TrayIconData); }
parece ser que hay algo incorrecto en estas instrucciones que a hace
que el sistema no pueda cerrar la aplicacion pero bueno lo resolvi con el uso del componente de escafranda y eliminando este codigo de la aplicacion
TrayIconData: TNotifyIconData; esta definida dentro de la zona privada
de la forma principal
|