[B][FONT="Arial Black"][align=center]لدي برنامج بسيط للشات لكنه ليس كباقي البرامج مثل الماسنجر و السكايب
فعند تشغيل البرنامج تظهر نافذة حوار للسماح للبرنامج بالاتصال او لا
سؤالي : هل من طريقة لمنعها من الظهور
فانا استعمل في برنامجي مكونات socket
السلام عليكم
- قم بتعطيل الجدار الناري للنظام, أو أظف إستثناء لبرنامجك/المنفذ الذي تستخدمه
في الإتصال , بالتوفيق,,
السلام عليكم و رحمة الله تعالى و بركاته
شكرا الاخ tf6m
لا يجوز ثعطيل الجدار الناري اثناء العمل ببرنامج للشات عبر الانترنت
طرق أخرى من فضلكم
- "لا يجوز ثعطيل الجدار الناري ...."
لا توجد هذه الكلمة في عالم البرمجة (بشرط تكن العملية منطقية)
يبقى حل ! , بالإظافة الى أنه يمكن إظافة إستثناء لـ البرنامج أو منفذ الإتصال !؟
السلام عليكم و رحمة الله تعالى و بركاته
الحل اخي هو ان تضع البرنامج في قائمة الاستثنائات وذلك بـ .... :
كود :
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;
حظ موفق وضعت لك كودسورس في المرفقات