Показать сообщение отдельно
  #1  
Старый 03.09.2018, 20:11
irina_c irina_c вне форума
Прохожий
 
Регистрация: 29.06.2017
Сообщения: 2
Версия Delphi: RAD Studio 10.1
Репутация: 10
По умолчанию Как открыть файла под определенной учетной записью в delphi?

Подскажите, как открыть файла определенной программы под определенной учетной записью в delphi?

Пробывала так

Код:
procedure RunAsAdministrator(const source:string);
var
  shExecInfo: PShellExecuteInfoA;
begin
  New(shExecInfo);
  shExecInfo^.cbSize := SizeOf(SHELLEXECUTEINFOA);
  shExecInfo^.fMask := 0;
  shExecInfo^.Wnd := 0;
  shExecInfo^.lpVerb := 'runas';
  shExecInfo^.lpFile := PAnsiChar(ExtractFileName(source));
  shExecInfo^.lpParameters := '';
  shExecInfo^.lpDirectory := PAnsiChar(ExtractFilePath(source));
  shExecInfo^.nShow := SW_SHOWNORMAL;
  shExecInfo^.hInstApp := 0;
  ShellExecuteEx(shExecInfo);
  Dispose(shExecInfo);
end;

но так запускается только exe, без файла


пробовала так:
Код:
ShellExecute(Handle, 'open', 'C:\MyDocuments\Test.doc',
    nil, nil, SW_SHOWNORMAL) ;

lmikle: пользуемся тегами

Но не получается открыть под определенной учетной записью.
Ответить с цитированием