From a348e5f5012bd84b942efdea2c8f3e2a75aa8b8d Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Mon, 4 May 2009 13:39:35 +0000
Subject: [PATCH] win32 interface: reverted r19668 #c1f7d67ccc, because
 CoInitialize COINIT_MULTITHREADED doesn't work with new style
 TSelectDirectory.

git-svn-id: trunk@19800 -
---
 lcl/interfaces/win32/win32object.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 03beccbde6..a662669ae3 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -117,7 +117,7 @@ begin
     Exit;
   end;
 
-  CoInitializeEx(nil, COINIT_MULTITHREADED);
+  OleInitialize(nil);
   //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');
-  CoUninitialize;
+  OleUninitialize;
 end;
 
 procedure TWin32WidgetSet.AppSetIcon(const Small, Big: HICON);