| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с запуском программы от лица другого пользователя [D7, WinXP]
Виталик © (2005-04-26 19:11:00)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:10:00) [1]А вообще - как пишет 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.
kami (2005-04-26 20:04:00) [2]поиск - оно рулез http://www.delphimaster.ru/cgi-bin/forum.pl?id=1109896516&n=5
| |
