+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التعامل مع ريجستر ويندوز7 بالدلفي (/showthread.php?tid=3130)
التعامل مع ريجستر ويندوز7 بالدلفي - مبرمج هاوي - 29-05-2011
السلام عليكم ورحمة الله
لتطبيق هذا الكود من خلال الدلفي على الويندوز سفن واضافته في الرجيستر
كود :
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
التعامل مع ريجستر ويندوز7 بالدلفي - kachwahed - 29-05-2011
وعليكم السلام ورحمة الله
الاختلاف ليس في Registry وإنما على الأرجح في الصلاحيات
قد يتطلب ذلك تشيغل برنامجك بصلاحيات مدير، جرب...
بالتوفيق.
التعامل مع ريجستر ويندوز7 بالدلفي - مبرمج هاوي - 29-05-2011
جربت ولكن لم ينفع
ايضا قمت بايقاف الحماية ولم ينفع ذالك ايضا
اعتقد ان هناك اختلاف في التعامل او في الرجستري !!
لا اعلم مالمشكلة !
التعامل مع ريجستر ويندوز7 بالدلفي - محمد عبد العزيز - 29-05-2011
السلام عليكم ورحمة الله
ماهو النظام المستخدم 32/64bits ؟
ما اصدار دلفي ؟ ضع الكود الذي استعملته
التعامل مع ريجستر ويندوز7 بالدلفي - Agmcz - 01-06-2011
السلام عليكم
على حسب ما اعطاني قوقل عن مفتاح 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;
معا اني لم أتعامل مسبقا معا هدا المفتاح
أما عن رجيستري فنفس الشيء xp, vista, win7
فقط في vista, win7 شغل البرنامج administrator