Подскажите, как открыть файла определенной программы под определенной учетной записью в 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: пользуемся тегами
Но не получается открыть под определенной учетной записью.