Ver Mensaje Individual
  #9  
Antiguo 30-05-2012
Rolando Glez Rolando Glez is offline
Miembro
 
Registrado: nov 2004
Ubicación: Havana
Posts: 62
Reputación: 20
Rolando Glez Va por buen camino
Smile 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
Responder Con Cita