Тема: проблема при создании ярлыка
Показать сообщение отдельно
  #6  
Старый 13.04.2012, 21:56
Аватар для Karsh
Karsh Karsh вне форума
Активный
  
Регистрация: 22.09.2007
Адрес: SPb
Сообщения: 228
Версия Delphi: 7, 2009, XE2
Репутация: 70
По умолчанию
Попробовал ваш код на Delphi 7 и 2009 - все работает. Путь собирал так:
Код:
  patch:= Edit1.Text;
  if LastDelimiter('\', patch) <> length(patch) then
    patch:= patch + '\';
  patch:= patch + Edit2.Text + '.lnk';
__________________
Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра.
Ответить с цитированием