Como Tratar Erro...
Ola pessoal estou tendo um erro em um componente de compactacao... abaixo tem as linhas de codigo vou explicar o erro...:
o erro ocorre na linha marcada pela @ dizendo ( cannot open file ´c:\teste.dat....´ o arquivo ja esta em uso por outro progra. )
perfeito dai coloque a minha messagem dai quando ocorre o erro aparece a minha e a do windows em seguida pq isso.... o q tenho q fazer para nao acontecer.... alguem pode me ajudar...
obrigado...
for I := 0 to files.count-1 do
if Fileexists(files[i]) then
try
@ SStr := TFilestream.create(files[i], fmOpenRead or fmShareDenyNone);
fSizeTotal := fSizeTotal + SStr.Size;
if fSaveFileID then FID.add(files[i] + #9 + inttostr(Fileage(Files[i])) + ´=´ + inttostr(SStr.size));
finally
ShowMessage(´Erro do Arquivo a Ser Aberto!´);
SStr.free;
end;
o erro ocorre na linha marcada pela @ dizendo ( cannot open file ´c:\teste.dat....´ o arquivo ja esta em uso por outro progra. )
perfeito dai coloque a minha messagem dai quando ocorre o erro aparece a minha e a do windows em seguida pq isso.... o q tenho q fazer para nao acontecer.... alguem pode me ajudar...
obrigado...
Zacca
Curtidas 0