paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 17:33:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32 interface: use CoInitialize instead of OleIntialize, so we can choose the threading model; COINIT_APARTMENTTHREADED, the value used by OleIntialize crashes in some cases (issue #12742)

Browse Source 
git-svn-id: trunk@19668 -
This commit is contained in:
vincents 2009-04-28 19:50:13 +00:00
parent 857aeb7a5a
commit c1f7d67ccc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32object.inc
View File

@ -117,7 +117,7 @@ begin
Exit;
end;
OleInitialize(nil);
CoInitializeEx(nil, COINIT_MULTITHREADED);
//TODO: Remove when the WS interface is implemented
// Common controls only need to be initialized when used
// So they are initialized in the CreateHandle for common controls
@ -427,7 +427,7 @@ end;
procedure TWin32WidgetSet.AppTerminate;
begin
Assert(False, 'Trace:TWin32WidgetSet.AppTerminate - Start');
OleUninitialize;
CoUninitialize;
end;
procedure TWin32WidgetSet.AppSetIcon(const Small, Big: HICON);