Index: lcl/interfaces/win32/win32object.inc
===================================================================
--- lcl/interfaces/win32/win32object.inc	(revision 28296)
+++ lcl/interfaces/win32/win32object.inc	(working copy)
@@ -130,7 +130,11 @@
     Exit;
   end;
 
-  OleInitialize(nil);
+  // In case of a library Ole doesn't needed to be initialized (should be done
+  // by the main application
+  // TODO: Verify if this is indeed not needed.
+  if not IsLibrary then 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
@@ -169,9 +173,13 @@
   {$endif}
   AllocWindowInfo(FAppHandle);
 
-  // set nice main icon
-  AIcon := Windows.LoadIcon(MainInstance, 'MAINICON');
-  AppSetIcon(AIcon, AIcon);
+  // eventually set nice main icon (if the project is not a library)
+  if not IsLibrary then
+  begin
+    AIcon := Windows.LoadIcon(MainInstance, 'MAINICON');
+    AppSetIcon(AIcon, AIcon);
+  end;
+
   // remove useless menuitems from sysmenu
   SysMenu := Windows.GetSystemMenu(FAppHandle, False);
   Windows.DeleteMenu(SysMenu, SC_MAXIMIZE, MF_BYCOMMAND);

Index: lcl/include/application.inc
===================================================================
--- lcl/include/application.inc	(revision 28296)
+++ lcl/include/application.inc	(working copy)
@@ -416,17 +416,21 @@
   WidgetSet.AppInit(ScreenInfo);
   ScreenInfo.Initialized := True;
   Screen.UpdateScreen;
+
   // set that we are initialized => all exceptions will be handled by our HandleException
   include(FFlags, AppInitialized);
 
-  // application icon
-  if LazarusResources.Find('MAINICON') <> nil then
-    Icon.LoadFromLazarusResource('MAINICON')
-  else
+  if not IsLibrary then
   begin
-    Res := FindResource(HInstance, PChar('MAINICON'), PChar(RT_GROUP_ICON));
-    if Res <> 0 then
-      Icon.LoadFromResourceHandle(Hinstance, Res);
+    // application icon
+    if LazarusResources.Find('MAINICON') <> nil then
+      Icon.LoadFromLazarusResource('MAINICON')
+    else
+    begin
+      Res := FindResource(HInstance, PChar('MAINICON'), PChar(RT_GROUP_ICON));
+      if Res <> 0 then
+        Icon.LoadFromResourceHandle(Hinstance, Res);
+    end;
   end;
 end;
 
Index: lcl/interfaces/win32/win32object.inc
===================================================================
--- lcl/interfaces/win32/win32object.inc	(revision 28296)
+++ lcl/interfaces/win32/win32object.inc	(working copy)
@@ -130,7 +130,11 @@
     Exit;
   end;
 
-  OleInitialize(nil);
+  // In case of a library Ole doesn't needed to be initialized (should be done
+  // by the main application
+  // TODO: Verify if this is indeed not needed.
+  if not IsLibrary then 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
@@ -145,39 +149,43 @@
     end;
   end;
 
