Создание ярлыка для автозапуска. Указать Издателя программы

[Shouldercannon]

Доброго времени суток!
Создаю так ярлык для автозапуска

function GetStartupPath: String;
var
  Buffer: Array[0..MAX_PATH] of Char;
begin
  if ShGetSpecialFolderPath(Application.Handle, Buffer, CSIDL_STARTUP, False) then Result := Buffer else Result := '';
end;

function CreateShortcut(const CmdLine, Args, WorkDir, LinkFile: String): IPersistFile;
var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
  WideFile: WideString;
begin
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  with MySLink do
  begin
    SetPath(PChar(CmdLine));
    SetArguments(PChar(Args));
    SetWorkingDirectory(PChar(WorkDir));
  end;
  WideFile := LinkFile;
  MyPFile.Save(PWChar(WideFile), False);
  Result := MyPFile;
end;

procedure TFormMain.Button1Click(Sender: TObject);
begin
  Edit1.Text := Format('%s\%s.lnk', [GetStartupPath, ProgramName]);
  CreateShortcut(ExtractFilePath(Application.ExeName) + ExtractFileName(Application.ExeName), '', ExtractFilePath(Application.ExeName), Edit1.Text);
end;

Что нужно ещё добавить в функцию CreateShortcut, чтобы можно было указать Издателя программы

[Alex11223]

Причем тут ярлык? Где вы там издателя нашли?

[Shouldercannon]

Вот так вот

[Alex11223]

Ну мало ли откуда эта утилита его читает, вероятно из свойств самой программы.
Наверно оно задается где-то в свойствах проекта Дельфи.

[JUDAS]

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

Что нужно ещё добавить в функцию CreateShortcut, чтобы можно было указать Издателя программы