+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تشغيل برنامج كمسؤول (/showthread.php?tid=5698)
تشغيل برنامج كمسؤول - Ninja C0d3r - 06-11-2013
السلام عليكم
ما هو كود جعل البرنامج يشتغل كمسؤول يعني يظهر رسالة موافقة للمستخدم لتشغيله كمسؤول
و انا هنا لا اعني طريقة manifest بل كود برمجي :p
تشغيل برنامج كمسؤول - SMP3 - 06-11-2013
و عليكم السلام :
يمكن ذلك باستخدام الدالة ShellExecute مع تمرير RunAs لل Operation .
مثال بسيط لتشغيل الآلة الحاسبة كمسؤول:
PHP كود :
uses ShellApi;
...
...
ShellExecute(Handle, 'RunAs', 'calc.exe', nil, nil, SW_SHOWNORMAL);
تشغيل برنامج كمسؤول - Ninja C0d3r - 06-11-2013
كيف اجعل البرنامج الذي به هذا الكود هو يشغل نفسه
تشغيل برنامج كمسؤول - SMP3 - 07-11-2013
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;