Hice todo, desactive eso del IDE, lo que yo hago es lo siguiente:
Código Delphi
[-]
for z:=0 to Lista.Count-1 do
begin
CopiarArchivo(lista.Strings[z],dirtmp+'\'+ExtractFileName(lista.Strings[z]));
try
Image5.Picture.LoadFromFile(lista.Strings[z]);
except
on EInvalidGraphic do
begin
DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
end;
on EFOpenError do
begin
DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
end;
on EOutOfResources do
begin
DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
end;
on E: EOSError do
begin
DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
end;
on EReadError do
begin
DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
end;
else begin
DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
end;
end;
Pero no me borra el archivo que esta mal, me lo deja. Porque?
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;