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

السلام عليكم

كما نعلم أن وينداوز 7 حمايته قوية
و عند عن تعامل مع ملفات نظام أو رجيستري
يتطلب منا تشغيل البرنامج بصلاحية root (أمزح) أنا في وينداوز بصلاحية administrator

فهل من طريقة مبتكرة لتشغيل البرنامج بصلاحية مسؤول من دلفي

وعليكم السلام ورحمة الله
راجع:
http://www.delphi4arab.net/forum/showthr...p?tid=3498
أيضا جرب التشغيل باستخدام حساب:

PHP كود :
runas /user:Administrator "ProgramName" 

أو استخدم manifest، انظر:

كود :
https://forums.embarcadero.com/message.jspa?messageID=316595

بالتوفيق.

شكرا لك أخي على الرد
إن شاء الله سأبحث وفي الرد المقبل سأضع سورس
ليستفيد منه غيرنا

وفقا للمعلومات التي أفدتونا بيها
من هدا الموضوع
و http://www.delphi4arab.net/forum/showthr...p?tid=3498
وزيارة

كود :
https://forums.embarcadero.com

الحمد لله حصلت على ما كنت أبحث عنه
شكرا لكم جميعا السورس مرفق

كود :
RunMeAsAdmin(hWnd: HWND; filename: string; Parameters: string): Boolean;
 var
 sei: TShellExecuteInfo;
 begin
 ZeroMemory(@sei, SizeOf(sei));
 sei.cbSize := SizeOf(TShellExecuteInfo);
 sei.Wnd := hwnd;
 sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
 sei.lpVerb := PChar(‘runas’);
 sei.lpFile := PChar(Filename); // PAnsiChar;
 if parameters <> ” then
 sei.lpParameters := PChar(parameters); // PAnsiChar;
 sei.nShow := SW_SHOWNORMAL; //Integer;

Result := ShellExecuteEx(@sei);
 end;

كود :
http://www.exampledb.com/run-delphi-application-as-administrator-windows.htm

Agmcz

kachwahed

Agmcz

Agmcz

onexite