Создать процесс с правами админа -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.133.12.172]

Модераторы: jack128, Rouse_, Krid

Создать процесс с правами админа

s-mike

Сообщ. #1 , 17.04.05, 08:58

Unregistered

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').

Автор: win_nt

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0153 ] [ 16 queries used ] [ Generated: 3.05.24, 01:38 GMT ]