الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

حول عمل عداد في الرجستري

بدأه saiddsa3980 في 13 أغسطس 2008 · 14 رد · 1,428 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاتة

إخواني أريد أن أعمل عداد في الرجستري لكي يعمل البرنامج عدة مرات ثم يتوقف عن العمل .

بارك الله فيكم .

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#2

السلام عليكم

اقتباس
أريد أن أعمل عداد في الرجستري لكي يعمل البرنامج عدة مرات ثم يتوقف عن العمل

نعم لكن اين المشكلة ? :mellow:

حاول على الاقل و تجدنا في الخدمه

#3

شكراً أخي عبد العالي إليك المحاولة في المرفقات

RegCount.rar

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#4

السلام عليكم

أخي الكريم المثال الموجود يقوم بعمل عداد لحساب الفرق بين يوم التسجيل و اليوم الحالي فإن تجاوز الـ 15 يوم يتوقف البرنامج

أدعك مع الكود

لا تعتمد الطريقة المستخدمة فهي من أسهل طرق الفك

regtest.rar

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#5

بارك الله فيك أخي rober ولكن إن كانت الطريقة لايعتمد عليها فأي الطرق أعتمد إذا

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#6

أخي لقد إطلعت على السورس ولكن ليس هذا المطلوب ، المطلوب هو أريد أن أعمل عداد للبرنامج يعمل بعدد مرات التشغيل للبرنامج مثلاً يعمل البرنامج 20 مرة ثم يتوقف عن العمل .

جزاكم الله عنا خيراً .

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#7

هذا ما تريد

Counter.rar

بالتوفيق

Comming Soon

#8

بارك الله فيك اخي swift لكن الكود سورس الذي أعطيتي إياه لايتنفذ به مشكلة ياريت تشوفه من جديد.

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#9
اقتباس
لكن الكود سورس الذي أعطيتي إياه لايتنفذ به مشكلة ياريت تشوفه من جديد

غريب هذا .. هو شغال تمام معايا دة اولاً .. ولو فيه عيب كيف اشوفة وأنا ميش معايا رسالة الخطأ ؟

ياريت ترفق الخطأ

Comming Soon

#10

أخي swift إليك محتوى رسالة الخطاء الظاهرة عندي " تعذرت قراءة مفتاح تسجيل التكوين . "

بارك الله فيك على المساعدة المستمرة .

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#11

"تعذرت قراءة مفتاح تسجيل التكوين . "

حسناً انت بحاجة الى اضافة مفتاح تسجيل داخل الريسجترى قم بإضافة هذا الكود

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

لأن هذا الكود بينشأ المفتاح وبيعطى القيمة صفر للمفتاح

  1. SetRegistryData(HKEY_LOCAL_MACHINE,
  2.   'SoftwareMicrosoftWindowsCurrentVersion',
  3.   'RegisteredOrganization', rdString, 0);
  4.  

بالتوفيق

      
      

      
Comming Soon

    

  

    
    

      
#12
        
        

      
أخي swift لقد وضعت الكود هكذا 
procedure TForm1.FormCreate(Sender: TObject);
var
Hi : integer;
begin

SetRegistryData(HKEY_LOCAL_MACHINE,
'\Software\Microsoft\Windows\CurrentVersion',
'RegisteredOrganization', rdString, 0);

Hi := GetRegistryData(HKEY_LOCAL_MACHINE,'\Software\Microsoft\Windows\CurrentVersion','RegisteredOrganization');
SetRegistryData(HKEY_LOCAL_MACHINE,
'\Software\Microsoft\Windows\CurrentVersion',
'RegisteredOrganization', rdString, Hi+1);
Label2.Caption := GetRegistryData(HKEY_LOCAL_MACHINE,'\Software\Microsoft\Windows\CurrentVersion','RegisteredOrganization');
end;

end.
لأظن أني قد وضعته في السطر الصحيح أرجو منك أن تدلني في أي سطر أضعه
بارك الله فيك أخي .

      
تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 27 أغسطس 2008 في 10:10

      

      
قال الحسن البصري : يا إبن آدم إنما أنت أيام   إذا ذهب يومك ذهب بعضك

    

  

    
    

      
#13
        
        

      
حسناً هذا تمام
لو قمت بمسح هذا الكود
SetRegistryData(HKEY_LOCAL_MACHINE,
'\Software\Microsoft\Windows\CurrentVersion',
'RegisteredOrganization', rdString, 0);
من برنامجك الان سوف يعمل بطريقة سليمة .. فهمتنى ؟
يعنى الكود ده فائدتة مرة واحد فقط أنة يضيف مفتاح التسجيل فى Reg
بالتوفيق

      
      

      
Comming Soon

    

  

    
    

      
#14
        
        

      
أعذرني أخي لم أفهمك جيداً ياريت تعطينا الكود كامل بعد تعديلك
رمضان مبارك علينا جميعاً

      
      

      
قال الحسن البصري : يا إبن آدم إنما أنت أيام   إذا ذهب يومك ذهب بعضك

    

  

    
    

      
#15
        
        

      
قم بحذف هذا الكود واخبرنى بالنتيجة
SetRegistryData(HKEY_LOCAL_MACHINE,
'\Software\Microsoft\Windows\CurrentVersion',
'RegisteredOrganization', rdString, 0);

      
      

      
Comming Soon

    

  

    
    
    
 مواضيع مشابهة