تشغيل برنامج كمسؤول

[Ninja C0d3r]

السلام عليكم

ما هو كود جعل البرنامج يشتغل كمسؤول يعني يظهر رسالة موافقة للمستخدم لتشغيله كمسؤول
و انا هنا لا اعني طريقة manifest بل كود برمجي :p

[SMP3]

و عليكم السلام :
يمكن ذلك باستخدام الدالة ShellExecute مع تمرير RunAs لل Operation .
مثال بسيط لتشغيل الآلة الحاسبة كمسؤول:

PHP كود :

uses ShellApi; 
...
...
 ShellExecute(Handle, 'RunAs', 'calc.exe', nil, nil, SW_SHOWNORMAL); 


[Ninja C0d3r]

كيف اجعل البرنامج الذي به هذا الكود هو يشغل نفسه

[SMP3]

كيف اجعل البرنامج الذي به هذا الكود هو يشغل نفسه

تفضل :

PHP كود :

procedure TForm3.FormCreate(Sender: TObject);
begin
  if ParamStr(1) <> 'RunAsAdmin' then
    begin
      Application.ShowMainForm := False;
      ShellExecute(0, 'RunAs', PChar(Application.ExeName), 'RunAsAdmin', nil,
        SW_SHOWNORMAL);
      Application.Terminate;
    end;
end;