在windows右键菜单中加上关联

最新推荐文章于 2024-10-11 00:22:07 发布

原创最新推荐文章于 2024-10-11 00:22:07 发布 · 1.4k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#windows #string #file

Delphi 技术专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一种在Windows注册表中为特定文件扩展名注册和注销自定义命令的方法。通过Delphi代码实现，该方法可以创建关联菜单项并指定打开文件时运行的目标程序路径。

uses Registry;

function RegisterFileTypeCommand(fileExtension, menuItemText, target: string) : boolean;
var
  reg: TRegistry;
  fileType: string;
begin
  result := false;
  reg := TRegistry.Create;
  with reg do
  try
    RootKey := HKEY_CLASSES_ROOT;
    if OpenKey('.' + fileExtension, True) then
    begin
      fileType := ReadString('') ;
      if fileType = '' then
      begin
        fileType := fileExtension + 'file';
        WriteString('', fileType) ;
      end;
      CloseKey;
      if OpenKey(fileType + '/shell/' + menuItemText + '/command', True) then
      begin
        WriteString('', target + ' "%1"') ;
        CloseKey;
        result := true;
      end;
    end;
  finally
    Free;
  end;
end;

function UnRegisterFileTypeCommand(fileExtension, menuItemText: string) : boolean;
var
  reg: TRegistry;
  fileType: string;
begin
  result := false;
  reg := TRegistry.Create;
  with reg do
  try
    RootKey := HKEY_CLASSES_ROOT;
    if OpenKey('.' + fileExtension, True) then
    begin
      fileType := ReadString('') ;
      CloseKey;
    end;
    if OpenKey(fileType + '/shell', True) then
    begin
      DeleteKey(menuItemText) ;
      CloseKey;
      result := true;
    end;
  finally
    Free;
  end;
end;