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

Проблема с запуском программы от лица другого пользователя   Найти похожие ветки 

← →
Виталик ©   (2005-04-26 19:11) [0]

function TService1.StartAsUser(const CmdLine: string):boolean;
var
 h: Cardinal;
 s: TStartupInfo;
 p: TProcessInformation;
 dir: string;
begin
 dir:=ExtractFileDir(CmdLine);
 result:=LogonUser(Pchar("UserName"),nil,Pchar("userpassword"), LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, h);
 s.cb := SizeOf(s);
 s.lpReserved:=nil;
 s.lpDesktop:=PChar("");
 s.lpTitle:=nil;
 s.dwFlags:=STARTF_USESHOWWINDOW;
 s.wShowWindow:=SW_Show;
 s.cbReserved2:=0;
 s.lpReserved2:=nil;

 result:=CreateProcessAsUser(h, @CmdLine[1], nil,nil, nil, false, CREATE_DEFAULT_ERROR_MODE, nil, @dir[1], s, p);

 CloseHandle(p.hThread);
 CloseHandle(p.hProcess);
 CloseHandle(h);
end;

После выполнения ровно ничего не происходит.

при LogonUser Result=-1
при CreateProcessAsUser Result=1314

Что делать?
Функция вызывается из сервиса.

---

← →
kami ©   (2005-04-26 20:04) [1]

поиск - оно рулез  http://delphimaster.net/view/4-1109896516/

---

← →
kami ©   (2005-04-26 20:10) [2]

А вообще - как пишет MSDN
The function returns an impersonation token, not a primary token. You cannot use this token directly in the CreateProcessAsUser function. However, you can call the DuplicateTokenEx function to convert the token to a primary token, and then use it in CreateProcessAsUser.

---

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

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



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