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

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

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

وهو يهتم بتسجبل تاريخ شجرة العائلة وتوثيق علاقات النسب.

كود :
http://www.ansab.ca/img/ansab_trial_main_50.jpg

موقع البرنامج: http://www.ansab.ca
يمكن تحميل البرنامج من الموقع

برنامج غريب عجيب Big Grin

بعد تجربة بسيطة وجدت انه برنامج عملي يخلوا من الاخطاء
وهذه شجرة العائلة لقبيلتي Big Grin

مرحبا onexite حتى أنا مستغرب مثلك!!

إذا كانت لديك بيانات أخرى تخص هذه الشجرة، هل يمكنك اكمال باقي الفروع؟

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

رمضان مبارك أهله الله علينا و عليكم بالخير

برنامج رائع ... إن شاء الله ان يعتمد في توثيق أنساب العرب مستقبلا ... بالتوفيق

ملاحظة : - قاعدة البيانات لايوجد بها كلمة مرور ... Rolleyes

- يوجد زرا غلق في نافذة اساسيات الادخال .

كود :
http://store1.up-00.com/2015-06/1434570145171.png

هذا الذي استطعت ملاحظته Big Grin

:p

ممكن سؤال : كيف استطيع ان اضع لاحقة خاصة ببرنامجي ؟ و استعمال ايقونة خاصة بها ؟ .. كما في برنامجك

انا لدي فكرة انها في قيم الريجيستري لكن لا اعرف كيف ... اشكرك

إقتباس :ملاحظة : - قاعدة البيانات لايوجد بها كلمة مرور ...

هل كلمة المرور ضرورية؟ في النسخ القادمة ربما تكون كخيار للمستخدم

إقتباس :يوجد زرا غلق في نافذة اساسيات الادخال .

أشكرك على التنبيه وجاري الاستدراك

إقتباس :ممكن سؤال : كيف استطيع ان اضع لاحقة خاصة ببرنامجي ؟ و استعمال ايقونة خاصة بها ؟ .. كما في برنامجك

سأبحث عنها في البرنامج وأنسخها في رد لاحق إنشاء الله

شكرا ابراهيم

إقتباس :ممكن سؤال : كيف استطيع ان اضع لاحقة خاصة ببرنامجي ؟ و استعمال ايقونة خاصة بها ؟ .. كما في برنامجك

كود :
uses
  System.Classes, Winapi.Windows, SysUtils, Registry, ShlObj;

procedure Reg_RegisterFileType(sExt, sProgId, sDescription, sExeName: string;
   IcoIndex: integer; sIconPath:string; DoUpdate: boolean = false);
var
   Reg: TRegistry;
   sDefProgId: string;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;

    Reg.OpenKey(sExt, True);
    sDefProgId := Reg.ReadString('');
    Reg.WriteString('', sProgId);
    Reg.CloseKey;

    Reg.OpenKey(sExt + '\' + 'OpenWithProgIDs', True);

    Reg.WriteString('', sProgId);  // default
    Reg.WriteString(sDefProgId, '');
    Reg.WriteString(sProgId, '');

    Reg.CloseKey;

    Reg.OpenKey(sProgId, True);
    Reg.WriteString('', sDescription);
    Reg.CloseKey;

    Reg.OpenKey(sProgId + '\DefaultIcon', True);
    if Trim(sIconPath) = '' then
      Reg.WriteString('', sExeName + ',' + IntToStr(IcoIndex))
    else
      Reg.WriteString('', sIconPath);
    Reg.CloseKey;

    Reg.OpenKey(sProgId + '\Shell\Open', True);
    Reg.WriteString('', '&Open');
    Reg.CloseKey;

    Reg.OpenKey(sProgId + '\Shell\Open\Command', True);
    Reg.WriteString('', '"' + sExeName + '" "%1"');
    Reg.CloseKey;

    if DoUpdate then SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
  finally
    Reg.Free;
  end;
end;

وهذه تعليمة الاستدعاء

كود :
Reg_RegisterFileType('.nsb', 'Ansab.nsb', 'Nidam Ansab Data File',
                                       Application.ExeName, 0, '', true);

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

شكرا جزيلا استاذ shagrouni ... على الكود -الله يحفظك-

إقتباس :هل كلمة المرور ضرورية؟

هي ليست ضرورية . فقط لمنع المتطفلين من أمثالي :p

شكرا على البرنامج الرائع ... و شكرا على اجابتك لي ... و رمضان كريم

<p>شكراُ لك</p><p>ممكن اسم الاداة التي تظهر شجرة العائلة</p>

shagrouni

onexite

shagrouni

ibrahimkira

shagrouni

shagrouni

ibrahimkira

محمد الدرة