كيف أجعل لبرنآمجي كلمة سر ؟

[professor DeXTeR]

[COLOR="DarkRed"]يمكنك عمل ذلك بكل بسآطه ياصالح

قم بفتح السورس اللذي أرفقه أخونا أمكروس

سيظهر لك فورم 1

قم بالذهاب الى التبويب Events بجآنب تبويب الخصائص

انزل الى آخر شئ واختر onFormShow

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

كود :

c:='000000';

قم بتغير الأصفار الى الرقم اللذي تريده

والسلام مسك الختآم[/COLOR]

[SALAH]

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

[مهدي]

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

الموضوع التالي يحتوى مثال للموضوع

http://www.delphi4arab.net/forum/showthread.php?tid=374

[raf2009]

PHP كود :

begin
  Application.Initialize;
  FormUtilisateur:=TFormUtilisateur.Create(nil) ;
  FormUtilisateur.ShowModal;
  IF  not FormUtilisateur.Pass THEN
  BEGIN
     FormUtilisateur.Release;
     application.Terminate; 
  END
  ELSE
  BEGIN
     FormUtilisateur.Release;
 //----------------------------------
     FormSkin:=  TFormSkin.Create(nil);
     FormSkin.Show;
     FormSkin.Update;
     FormSkin.free;
     Application.Run;
 End; //  //-------------Utilisateur---------------------
 
end.