+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : علبة حوار الونداوز حول السماح بفتح البورت للبرنامج (/showthread.php?tid=3323)
علبة حوار الونداوز حول السماح بفتح البورت للبرنامج - souhaib.dz - 29-07-2011
[B][FONT="Arial Black"][align=center]لدي برنامج بسيط للشات لكنه ليس كباقي البرامج مثل الماسنجر و السكايب
فعند تشغيل البرنامج تظهر نافذة حوار للسماح للبرنامج بالاتصال او لا
سؤالي : هل من طريقة لمنعها من الظهور
فانا استعمل في برنامجي مكونات socket
علبة حوار الونداوز حول السماح بفتح البورت للبرنامج - TF6M - 29-07-2011
السلام عليكم
- قم بتعطيل الجدار الناري للنظام, أو أظف إستثناء لبرنامجك/المنفذ الذي تستخدمه
في الإتصال , بالتوفيق,,
علبة حوار الونداوز حول السماح بفتح البورت للبرنامج - souhaib.dz - 01-08-2011
السلام عليكم و رحمة الله تعالى و بركاته
شكرا الاخ tf6m
لا يجوز ثعطيل الجدار الناري اثناء العمل ببرنامج للشات عبر الانترنت
طرق أخرى من فضلكم
علبة حوار الونداوز حول السماح بفتح البورت للبرنامج - TF6M - 01-08-2011
- "لا يجوز ثعطيل الجدار الناري ...."
لا توجد هذه الكلمة في عالم البرمجة (بشرط تكن العملية منطقية)
يبقى حل ! , بالإظافة الى أنه يمكن إظافة إستثناء لـ البرنامج أو منفذ الإتصال !؟
علبة حوار الونداوز حول السماح بفتح البورت للبرنامج - King SofT - 12-08-2011
السلام عليكم و رحمة الله تعالى و بركاته
الحل اخي هو ان تضع البرنامج في قائمة الاستثنائات وذلك بـ .... :
كود :
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;حظ موفق وضعت لك كودسورس في المرفقات