Запуск программы от имени другого пользователя...

[EraM]

Доброго времени суток.

Проблемка: Есть учётка ограниченная и есть прога которая общаеться с реестром. Как средствами Delphi запустить прогу от имени другого пользователя, если логин и пароль известны.

[СТРАННИК]

Попробуй так.

function CreateProcessWithLogonW(user:pwidec har; domain:pwidechar;
passw:pwidechar; flags: DWORD; lpApplicationName: PwideChar; lpCommandLine: PwideChar;
dwCreationFlags: DWORD; lpEnvironment: Pointer;
lpCurrentDirectory: PWideChar; const lpStartupInfo: TStartupInfo;
var lpProcessInformation: TProcessInformation): BOOL; stdcall;external 'advapi32.dll' name 'CreateProcessWithLogonW';
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
si: TSTARTUPINFO;
pif: PROCESS_INFORMATION;
begin
si.cb := SizeOf(tstartupinfo);
si.dwFlags := STARTF_USESHOWWINDOW;
si.wShowWindow := SW_SHOWDEFAULT;
si.lpReserved := nil;
si.lpDesktop := nil;
si.lpTitle := nil;
CreateProcessWithLogonW('Login', nil, 'Password', 0,
nil, 'notepad.exe {или путь к твоей проге}',0, nil, nil, si, pif);
end;

Удачи.

[mixael]

Если делать через CreateProcessWithLogonW, если запускать вручную, то все норм, программа запускается от другого пользователя, а если запускать через WinExec, или автозапуск, то пишет, что файл не найден!
В чем проблема?

[KiL0z]

А если логин и пароль не известны, но нужно под Win7 запустить с правами админа (что бы всплыло окно запроса UAC), то как это сделать?
Манифест не катит - запрос UAC будет при каждом запуске программы, а нужно только при выполнении определенных действий: нужно что-то в реестр записать или папку программ или службу запустить - запустил себя с админскими правами, сказал что делать, сделал с правами админа, закрыл привилегированную копию, продолжил работу.

Типа такого UAC (в зависимости от настроек безопасности):
или


-------------------------------------------------------------------------


Так эта проблема решилась, после MSDN - Redesign for UAC Compatibility (UAC) была написана функция:

function RunAsAdmin(HWND: hWnd; lpFile,lpParameters: String): Boolean;
var
 sei: SHELLEXECUTEINFO;
begin
  try
    ZeroMemory ( @sei, SizeOf(sei) );

    sei.cbSize := SizeOf(SHELLEXECUTEINFOW);
    sei.Wnd := hWnd;
    sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
    sei.lpVerb := 'runas';
    sei.lpFile := PWideChar(IncludeTrailingPathDelimiter(lpFile));
    sei.lpParameters := PWideChar(lpParameters);
    sei.nShow := SW_SHOWNORMAL;

    if ( not ShellExecuteEx ( @sei ) ) then begin
      //ShowMessage( 'Error: ShellExecuteEx failed ' + IntToStr(GetLastError) );
      Result := False;
      Exit;
    end;
    Result := True;
  except
    else Result := False;
  end;
end;

Теперь стоит вопрос: как скрыть сообщение выдаваемое службой при её установке или удалении (т.е. при запуске её exe-шника с ключом /install или /uninstall соответственно) ?


-------------------------------------------------------------------------


Нашел - нужно ещё ключик добавить: /SILENT