[Zorkov Igor]

Сообщение от Aniskin

Весь этот код уже выполняется библиотекой при использовании следующего кода:

Код:

class function TContextMenuExtension1.GetDescription: UnicodeString;
begin
  Result := 'File Unlocker';
end;

procedure TContextMenuExtension1.FillProgIDList(AList: TStrings);
begin
  AList.Add('*');
  AList.Add('folder');
  AList.Add('lnkfile');
end;

Но при этом надо вызывать regsvr32.exe так?

Мне проще из своей программы в реестр записать