fix #551 'show folder on windows'

Author: demarey

src/PharoLauncher-Core/Win32Platform.extension.st

@@ -9,6 +9,30 @@ WinPlatform >> hostArchitecture [
 	^ processorArch 
 ]
 
+{ #category : #'*PharoLauncher-Core' }
+WinPlatform >> privShellExecute: lpOperation file: lpFile parameters: lpParameters directory: lpDirectory show: nShowCmd [
+	
+	^self ffiCall: #( 
+			FFIConstantHandle ShellExecuteA(
+     				0,
+     				char* lpOperation,
+         			char* lpFile,
+     				char* lpParameters,
+     				char* lpDirectory,
+        			int nShowCmd)) module: #shell32
+	
+
+]
+
+{ #category : #'*PharoLauncher-Core' }
+WinPlatform >> privShellExplore: folder [
+	"
+	self privShellExplore: 'c:\'
+	"
+
+	^self privShellExecute: 'explore' file: folder parameters: '' directory: '' show: 5 "SW_SHOW"
+]
+
 { #category : #'*PharoLauncher-Core' }
 WinPlatform >> uname [
 	^ PhLVmProvider osWindows