[Solved] Elevated running with XCOPY.exe

[AlexTP]

Here is the primitive demo which calls RunElevated (in included unit) to copy project1.ico to system folder "C:\Windows\System32\drivers\etc".
It shows the elevation OS window, I press Yes, XCOPY asks for 'F' or 'D' key, I press F, and nothing. File is not copied.
What can I do wrong?

It is needed for the CudaText project to overwrite 'hosts' file when user tries to save it.

Code:

Code: Pascal  [Select][+][-]

1. unit proc_windows_elevated;
2.  
3. {$mode ObjFPC}{$H+}
4.  
5. interface
6.  
7. function RunElevated(const AProgram, AParameters: UnicodeString): boolean;
8.  
9. implementation
10.  
11. uses
12.   Windows, ShellAPI, SysUtils, Classes, Forms;
13.  
14. function RunElevated(const AProgram, AParameters: UnicodeString): boolean;
15. var
16.   sei: TShellExecuteInfoW;
17. begin
18.   FillChar(sei, SizeOf(sei), 0);
19.   sei.cbSize := SizeOf(sei);
20.   sei.fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_UNICODE;
21.   sei.Wnd := Application.MainForm.Handle;
22.   sei.lpVerb := 'runas';
23.   sei.lpFile := PWideChar(AProgram);
24.   sei.lpParameters := PWideChar(AParameters);
25.   sei.nShow := SW_SHOW;
26.  
27.   Result := ShellExecuteExW(@sei);
28.   if Result then
29.   begin
30.     WaitForSingleObject(sei.hProcess, INFINITE);
31.     CloseHandle(sei.hProcess);
32.   end
33.   else
34.     Application.MessageBox(
35.       PChar(Format('ShellExecuteExW failed: %d', [GetLastError])),
36.       'CudaText');
37. end;
38.  
39. end.
40.  

[AlexTP]

Found the reason. I used Win32 32-bit target. For C:\Windows paths, I must use 64-bit target.