Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

CreateComObject(CLSID_ShellLink); вылетает с ошибкой   Найти похожие ветки 

 
i-s-v   (2004-02-02 01:17) [0]

Здравствуйте, мастера!.
Помогите, плз!

Вот кусок кода, который из ярлыка достает путь к файлу.
var
 MyObject: IUnknown;
 MySLink: IShellLink;
 MyPFile: IPersistFile;
 c: PChar;
 pfd: _WIN32_FIND_DATAA;
begin
 MyObject := CreateComObject(CLSID_ShellLink);
 MySLink := MyObject as IShellLink;
 MyPFile := MyObject as IPersistFile;
..... и т.д..

Строка
MyObject := CreateComObject(CLSID_ShellLink); вылетает с ошибкой:
EOleSysError не был произведен вызов CoInitialize
Куда этот CoInitialize всунуть?
Заранее спасибо.


 
MBo ©   (2004-02-02 07:16) [1]

CoInitialize должно быть вызвано в начале работы потока, использующего com-объекты. В основном потоке VCL-программы это делать обычно не нужно, поскольку один из стандартных модулей это уже делает при своей инициализации.


 
i-s-v   (2004-02-03 14:21) [2]

А почему же тогда вылетает?



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
14-1079365212
Soft
2004-03-15 18:40
2004.04.11
За явку на экзамен без меча...


14-1079468984
syte_ser78
2004-03-16 23:29
2004.04.11
Где скачать госты по технологии?


7-1075724552
Rude
2004-02-02 15:22
2004.04.11
Подключение кассового аппарата к компьютеру


1-1080117606
LinOS
2004-03-24 11:40
2004.04.11
Закрытия окна при клике вне его пределов


1-1082033709
avgur
2004-04-15 16:55
2004.04.11
Вопрос по экспорту в Excel (FastReport v 2.5)