FIX: Request elevation from another thread

This commit is contained in:
Alexander Koblov 2019-09-14 09:23:46 +00:00
commit a5be2a12fa
2 changed files with 4 additions and 4 deletions

View file

@ -37,7 +37,7 @@ type
implementation
uses
RtlConsts, DCOSUtils, Dialogs, UITypes, uElevation, uSuperUser;
RtlConsts, DCOSUtils, LCLType, uShowMsg, uElevation, uSuperUser;
resourcestring
rsElevationRequired = 'You need to provide administrator permission';
@ -52,7 +52,7 @@ var
begin
Text:= rsElevationRequired + LineEnding;
Text += Message + LineEnding + FileName;
Result:= MessageDlg(mbSysErrorMessage, Text, mtConfirmation, [mbYes, mbNo], 0) = mrYes;
Result:= ShowMessageBox(Text, mbSysErrorMessage, MB_OKCANCEL) = IDOK;
end;
function FileOpenUAC(const FileName: String; Mode: LongWord): System.THandle;

View file

@ -56,7 +56,7 @@ var
implementation
uses
uSuperUser, uDebug;
uDebug;
const
MasterAddress = 'doublecmd-master-';
@ -269,7 +269,7 @@ begin
DCDebug('Start worker server');
StartWorkerServer(ParamStr(2));
CreateMasterProxy(ParamStr(2));
ReadLn;
Sleep(MaxInt);
Halt;
end;
end;