FIX: Unconditional file overwrite on Shift + F4 when name has trailing whitespace (fixes #786)

(cherry picked from commit 0c6273c3cf)
This commit is contained in:
Alexander Koblov 2023-02-01 18:43:50 +03:00
commit 2e2456d78b

View file

@ -3711,10 +3711,10 @@ begin
PushPop(AElevate);
try
sNewFile := TrimPath(sNewFile);
Attrs := FileGetAttrUAC(sNewFile);
if Attrs = faInvalidAttributes then
begin
sNewFile := TrimPath(sNewFile);
hFile := FileCreateUAC(sNewFile, fmShareDenyWrite);
if hFile = feInvalidHandle then
begin