+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الكتابة والقراءة بالرجستري مثل url (/showthread.php?tid=5639)
الكتابة والقراءة بالرجستري مثل url - sa7er100 - 14-10-2013
السلام عليكم
هذا الكود لتسجيل url بالرجستري
اي عند كتابة مثلا trs: بالمتصفح يقوم بتشغيل البرنامج المعين
كود :
procedure RegisterProtocol(const Name, Describtion, ExecuteStr: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey(Name, True);
try
reg.Writestring('', 'URL:' + Name +' (' + Describtion + ')');
reg.WriteInteger('EditFlags', 2);
reg.WriteString('Source Filter', '');
reg.WriteString('URL Protocol', '');
reg.OpenKey('shell', True);
reg.OpenKey('open', True);
reg.OpenKey('command', True);
reg.Writestring('', ExecuteStr);
finally
reg.CloseKey;
end;
finally
reg.Free;
end;
end;التنفيذ
كود :
var
Name, Describtion, Executestr: string;
begin
Name := 'trs';
Describtion := 'test';
ExecuteStr := 'C:\test.exe';
RegisterProtocol(Name, Describtion, ExecuteStr);ما اريــــده هو كيف يمكنني قراءة ما كتبته ب url
على سبيل المثال
milto وعنوان البريد يقوم بتشغيل برنامج اتولوك مع عنوان البريد ضمن البرنامج
اي انا
اريـــــــد قراءة ما كتبته ب عنوان المتصفح
trs:4333 يعمل البرنامج لكن كيــف يمكنني قرأءة رقم 4333 من البرانامج
الكتابة والقراءة بالرجستري مثل url - King SofT - 14-10-2013
وعليكم السلام ورحمة الله
مثال :
كود :
Reg:=TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('trs:', True);
Caption:=Reg.ReadString('');
Reg.Free;الكتابة والقراءة بالرجستري مثل url - sa7er100 - 14-10-2013
عند القراءة يظهر tes: فقط ولايظهر الاضافة
trs://4343 لا يظهر الرقم