VPF::Ярлыки ехе в Мой компьютер и Панель управления

alexpotemkin

Дата 23.7.2009, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.11.2006

Репутация: нет
Всего: нет

Поиском и здесь кидал и гуглем, но вижу два варианта: либо я неправильно интерпритирую примеры или они в чем то неверны
если кратко то задача посадить ярлыки ехе в панель управления и в мой компьютер, что бы работало и xp и в vista
пробовал делать так, ярліки создаются, но с них запускать ехе не получается, не отрабатівают как следует
Укажите где ошибся, закидайте линками где посмотреть-почитать или своими примерами заделитесь

StrID- это giud получаемый в рантайме с использованием CoCreateGuid

MyComputer

Код


  with TRegistry.Create do
    try
      RootKey := HKEY_CLASSES_ROOT;
      if OpenKey('CLSID\' + StrID, True) then begin
        WriteString('', Application.ExeName);
      end;
      if OpenKey('CLSID\' + StrID + '\DefaultIcon', True) then WriteString('', Application.ExeName + ',0');
      if OpenKey('CLSID\' + StrID + '\InProcServer32', True) then WriteString('ThreadingModel', 'Apartment');
      if OpenKey('CLSID\' + StrID + '\Shell\Open\Command', True) then WriteString('', Application.ExeName);

      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\' + StrID, True) then
        WriteString('', Application.ExeName);
    finally
      Free;
    end;

ControlPanel

Код


  with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\' + StrID, True) then
        WriteString('', ExtractFileName(Application.ExeName));

      RootKey := HKEY_CLASSES_ROOT;
      if OpenKey('CLSID\' + StrID, True) then begin
        WriteString('', 'MySystemTool');
        WriteString('ApplicationName', 'MySystemTool');
        WriteString('InfoTip', 'MySystemTool');
      end;
      if OpenKey('CLSID\' + StrID + '\DefaultIcon', True) then WriteString('', Application.ExeName + ',0');
      if OpenKey('CLSID\' + StrID + '\InProcServer32', True) then WriteString('ThreadingModel', 'Apartment');
      if OpenKey('CLSID\' + StrID + '\Shell\Open\Command', True) then WriteString('', Application.ExeName);
    finally
      Free;
    end;

Заранее благодарствую.

alexpotemkin

Дата 23.7.2009, 14:36 (ссылка)

(голосов:2)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.11.2006

Репутация: нет
Всего: нет

первая ошибка найдена, в механизме создания ключей
досадно допускать такое smile

alexpotemkin

Дата 24.7.2009, 08:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.11.2006

Репутация: нет
Всего: нет

Заборол ошибки, все создается.
Единственный момент в Моем компьютере созданный ярлык имеет "комментарий" не знаю как правильно это назвать
визуально выглядит это так что сверху моё имя ярлыка сразу под ним тусклым таким цветом (в моих настройках это был серый цвет) надпись System Folder. Я думал что это исправит значение InfoTip, оказалось что нет, не исправит.
Кто знает как сие забороть поделитесь пож-ста рецептом.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »