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

Merge 947ac3b82f into 9add69adef

Browse source
This commit is contained in:
j2969719 2026-06-15 03:13:43 +00:00 • committed by GitHub
commit 9ad4aecc81
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
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

@ -663,11 +663,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;