Запустить процесс в защищенной области другого пользователяDelphi , Программа и Интерфейс , Процессы и СервисыЗапустить процесс в защищенной области другого пользователя
Оформил: DeeCo uses JwaWinBase; ( http://members.chello.nl/m.vanbrakel2/ ) //... procedure TForm1.Button1Click(Sender: TObject); var si: STARTUPINFOW; pif: PROCESS_INFORMATION; res: Bool; s: string; begin //erstmal die StartUpInfoW setzen //set StartUpInfoW first si.cb := SizeOf(startupinfow); si.dwFlags := STARTF_USESHOWWINDOW; si.wShowWindow := SW_SHOWDEFAULT; si.lpReserved := nil; si.lpDesktop := nil; si.lpTitle := 'Konsole'; // dann CreateProcessWithLogonW ausfьhren... // run CreateProcessWithLogonW... res := CreateProcessWithLogonW('Security', 'ArViCor', 'test', LOGON_WITH_PROFILE, 'c:\win2kas\system32\regedt32.exe', nil , CREATE_DEFAULT_ERROR_MODE, nil, nil, si, pif); if booltostr(res) = '0' then begin //wenn ein Fehler auftritt, soll der Fehlercode ausgegeben werden //ьber 'net helpmsg ' in der Kommandoeingabeaufforderung //kann dieser entziffert werden //if an error occures, show the error-code //this code can be 'translated' with 'net helpmsg ' on command-prompt str(GetLastError, s); ShowMessage('CreateProcessWithLogonResult: ' + booltostr(res) + #10 + 'GetLastError: ' + s); end; end; // Verbesserungen gerne als Mail an mich! В статье описывается пример программирования на Delphi, который позволяет запустить процесс в защищенной области другого пользователя с помощью функции CreateProcessWithLogonW. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Процессы и Сервисы ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |