From df0c89c4b203d16d3ebab8b5d2b8e97e2482bb33 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Sat, 16 May 2015 10:11:29 +0200 Subject: [PATCH] fix, runnable modules exe not properly deleted on exit --- src/ce_main.pas | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/ce_main.pas b/src/ce_main.pas index a32c9251..9b399e9e 100644 --- a/src/ce_main.pas +++ b/src/ce_main.pas @@ -686,7 +686,7 @@ begin try DockMaster.SaveLayoutToConfig(xcfg); xcfg.WriteToDisk; - // TODO: remove this when AnchorDocking wiont save anymore invalid layout + // TODO: remove this when AnchorDocking wont save anymore invalid layout with TMemoryStream.Create do try LoadFromFile(getCoeditDocPath + 'docking.xml.tmp'); if Size < 10000 then @@ -770,7 +770,8 @@ begin 'has been implicitly aborted', fDoc, amcEdit, amkWarn); killProcess(fRunProc); if fileExists(fname) then - sysutils.DeleteFile(fname); + if ExtractFilePath(fname) = GetTempDir(false) then + sysutils.DeleteFile(fname); end; destructor TCEMainForm.destroy; @@ -1660,7 +1661,7 @@ begin DockMaster.SaveLayoutToConfig(xcfg); xcfg.WriteToDisk; // prevent any invalid layout to be saved (AnchorDocking bug) - // TODO: remove this when AnchorDocking wiont save anymore invalid layout + // TODO: remove this when AnchorDocking wont save anymore invalid layout with TMemoryStream.Create do try LoadFromFile(aFilename + '.tmp'); if Size < 10000 then