Señores, tengo un bloco Try..Except, donde yo tengo un codigo para crear un directorio(CreateDir(Path)), pero antes doy un DirectoryExists. Que pasa es, que si fuera posible crear mi Directorio, gustaria que fuera para el bloco Except para yo tratar mi excepccion, pero no esta asi. Si no crea, se va al final, olvidando el Except.
Código Delphi
[-]try
with Mfd do
begin
dirpadrao := ReadString('MFD','DiretorioPadrao','');
pathorigem := ReadString('MFD','PathOrigem','');
pathdestino := ReadString('MFD','PathDestino','');
arquivoorigem := ReadString('MFD','NomeArquivoOrigem','');
arquivodestino := ReadString('MFD','NomeArquivoDestino','');
end;
if not DirectoryExists(dirpadrao) then
if not CreateDir(dirpadrao) then
msg := 'Não foi possível criar o diretório padrão';
SWEDA_CapturarDispositivo(1,0,'',0,15000);
SWEDA_ReproduzirFitaDetalhe(PathOrig,PathDest,dtIni,dtFim,0);
CapeadorReducaoZ;
CapeadorItens;
GravaReducao_Z;
GravaItens;
if not DeleteFile(dirpadrao) then
msg := 'Não foi possível deletar arquivos no diretório padrão';
except
Warning(msg);
end;