Aplicacion se cae al cerrar explorer u otro navegador

[[Al González]]

Empezado por vicvil

[...] solo aparece "Exception EAccessVoilation in Module Programa.exe at 0007C12C. Access violation at address xxxxx in module Programa.exe. Read of address xxxx" [...]

No hay que subestimar a esas "x", dicen más de lo que crees.

Cuando te aparezca el mensaje de error puedes presionar la combinación de teclas Ctrl+C para copiarlo al portapapeles y luego mostrarlo aquí.

Y también, muy importante, tras cerrar la ventana de error presiona Ctrl+Alt+S para ver la pila de llamadas, muéstranos ésta por favor. Se trata del camino que siguió tu aplicación hasta ocurrir la excepción.

De preferencia compila con Build, tras asegurarte de marcar el par de opciones que te sugerí anteriormente.

Saludos.

[vicvil]

---------------------------
Application Error
---------------------------
Exception EAccessViolation in module Project1.exe at 00061069.
Access violation at address 00461069 in module 'Project1.exe'. Read of address 00000004.
---------------------------
Aceptar
---------------------------

Al dar Ctrl+Alt+S aparece un recuadro indicando

Call Stack

Process is not accessible

[[Al González]]

Empezado por vicvil

Read of address 00000004.

Es muy probablemente por un objeto Nil, intento de leer algún elemento de una instancia de objeto no creada.

Empezado por vicvil

Call Stack

Process is not accessible

Esto puede ser porque el programa ya no está en ejecución (no lo cierres / termines cuando aparezca el error).

[vicvil]

Al el mensaje de "Process is not accesible" aparece aun cuando el programa no ha sido cerrado.
Ahora bien, como te dije anteriormente, el problema se da en el componente ShellTreeview en el evento ShellEvent, al parecer es una pifia del componente. Si no logro arreglarlo voy a tener que buscar un componente similar (que no he encontrado) o generar código que haga algo similar.

[vicvil]

Encontré la solución, era una falla del componente.
Solo agregué un try except end en un parrafo del evento ShellEvent, lo probé y ya no se cayó el sistema.

if ((neFolderDelete in Events) or (neDriveRemove in Events)
or ((neFileDelete in Events) and (toShowFiles in Options))) then begin
{ A folder was deleted. See if it is one we have in the list. }
Node := FindNodeByPidl(SI1.Pidl);
if Node = nil then
Node := FindNodeByPath(SI1.Path);
if Selected = Node then
try
Selected := Node.GetNext;
except
end;

Espero le sirva de ayuda por si a alguien le ocurre lo mismo.

[[Al González]]

Que bueno que lograste encontrar la causa, y gracias por mostrarla.

Un mejor parche podría ser (para el último de esos Ifs):

Código Delphi [-]
If (Node <> Nil) And (Selected = Node) Then
  Selected := Node.GetNext;

En lugar de reprimir la excepción, la evita.

Entonces Node era el objeto Nil en cuestión. La ejecución del método GetNext intentaba leer el primero de sus campos (desplazamiento 4).

[vicvil]

Al puse la excepción como una forma rápida de salir del paso y me funcionó bien, pero voy a probar lo que tu me dices y te cuento.