| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
CreateComObject(CLSID_ShellLink); вылетает с ошибкой
i-s-v © (2004-02-02 01:17:00)Здравствуйте, мастера!.
Помогите, плз!
Вот кусок кода, который из ярлыка достает путь к файлу.
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 всунуть?
Заранее спасибо.
i-s-v (2004-02-03 14:21:00) [1]А почему же тогда вылетает?
MBo (2004-02-02 07:16:00) [2]CoInitialize должно быть вызвано в начале работы потока, использующего com-объекты. В основном потоке VCL-программы это делать обычно не нужно, поскольку один из стандартных модулей это уже делает при своей инициализации.
| |
