Code sample:
if (sSpecialApp <> '') then begin
try
Process1.Executable := sSpecialApp;
Process1.Options := Process1.Options + [poNoConsole];
Application.ProcessMessages;
Process1.Execute;
except
on e: Exception do begin
MessageDlg('Lanzador', 'Error al ejecutar la aplicación definida...' + #13#10 + ' --> ' + e.message, mtWarning, [mbOK], 0);
Exit;
end;
end;
end;
The button caption is translated to spanish (with Translations.TranslateUnitResourceStrings), but no affect Exception Messages.
Is there any method?