علبة حوار الونداوز حول السماح بفتح البورت للبرنامج

[souhaib.dz]

[B][FONT="Arial Black"][align=center]لدي برنامج بسيط للشات لكنه ليس كباقي البرامج مثل الماسنجر و السكايب
فعند تشغيل البرنامج تظهر نافذة حوار للسماح للبرنامج بالاتصال او لا
سؤالي : هل من طريقة لمنعها من الظهور
فانا استعمل في برنامجي مكونات socket

[TF6M]

السلام عليكم
- قم بتعطيل الجدار الناري للنظام, أو أظف إستثناء لبرنامجك/المنفذ الذي تستخدمه
في الإتصال , بالتوفيق,,

[souhaib.dz]

السلام عليكم و رحمة الله تعالى و بركاته
شكرا الاخ tf6m
لا يجوز ثعطيل الجدار الناري اثناء العمل ببرنامج للشات عبر الانترنت

طرق أخرى من فضلكم

[TF6M]

- "لا يجوز ثعطيل الجدار الناري ...."
لا توجد هذه الكلمة في عالم البرمجة (بشرط تكن العملية منطقية)
يبقى حل ! , بالإظافة الى أنه يمكن إظافة إستثناء لـ البرنامج أو منفذ الإتصال !؟

[King SofT]

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

الحل اخي هو ان تضع البرنامج في قائمة الاستثنائات وذلك بـ .... :

كود :

procedure TForm1.AjouterClick(Sender: TObject); var Reg:Tregistry; path:string; begin path := ExtractFilePath(Application.exename); Reg:=TRegistry.create; Reg.RootKey:=HKEY_LOCAL_MACHINE; Reg.OpenKey('SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List',false); Reg.WriteString(Path+'Project1.exe',Path+'Project1.exe:*:enabled:Aide en ligne'); reg.CloseKey; Reg.free; end;

حظ موفق وضعت لك كودسورس في المرفقات