delphi4arab منتديات دلفي للعرب

السلام عليكم

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

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

PHP كود :
uses ShellApi; 
...
...
 ShellExecute(Handle, 'RunAs', 'calc.exe', nil, nil, SW_SHOWNORMAL); 

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

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

تفضل :

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; 

Ninja C0d3r

SMP3

Ninja C0d3r

SMP3