.bat файл корректно работает при запуске из приложения Delphi с правами администратора, но без прав он просто не находит файл. Приложение установлено в папку Program Files. В других не системных папках без прав выполняется корректно. Как обойти это ограничение?
procedure RunBatchFile;
var
List: TStringList;
ShExecInfo: SHELLEXECUTEINFO;
begin
if not FileExists(ExtractFilePath(Application.ExeName) + 'config.ini') then
try
try
if (FileExists(ExtractFilePath(Application.ExeName) + 'get_ip.bat')) or
(FileExists(ExtractFilePath(Application.ExeName) + 'ip.txt')) then
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'get_ip.bat');
DeleteFile(ExtractFilePath(Application.ExeName) + 'ip.txt');
end;
List := TStringList.Create;
List.Add('@echo off');
List.Add('cls');
List.Add('for /f "usebackq tokens=4" %%A in (`route print ^| findstr "\<0.0.0.0"`) do echo %%A > ip.txt');
List.SaveToFile(ExtractFilePath(Application.ExeName) + 'get_ip.bat');
ZeroMemory(@ShExecInfo, SizeOf(SHELLEXECUTEINFO));
with ShExecInfo do
begin
cbSize := SizeOf(SHELLEXECUTEINFO);
fMask := SEE_MASK_NOCLOSEPROCESS;
lpFile := PChar(ExtractFilePath(Application.ExeName) + 'get_ip.bat');
nShow := SW_HIDE;
end;
ShellExecuteEx(@ShExecInfo);
WaitForSingleObject(ShExecInfo.hProcess, INFINITE);
List.LoadFromFile(ExtractFilePath(Application.ExeName) + 'ip.txt');
edtIP.Text := Trim(List.Text);
edtPort.Text := '5432';
edtUser.Text := 'postgres';
edtPassword.Text := 'passwd';
Exit;
except
on E: Exception do
ShowMessage(SysErrorMessage(GetLastError));
end;
finally
List.Free;
end;
GetLastError
? – Anton Shchyrov 20 дек '16 в 10:49ShellExecuteEx
запускаетget_ip.bat
, но сам код в файле не сохраняет данные в папку Program Files\MyApp. При запуске от администратора код выполняется корректно, без прав - "Отказано в доступе" – user214690 20 дек '16 в 11:23