Home

Page 339
Page 339
background image

 Глава 7

i

 1;

repeat

 := ShortCutName

 +

 ').lnk';

until not

WideStr := tmpShortCutName;

end

else

WideStr

 ShortCutName;

end;

В самом начале мы инициализируем переменную

 как СОМ-объект

с помощью API-функции

 Затем инициализируются еще

две переменные

 (ссылка) и

 (файл). После этого вы-

зываются следующие методы объекта ссылки SheilLink:

 — устанавливает полный путь к программе;

 setArguments — устанавливает параметры, которые надо передать про-

грамме;

 — здесь указывается рабочая директория.

Помимо этого у

 есть еще методы:

 — указывает в ярлыке описание для программы;

 — указывает режим отображения окна. Здесь можно исполь-

зовать режимы, которые мы указывали в API-функции

 на-

пример

 SW_HIDE

 (запускать невидимо),

 (запускать с окном

развернутым на весь экран),

 (минимизировать окно после

старта) и так далее.

После указания необходимых параметров в переменной ShortCutName со-

храняется имя ярлыка плюс расширение Ink. Это имя будет использоваться
при создании самого файла ссылки. Далее проверяется, если такой ярлык
уже существует, то запускается цикл, в котором к имени ссылки добавляется
цифра. Таким образом находится новое имя ярлыка с цифрой, которого еще
не существует в указанном месте.

В самой последней строке созданная ссылка сохраняется в файле ярлыка.

Как видите, процедура универсальна и готова для заполнения экрана или
меню Программы своими копиями. Вам нужно только изменить уже имею-
щийся обработчик события нажатия кнопки, что мы и сделаем чуть позже.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.