Как запустить программу с правами администратора

Delphi , Программа и Интерфейс , EXE файл

Code:

unit  Main; 

         

        interface 

         

        uses

        Windows,  Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

        Dialogs,  StdCtrls, ShellApi; 

         

        type 

        TForm1 =  class(TForm) 

            Button1: TButton; 

            procedure Button1Click(Sender: TObject); 

        end; 

         

        var 

        Form1:  TForm1; 

         

        implementation 

         

        function CreateProcessWithLogonW(

        lpUsername: PWideChar; 

        lpDomain: PWideChar; 

        lpPassword: PWideChar; 

        dwLogonFlags: DWORD; 

        lpApplicationName: PWideChar; 

        lpCommandLine: PWideChar; 

        dwCreationFlags: DWORD; 

        lpEnvironment: Pointer; 

        lpCurrentDirectory: PWideChar; 

        const lpStartupInfo: _STARTUPINFOA; 

        var  lpProcessInfo: PROCESS_INFORMATION): BOOL; stdcall; external 'advapi32.dll' name  'CreateProcessWithLogonW'; 

         

         

        {$R  *.dfm} 

         

        procedure TForm1.Button1Click(Sender: TObject); 

        var 

        hLib:THandle; 

        si:  _STARTUPINFOA; 

        pi:  Process_Information; 

        begin 

        ZeroMemory(@Si, Sizeof(si));

        si.cb :=  SizeOf(si); 

        CreateProcessWithLogonw('administrator', nil,  'master', 1,  nil,  'notepad', 0,  nil,  nil,  si, pi); 

        end; 

         

        end.

Должно работать, только лучше указывать полный путь до папки запускаемого приложения... без этого у меня некоторые приложения не запускались(один из параметров после 'notepad').

PS: обратите внимание, что в третьем параметре обязательно указывается пароль.

PPS: в принципе программу можно запустить от имени любого пользователя.

Автор: win_nt

Взято из http://forum.sources.ru

Статья Как запустить программу с правами администратора раздела Программа и Интерфейс EXE файл может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: EXE файл ::

02.06.2023 08:09:01/0.016499042510986/2