delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله
لتطبيق هذا الكود من خلال الدلفي على الويندوز سفن واضافته في الرجيستر

كود :
Regedit4

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
MigrateProxy=dword:00000001
ProxyEnable=dword:00000001
ProxyHttp1.1=dword:00000000
ProxyServer="http://127.0.0.1:80"
ProxyOverride="<local>"

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

لكن هل يوجد اختلاف بين الرجستري في الويندوز 7 و الويندوز xp

وعليكم السلام ورحمة الله
الاختلاف ليس في Registry وإنما على الأرجح في الصلاحيات
قد يتطلب ذلك تشيغل برنامجك بصلاحيات مدير، جرب...
بالتوفيق.

جربت ولكن لم ينفع

ايضا قمت بايقاف الحماية ولم ينفع ذالك ايضا

اعتقد ان هناك اختلاف في التعامل او في الرجستري !!

لا اعلم مالمشكلة !

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

ماهو النظام المستخدم 32/64bits ؟
ما اصدار دلفي ؟ ضع الكود الذي استعملته

السلام عليكم
على حسب ما اعطاني قوقل عن مفتاح Internet Settings
النتيجة تكون قريبه من هده

PHP كود :
procedure Proxy(Srever: string);
var
  Reg: TRegistry;
begin
 Reg := TRegistry.Create;
  try
   with reg do
   begin
   RootKey := HKEY_CURRENT_USER;
   if KeyExists('Software\Microsoft\Windows\CurrentVersion\Internet Settings') then
   OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', False);
   if valueexists('MigrateProxy') then
   WriteBool('MigrateProxy',False);//True
   if valueexists('ProxyEnable') then
   WriteBool('ProxyEnable',False);//True
   if valueexists('ProxyHttp1.1') then
   WriteBool('MigrateProxy',True);//False
   if valueexists('ProxyServer') then
   WriteString('ProxyServer', Server);
   CloseKey;
   end;
  finally
 end;
end; 

ممكن تزيد تعطينا معلومات اكثر عن طبيعة القيم bool string integer
معا اني لم أتعامل مسبقا معا هدا المفتاح
أما عن رجيستري فنفس الشيء xp, vista, win7
فقط في vista, win7 شغل البرنامج administrator

مبرمج هاوي

kachwahed

مبرمج هاوي

محمد عبد العزيز

Agmcz