الكتابة والقراءة بالرجستري مثل url

[sa7er100]

السلام عليكم

هذا الكود لتسجيل 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 من البرانامج

[King SofT]

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

مثال :

كود :

Reg:=TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; Reg.OpenKey('trs:', True); Caption:=Reg.ReadString(''); Reg.Free;

[sa7er100]

عند القراءة يظهر tes: فقط ولايظهر الاضافة

trs://4343 لا يظهر الرقم