Hola a todos de nuevo, saludos...
Estoy teniendo un pequeño problema con la función Try... Except, os pongo el código:
Código Delphi
[-]
try
principal.memo1.Lines.Add(CalcHash(principal.labedit1.Text,haSHA1));
principal.Memo1.Lines.SaveToFile(principal.labEdit2.Text+ '\'+' Archivo Hash.crc');
except
on EFCreateError do
begin
showMessage ('Unidad seleccionada no valida. Selecciona una unidad' +
chr(13)+'de disco duro local que sea accesible.');
exit;
end;
end;
El problema aparece cuando por ejemplo selecciono una unidad de DVD que no tiene disco. Y lo que pasa es que antes de capturar el error y mostrar mi mensaje, me tira un mensaje de propio de delphi. Y mi duda es ¿cómo puedo hacer que solo salga mi mensaje de error sin mostrar ni antes ni después el mensaje de error de delphi?
Espero haberme explicado bien. Gracias y un saludo.