كيف يمكنك إنشاء الخاصة بك لقب (URL بروتوكول) على أنظمة ويندوز ؟

StackOverflow https://stackoverflow.com/questions/4638

  •  08-06-2019
  •  | 
  •  

سؤال

كيف يمكنك إنشاء الخاص بك مخصص لقب (أو URL بروتوكول) على أنظمة ويندوز ؟

أمثلة:

  • http:
  • mailto:
  • الخدمة:

نصائح أخرى

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

procedure InstallIntoRegistry;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    if Reg.OpenKey('moniker', True) then
    begin
      Reg.WriteString('', 'URL:Name of moniker');
      Reg.WriteString('URL Protocol', '');
      Reg.WriteString('Source Filter', '{E436EBB6-524F-11CE-9F53-0020AF0BA770}');
      Reg.WriteInteger('EditFlags', 2);

      if Reg.OpenKey('shell\open\command', True) then
      begin
        Reg.WriteString('', '"' + ParamStr(0) + '" "%1"');
      end;
    end else begin
      MessageBox(0, 'You do not have the necessary access rights to complete this installation!' + Chr(13) +
        'Please make sure you are logged in with a user account with administrative rights!', 'Access denied', 0);
      Exit;
    end;
  finally
    FreeAndNil(Reg);
  end;

  MessageBox(0, 'Application WebStart has been installed successfully!', 'Installed', 0);
end;

داخل OLE من كريغ Brockschmidt ربما أفضل تغطية على الألقاب.إذا كنت ترغب في حفر أعمق قليلا في هذا الموضوع أنصح الحصول على هذا الكتاب.وهو أيضا يرد على MSDN القرص الذي جاء مع مقابل 6.0, في حال كنت لا تزال لديها ذلك.

مرخصة بموجب: CC-BY-SA مع الإسناد
لا تنتمي إلى StackOverflow
scroll top