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

الصفحات : 1 2 3 4

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

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

السلام عليكم و رحمة الله و بركاته
كل الشكر للأخ 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]

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

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

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

شكرا أخ 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; 

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

PHP كود :
<security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="requireAdministrator"
          uiAccess="false"/>
        </requestedPrivileges>
    </security> 

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

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

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

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

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

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

djsalam كتب :باي لغة برمجة تم,,,

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

الصفحات : 1 2 3 4

bobo

bobo

seddik_xp

onexite

seddik_xp

onexite

onexite

seddik_xp

djsalam

onexite