-  // Create parent of all windows, 'button on taskbar'
-  {$ifdef WindowsUnicodeSupport}
-  if UnicodeEnabledOS then
-    FAppHandle := CreateWindowW(@ClsNameW,
-      PWideChar(UTF8ToUTF16(Application.Title)),
-      WS_POPUP or WS_CLIPSIBLINGS or WS_SYSMENU or WS_MINIMIZEBOX,
+  if not IsLibrary then
+  begin
+    // Create parent of all windows, 'button on taskbar'
+    {$ifdef WindowsUnicodeSupport}
+    if UnicodeEnabledOS then
+      FAppHandle := CreateWindowW(@ClsNameW,
+        PWideChar(UTF8ToUTF16(Application.Title)),
+        WS_POPUP or WS_CLIPSIBLINGS or WS_SYSMENU or WS_MINIMIZEBOX,
+        0, {Windows.GetSystemMetrics(SM_CXSCREEN) div 2,}
+        0, {Windows.GetSystemMetrics(SM_CYSCREEN) div 2,}
+        0, 0, HWND(nil), HMENU(nil), HInstance, nil)
+    else
+      FAppHandle := CreateWindow(@ClsName, PChar(Utf8ToAnsi(Application.Title)),
+        WS_POPUP or WS_CLIPSIBLINGS or WS_SYSMENU or WS_MINIMIZEBOX,
+        0, {Windows.GetSystemMetrics(SM_CXSCREEN) div 2,}
+        0, {Windows.GetSystemMetrics(SM_CYSCREEN) div 2,}
+        0, 0, HWND(nil), HMENU(nil), HInstance, nil);
+    {$else}
+    FAppHandle := CreateWindow(@ClsName, PChar(Application.Title), WS_POPUP or
+      WS_CLIPSIBLINGS or WS_SYSMENU or WS_MINIMIZEBOX,
       0, {Windows.GetSystemMetrics(SM_CXSCREEN) div 2,}
       0, {Windows.GetSystemMetrics(SM_CYSCREEN) div 2,}
-      0, 0, HWND(nil), HMENU(nil), HInstance, nil)
-  else
-    FAppHandle := CreateWindow(@ClsName, PChar(Utf8ToAnsi(Application.Title)),
-      WS_POPUP or WS_CLIPSIBLINGS or WS_SYSMENU or WS_MINIMIZEBOX,
-      0, {Windows.GetSystemMetrics(SM_CXSCREEN) div 2,}
-      0, {Windows.GetSystemMetrics(SM_CYSCREEN) div 2,}
       0, 0, HWND(nil), HMENU(nil), HInstance, nil);
-  {$else}
-  FAppHandle := CreateWindow(@ClsName, PChar(Application.Title), WS_POPUP or
-    WS_CLIPSIBLINGS or WS_SYSMENU or WS_MINIMIZEBOX,
-    0, {Windows.GetSystemMetrics(SM_CXSCREEN) div 2,}
-    0, {Windows.GetSystemMetrics(SM_CYSCREEN) div 2,}
-    0, 0, HWND(nil), HMENU(nil), HInstance, nil);
-  {$endif}
-  AllocWindowInfo(FAppHandle);
+    {$endif}
+    AllocWindowInfo(FAppHandle);
 
-  // set nice main icon
-  AIcon := Windows.LoadIcon(MainInstance, 'MAINICON');
-  AppSetIcon(AIcon, AIcon);
-  // remove useless menuitems from sysmenu
-  SysMenu := Windows.GetSystemMenu(FAppHandle, False);
-  Windows.DeleteMenu(SysMenu, SC_MAXIMIZE, MF_BYCOMMAND);
-  Windows.DeleteMenu(SysMenu, SC_SIZE, MF_BYCOMMAND);
-  Windows.DeleteMenu(SysMenu, SC_MOVE, MF_BYCOMMAND);
+    // eventually set nice main icon (if the project is not a library)
+    AIcon := Windows.LoadIcon(MainInstance, 'MAINICON');
+    AppSetIcon(AIcon, AIcon);
 
+    // remove useless menuitems from sysmenu
+    SysMenu := Windows.GetSystemMenu(FAppHandle, False);
+    Windows.DeleteMenu(SysMenu, SC_MAXIMIZE, MF_BYCOMMAND);
+    Windows.DeleteMenu(SysMenu, SC_SIZE, MF_BYCOMMAND);
+    Windows.DeleteMenu(SysMenu, SC_MOVE, MF_BYCOMMAND);
+  end;
+
   // initialize ScreenInfo
   Handle := GetDesktopWindow;
   DC := Windows.GetDC(Handle);
@@ -201,7 +209,8 @@
  ------------------------------------------------------------------------------}
 procedure TWin32WidgetSet.AppMinimize;
 begin
-  Windows.SendMessage(FAppHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
+  if FAppHandle <> 0 then
+    Windows.SendMessage(FAppHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
 end;
 
 {------------------------------------------------------------------------------
@@ -213,7 +222,8 @@
  ------------------------------------------------------------------------------}
 procedure TWin32WidgetSet.AppRestore;
 begin
-  Windows.SendMessage(FAppHandle, WM_SYSCOMMAND, SC_RESTORE, 0);
+  if FAppHandle <> 0 then
+    Windows.SendMessage(FAppHandle, WM_SYSCOMMAND, SC_RESTORE, 0);
 end;
 
 
@@ -226,7 +236,8 @@
  ------------------------------------------------------------------------------}
 procedure TWin32WidgetSet.AppBringToFront;
 begin
-  Windows.SetForegroundWindow(FAppHandle);
+  if FAppHandle <> 0 then
+    Windows.SetForegroundWindow(FAppHandle);
 end;
 
 procedure TWin32WidgetSet.SetDesigning(AComponent: TComponent);
@@ -486,22 +497,24 @@
 
 procedure TWin32WidgetSet.AppSetTitle(const ATitle: string);
 begin
-  {$ifdef WindowsUnicodeSupport}
-  if UnicodeEnabledOS then
-  begin
-    Windows.SetWindowTextW(FAppHandle, PWideChar(UTF8ToUTF16(ATitle)));
-  end else Windows.SetWindowText(FAppHandle, PChar(Utf8ToAnsi(ATitle)));
-  {$else}
-  Windows.SetWindowText(FAppHandle, PChar(ATitle));
-  {$endif}
+  if FAppHandle <> 0 then
+    {$ifdef WindowsUnicodeSupport}
+    if UnicodeEnabledOS then
+    begin
+      Windows.SetWindowTextW(FAppHandle, PWideChar(UTF8ToUTF16(ATitle)));
+    end else Windows.SetWindowText(FAppHandle, PChar(Utf8ToAnsi(ATitle)));
+    {$else}
+    Windows.SetWindowText(FAppHandle, PChar(ATitle));
+    {$endif}
 end;
 
 procedure TWin32WidgetSet.AppSetVisible(const AVisible: Boolean);
 begin
-  if AVisible then
-    Windows.ShowWindow(FAppHandle, SW_SHOW)
-  else
-    Windows.ShowWindow(FAppHandle, SW_HIDE);
+  if FAppHandle <> 0 then
+    if AVisible then
+      Windows.ShowWindow(FAppHandle, SW_SHOW)
+    else
+      Windows.ShowWindow(FAppHandle, SW_HIDE);
 end;
 
 function TWin32WidgetSet.AppRemoveStayOnTopFlags(const ASystemTopAlso: Boolean = False): Boolean;