FIX: Break file name

This commit is contained in:
Alexander Koblov 2010-02-06 18:26:05 +00:00
commit 390bb3bf61

View file

@ -3184,6 +3184,7 @@ begin
aFile:= ActiveFrame.ActiveFile;
if Assigned(aFile) then
try
aFile:= aFile.Clone;
sCmd:= 'quote' + #32 + sCmd;
aFile.FullPath:= ActiveFrame.CurrentPath;
Operation:= ActiveFrame.FileSource.CreateExecuteOperation(
@ -3193,6 +3194,7 @@ begin
if Assigned(Operation) then
Operation.Execute;
finally
FreeThenNil(aFile);
FreeThenNil(Operation);
end;
end;