Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
eagle nest
5 / 8 / 4
Регистрация: 06.12.2013
Сообщений: 119
1

Ошибка при получении информации из ярлыка

22.06.2015, 14:22. Просмотров 878. Ответов 2
Метки нет (Все метки)

Подскажите где ошибка, при указании файла lnk не в корне диска из файла lnk не читается информация.
0
Вложения
Тип файла: rar регистрация модулей.rar (123.5 Кб, 6 просмотров)
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.06.2015, 14:22
Ответы с готовыми решениями:

Зависание клиента при получении сообщения от сервера
Отсылаю сообщение серверу и хочу вывести результат выполнения команды на...

При создании ярлыка ошибка "Создание ярлыка не возможно, Возможно нет места на диске"
При создании ярлыка на рабочем столе любого приложения, появляется окно с...

Ошибка при создании ярлыка!
Доброго времени суток народ! Помогите есть моя программа при её запуске создает...

ошибка при открытии ярлыка.
Вообщем,захотел я перенести иконки дисков на нижнюю панель(на левую сторону),но...

Ошибка при получении данных из БД при использовании MVC framework 4.0
// HomeControlers.cs using System; using System.Collections.Generic; using...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26519 / 17808 / 7048
Регистрация: 22.10.2011
Сообщений: 31,338
Записей в блоге: 6
22.06.2015, 22:50 2
Лучший ответ Сообщение было отмечено eagle nest как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function GetFileNamefromLink(LinkFileName: string): string;
var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
  FileInfo: TWin32FINDDATA;
  Buff: array[0..MAX_PATH] of char;
begin
  Result := '';
  if (fileexists(Linkfilename) = False) then
    exit;
  MyObject := CreateComObject(CLSID_ShellLink);
  MyPFile := MyObject as IPersistFile;
  MySLink := MyObject as IShellLink;
  MyPFile.Load(StringToOleStr(LinkFileName), STGM_READ);
  MySLink.GetPath(Buff, Max_PATH, FileInfo, SLGP_UNCPRIORITY);
  Result := buff;
end;
прекрасно получает информацию из ярлыка, который НЕ находится в корневой папке. Что-то с StringToWideChar не то.
1
eagle nest
5 / 8 / 4
Регистрация: 06.12.2013
Сообщений: 119
23.06.2015, 08:16  [ТС] 3
Спасибо за подсказку уважаемый volvo.
Все работает.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2015, 08:16

Ошибка при получении data
Добрый день! Столкнулся со следующей проблемой. Получаю параметр img...

Ошибка при получении ip адресов
Доброго времени суток!!! Есть 2 компьютера: 1 настольный, другой ноутбук....

Зацикливание при получении получении сообщения от клиента
Доброго времени суток! Уже выбился из сил... Суть моей проблемы в следующем....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru