From 6a491651adf7f545910bdddba812ae8d9b6f45e8 Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Wed, 3 Oct 2012 11:27:48 +0000
Subject: [PATCH] sysenvapis_win: don't use 'open' verb for shellexecute in
 OpenDocument. Use nil instead. This will perform the default action. Resolves
 issue #22374.

git-svn-id: trunk@38958 -
---
 lcl/include/sysenvapis_win.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/include/sysenvapis_win.inc b/lcl/include/sysenvapis_win.inc
index 6a44bfc3f3..8fc00635a3 100644
--- a/lcl/include/sysenvapis_win.inc
+++ b/lcl/include/sysenvapis_win.inc
@@ -24,12 +24,12 @@ begin
   if Win32Platform = VER_PLATFORM_WIN32_NT then
   begin
     ws := UTF8Decode(AURL);
-    Result := ShellExecuteW(0, 'open', PWideChar(ws), nil, nil, SW_SHOWNORMAL) > 32;
+    Result := ShellExecuteW(0, nil, PWideChar(ws), nil, nil, SW_SHOWNORMAL) > 32;
   end
   else
   begin
     ans := Utf8ToAnsi(AURL); // utf8 must be converted to Windows Ansi-codepage
-    Result := ShellExecute(0, 'open', PAnsiChar(ans), nil, nil, SW_SHOWNORMAL) > 32;
+    Result := ShellExecute(0, nil, PAnsiChar(ans), nil, nil, SW_SHOWNORMAL) > 32;
   end;
   {$ENDIF}
 end;