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

UPD: FixExeExt - keep untouched non exe extensions

Browse source
This commit is contained in:
j2969719 2024-10-21 21:35:01 +03:00
commit 947ac3b82f
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/udcutils.pas
View file

@ -660,11 +660,13 @@ end;
function FixExeExt(const sFileName: String): String;
var
ExeExt: String;
ExeExt, FileExt: String;
begin
Result:= sFileName;
ExeExt:= GetExeExt;
if not SameText(ExeExt, ExtractFileExt(sFileName)) then
FileExt:= ExtractFileExt(sFileName);
if (SameText(ExeExt, '.exe') and (FileExt = EmptyStr)) or
((ExeExt = EmptyStr) and SameText(FileExt, '.exe')) then
Result:= ChangeFileExt(sFileName, ExeExt);
end;