Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Ярлыки ехе в Мой компьютер и Панель управления

Автор: alexpotemkin 23.7.2009, 12:42

Поиском и здесь кидал и гуглем, но вижу два варианта: либо я неправильно интерпритирую примеры или они в чем то неверны
если кратко то задача посадить ярлыки ехе в панель управления и в мой компьютер, что бы работало и 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

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

Автор: alexpotemkin 24.7.2009, 08:16

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