runnable module output not deleted if file is not in temp dir

This commit is contained in:
Basile Burg 2015-01-04 01:37:31 +01:00
parent ed5dab39e9
commit 2f8a485e4f
1 changed files with 2 additions and 0 deletions

View File

@ -676,6 +676,8 @@ begin
exit;
//
fname := fRunProc.Executable;
if ExtractFileDir(fname) <> GetTempDir(false) then
exit;
killProcess(fRunProc);
if fileExists(fname) then
sysutils.DeleteFile(fname);