بــــرنامج منع الدخول إلى المواقـــع الثقافية مع الڪود سورس

تاريخ التسجيل : 31/12/1969

إنَّ الحَمْدَ لِلَّهِ نَحْمَدُهُ وَنَسْتَعِيُنُهُ وَنَسْتَغْفِرُهُ وَنَسْتَهْدِيهِ وَنَعُوذَ بِاللهِ مِن شُرُورِ أََنفُسِنَا وَسَيئَاتِ أَعْمَاِلَنَا،

مَن يَهْدهِ اللهُُ فَلا مُضلَّ لَه ، وَمَن يُضْلِل فَلا هَادِي لَه، وَأَشْهَدُ أَنَّ لاَ إِلهَ إلا اللهُ وَحدَهُ لاَ شَريكَ لَهُ،
وَأَشْهدُ أنَّ مُحَمَّداً عَبدُهُ وَرَسُولُهُ
امابعد
امنع المواقع الاباحية عن
اطفالك بهذا البرنامج
الرائع
خصائص البرنامج
اضافة وحذف المواقع
ايجاد مسار الهوست حيثما يوجد الويندلوز
صور البرنامج

الكود سورس
زر الحذف
procedure TForm1.Delete1Click(Sender: TObject);
var n:Integer;
begin
n:=lst1.ItemIndex;
lst1.DeleteSelected;
lst2.Items.Delete(19+n);
end;
زر الاضافة
تستطيعون تعديله اكثر

var x:string;
begin
x:=InputBox('Add Site','Add site here : ','www.exemple.com');
if ((x='' )or( x='www.exemple.com' ))then ShowMessage('Type Valid Address ') else begin
lst1.Items.Add(x);
lst2.Items.Add('127.0.0.1 '+x); end;
زر الحفظ
lst2.Items.SaveToFile(WindowsDirectory+'System32\Drivers\etc\hosts');
وهذا اهم شيء
var i:Integer;
t:TStringList;
h:string;
begin
t:=TStringList.Create;
t.LoadFromFile(WindowsDirectory+'System32\Drivers\etc\hosts');
lst2.Items.LoadFromFile(WindowsDirectory+'system32\drivers\etc\hosts');
for i:=19 to t.Count-1 do begin
h:=t.Strings[i];
lst1.Items.Add(Copy((h),11,Length(h))) ;
ضافة زر جديد اديت او تعديل

var n:Integer;
begin
n:=lst1.ItemIndex;
lst1.Items.Strings[n]:=InputBox('Edit Site','Edit site from here : ',lst1.Items.Strings[n]);
lst2.Items.Strings[n+19]:= '127.0.0.1 '+lst1.Items.Strings[n];
end;

التنزيل من هنا
http://www.mediafire.com/?ej1xlij99919sgq
وفي الختام أسأل الله العون والسداد والتوفيق
، وأن يأخذ بأيدينا إلى تحقيق الأهداف الموجودة
من هذه المواضيع، إنه نعم المولى ونعم النصير، وهو الهادي الى سواء السبيل