На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Кнопка программы в IE
      ExpandedWrap disabled
        procedure CreateExplorerButton(Path: string);
        const
          Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
        var
          Reg: TRegistry;
          Path1: string;
          Merge: string;
        begin
          Path := 'c:\your_program_path';
          Reg := TRegistry.Create;
          try
            with Reg do
            begin
              RootKey := HKEY_LOCAL_MACHINE;
              Path1 := 'Software\Microsoft\Internet Explorer\Extensions';
              Merge := Path1 + Tagit;
              OpenKey(Merge, True);
              WriteString('ButtonText', 'ButtonText');
              WriteString('MenuText', 'Tools Menu Item');
              WriteString('MenuStatusBar', 'Run Script');
              WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
              WriteString('Default Visible', 'Yes');
              WriteString('Exec', Path + '\ProgramName.exe');
              WriteString('HotIcon', ',4');
              WriteString('Icon', ',4');
            end
          finally
            Reg.CloseKey;
            Reg.Free;
          end;
        end;
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0153 ]   [ 16 queries used ]   [ Generated: 29.03.24, 08:46 GMT ]