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

السلام عليكم

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

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

مثال :

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

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

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

sa7er100

King SofT

sa7er100