Тема: Реестр
Показать сообщение отдельно
  #2  
Старый 26.05.2010, 16:44
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

PHP код:
uses
  Registry
;
...
var
  
registryTRegistry;
...
  
registry:=TRegistry.Create;
  try
    
registry.RootKey:=HKEY_CLASSES_ROOT;
    
registry.OpenKey('\exefile\shell\MyFile\', True);
    registry.WriteString('', '
Открыть в MyFile');
    registry.OpenKey('
\exefile\shell\MyFile\command', True);
    registry.WriteString('', Application.ExeName+' "%1"');
  finally
    registry.Free;
  end; 
при выборе в проводнике контекстного меню "Открыть в MyFile" программе для запуска в качестве параметра будет передано имя файла
Ответить с цитированием