برنامج لا تنسى صلاتك النسخة الجديدة

[bobo]

السلام عليكم
بارك الله فيك onexite على هذه المجهودات الجبارة.
أود ان تنشر الكود سورس للبرنامج من فضلك خاصة كود سورس مواقيت الصلاة للشهر.
شكرا لك

[bobo]

رائع يا يا أخي
الإضافات التي قمت بها مفيدة جدا خاصة تحديد الموقع من Map.
نود أن تنشر الكود سورس يا onexite لكي يتسنا لنا التعلم.
بارك الله فيكم.

[seddik_xp]

السلام عليكم و رحمة الله و بركاته
كل الشكر للأخ onexite على البرنامج الرائع.

لكنه واجهتني مشكلة على الويندوز 7 .
عند تشغيل البرنامج لاول مرة كمسؤول ينم إضافته لبدء تشغيل النظام لكن عند إعادة تشغيل النظام ينطلق البرنامج بشكل عادي لكنه بسألك عن إضافة البرنامج لبدئ التشغيل مع انه كذلك .
المشكل يعود لكون البرنامج عند بدء التشغيل لا يشعل كمسؤول أي انه لا يمكنه قراءة قيمة مفتاح من الرجيستري :

كود :

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]

كون البرنامج لا يملك صلاحيلات المسؤول

لذلك و جب تغيير طريقة التحقق من وجود القيمة في الرجيستري

كود :

من OpenKey الي OpenKeyReadOnly

أو هناك حل أخر يمكنك من اضافة البرنامج لبدء التشغيل بدون صلاحيات المدير و هذا بتغيير المفتاح الي

كود :

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run] بدل [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]

في هذه الحالة سيتم اضافة البرنامج لبدئ التشغيل للمسخدم الحالي فقط.

[onexite]

لكنه واجهتني مشكلة على الويندوز 7 .
المشكل يعود لكون البرنامج عند بدء التشغيل لا يشعل كمسؤول أي انه لا يمكنه قراءة قيمة مفتاح من الرجيستري :[CODE][HKEY_LOCAL_MACHINE\SOFTWARE

شكرا على الملاحظة قمت بتغيير OpenKey الان جرب

[seddik_xp]

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

كود :

هل تريد اضافة البرنامج الى برامج بدأ التشغيل

لكن بقيت الرسالة التى تليها و التي تؤكد على ان مسار البرنامج تغير

كود :

تم اكتشاف ان مسار البرنامج تغير وهذا يؤثر على تشغيله مع بدأ التشغيل اذن هل تريد اضافته البرنامج الى برامج بدأ التشغيل ؟

لذلك يجب نفس التغيير لإجراءية التحقق التي تظهر الرسالة الثانية.

[onexite]

PHP كود :

Procedure SetRunAsAdminFlag(PathToExe: String);
Var
  Reg: TRegistry;
Begin
if ((GetOSInfo ='Windows 7 ')or (GetOSInfo ='Windows 8 ')or (GetOSInfo ='Windows Vista ')
or  (GetOSInfo ='Windows Server 2008 ')or (GetOSInfo ='Windows Server 2008 R2 ')
or  (GetOSInfo ='Windows Server 2012 '))
then begin
  Reg := TRegistry.Create( KEY_WRITE );
  with Reg do
  try
    try
      RootKey := HKEY_CURRENT_USER;
      if OpenKey('Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers', True) then
       WriteString( PathToExe, 'RUNASADMIN' );
    finally
      CloseKey;
      Free;
    end;
  except
    Exit;
  end;
end;

End; 


PHP كود :

function regchanged(sProgTitle,sCmdLine:string): Boolean;
begin
 with TRegIniFile.Create(KEY_READ OR KEY_WOW64_64KEY) do begin
 try
  RootKey := HKEY_LOCAL_MACHINE;
  IF OpenKeyReadOnly('\Software\Microsoft\Windows\CurrentVersion\Run') THEN
       if ReadString('Software\Microsoft\Windows\CurrentVersion\Run', sProgTitle, '')<>bWin(sCmdLine)+' /hide' then
 result:=True else Result:=False;
 finally
   Free;
 end;

 end;
end; 


[onexite]

استطيع تشغيله كمسؤوول

PHP كود :

<security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="requireAdministrator"
          uiAccess="false"/>
        </requestedPrivileges>
    </security> 


لاكن لن ينطلق مع تشغيل الحاسب في حالة كان مستوى الامان مرتفع

[seddik_xp]

الان قمت بتحميل اخر اصدار من الموقع مباشرة تعمل بشكل جيد حتى انها لا تحتاح لصلاحية المسؤول لتضاف لبدء التشغيل .

بقيت نقطة بسيطة لاحضتها الوم صباحا و حي ان البرنامج يؤذن لتويت شروق الشمس
الرجاء التعديل الى تنبيه فقط

ارى بعض النقائص ساوردها في ردود اخرى حى يكتمل العمل

شكرا مرة اخرى على العمل الرائع

[djsalam]

شكرا جزيلا على البرنامج
باي لغة برمجة تم,,,

[onexite]

باي لغة برمجة تم,,,

طبعا بالدلفي اخي العزيز