mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Use SHFileOperation function under Windows in rename operation, so UAC query automatically showing if needed

Browse source
This commit is contained in:
Alexander Koblov 2012-02-29 04:34:01 +00:00
commit 5349e934ac
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/newdesign/ufilesystemsetfilepropertyoperation.pas
View file

@ -47,7 +47,7 @@ uses
uGlobs, uOSUtils, uDCUtils, uLng, uDateTimeUtils, uFileSystemUtil, uTypes,
uFileSourceOperationUI
{$IF DEFINED(MSWINDOWS)}
, LCLProc
, Windows, ShellAPI, LCLProc
{$ELSEIF DEFINED(UNIX)}
, BaseUnix, FileUtil
{$ENDIF}
@ -255,6 +255,7 @@ var
OldFileStat, NewFileStat: stat;
{$ELSE}
NewFileAttrs: TFileAttrs;
FileOpStruct: TSHFileOpStructW;
{$ENDIF}
begin
if FileSource.GetPathType(NewName) <> ptAbsolute then
@ -371,7 +372,15 @@ begin
end;
end;
if mbRenameFile(OldName, NewName) then
FillByte(FileOpStruct, SizeOf(FileOpStruct), 0);
with FileOpStruct do
begin
Wnd := GetForegroundWindow;
wFunc := FO_RENAME;
pFrom := PWideChar(UTF8Decode(OldName) + #0);
pTo := PWideChar(UTF8Decode(NewName) + #0);
end;
if (SHFileOperationW(@FileOpStruct) = 0) and (not FileOpStruct.fAnyOperationsAborted) then
{$ENDIF}
Result := sfprSuccess