mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Memory leak.

Browse source
This commit is contained in:
cobines 2011-03-24 21:44:36 +00:00
commit 65b4ae7409
1 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/ushellexecute.pas
View file

@ -488,19 +488,23 @@ begin
// Executing files directly only works for FileSystem.
aFile := TFileSystemFileSource.CreateFileFromFile(sFileName);
try
sCommand:= gExts.GetExtActionCmd(aFile, sCmd);
if sCommand <> '' then
begin
ReplaceExtCommand(sCommand, aFile, sActiveDir);
Result:= ProcessExtCommand(sCommand, sActiveDir);
end;
sCommand:= gExts.GetExtActionCmd(aFile, sCmd);
if sCommand <> '' then
begin
ReplaceExtCommand(sCommand, aFile, sActiveDir);
Result:= ProcessExtCommand(sCommand, sActiveDir);
end;
if not Result then
begin
mbSetCurrentDir(sActiveDir);
Result:= ShellExecute(sFileName);
end;
if not Result then
begin
mbSetCurrentDir(sActiveDir);
Result:= ShellExecute(sFileName);
end;
finally
FreeAndNil(aFile);
end;
end;
end.