Скачать: CL | DM;

запуск команд под другой учетной записью   Найти похожие ветки 

← →
olevacho ©   (2004-10-27 14:09) [0]

Нужно запустить из своей проги внешнюю но от имени администратора на вин ХР. Как передать системе автоматически имя пользователя и пароль. Тоесть нужно сделать автоматически то, что делают когда в винде щелкают правой кнопкой мышки на значке проги и выбирают "Запустить от имени..."

---

← →
clickmaker ©   (2004-10-27 15:24) [1]

CreateProcessAsUser / CreateProcessWithLogonW

---

← →
Ученик   (2004-10-27 22:40) [2]

function CreateProcessWithLogonW(
         lpUsername : PWChar;
         lpDomain : PWChar;
         lpPassword : PWChar;
         dwLogonFlags : DWord;
         lpApplicationName : PWChar;
         lpCommandLine : PWChar;
         dwCreationFlags : DWord;
         lpEnvironment : Pointer;
         lpCurrentDirectory : PWChar;
         var lpStartupInfo : TStartupInfo;
         var lpProcessInfo : TProcessInformation
       ) : Bool; stdcall; external "AdvApi32.dll";

procedure TForm1.Button5Click(Sender: TObject);
var
 StartupInfo : TStartupInfo;
 ProcessInfo : TProcessInformation;
begin
 FillChar(StartupInfo, SizeOf(StartupInfo), 0);
 StartupInfo.cb := SizeOf(StartupInfo);
 if CreateProcessWithLogonW("UserName", "DomainName", "Password",
            0, "notepad.exe", "", CREATE_DEFAULT_ERROR_MODE, nil, nil,
            StartupInfo, ProcessInfo) then begin
   CloseHandle(ProcessInfo.hProcess);
   CloseHandle(ProcessInfo.hThread)
 end else
   Win32Check(False)
end;

---

← →
Игорь Шевченко ©   (2004-10-28 00:03) [3]

clickmaker ©   (27.10.04 15:24) [1]

Вот CreateProcessAsUser он, IMHO, замучается делать

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c