- Under the "Windows" workloads, select ".NET desktop development"

- Select "F# language support" under the optional components

- Under the "Other Toolsets" workloads, select "Visual Studio extension development"

- Under the "Individual components" tab select "Windows 10 SDK" as shown below (needed for compiling RC resource, see#2556):\


- Failing to install this will lead to error FS0193: Could not find file visualfsharp\vsintegration\src\FSharp.ProjectSystem.FSharp\obj\net40\ProjectResources.rc.res.

Steps to build:

<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>

<OtherFlags>$(OtherFlags) --warnon:1182 --subsystemversion:6.00</OtherFlags>

<TailcallsCondition="'$(CodeCoverage)' != ''">false</Tailcalls>

<RCResourceFile>ProjectResources.rc</RCResourceFile>

<ImportVSSDKTargets>true</ImportVSSDKTargets>

<CreateVsixContainer>false</CreateVsixContainer>

<DeployExtension>false</DeployExtension>

<TargetName="CopyCtoFile">

<CopySourceFiles="@(VSCTCompile->'$(IntermediateOutputPath)%(FileName).cto')"DestinationFiles="@(VSCTCompile->'ctofiles\%(FileName).cto')" />

</Target>

<PropertyGroup>

<Win32Resource>$(IntermediateOutputPath)\ProjectResources.rc.res</Win32Resource>

</PropertyGroup>

<TargetName="BeforeBuild"Condition="!Exists('$(IntermediateOutputPath)$(RCResourceFile).res')">

<ExecCommand="&quot;$(ProgramFiles)\Windows Kits\10\bin\$(UCRTVersion)\x86\rc.exe&quot; /fo $(IntermediateOutputPath)$(RCResourceFile).res $(RCResourceFile)"Condition="Exists('$(ProgramFiles)\Windows Kits\10\bin\$(UCRTVersion)\x86\rc.exe')" />

<ExecCommand="&quot;$(ProgramFiles)\Windows Kits\8.1\bin\x86\rc.exe&quot; /fo $(IntermediateOutputPath)$(RCResourceFile).res $(RCResourceFile)"Condition="Exists('$(ProgramFiles)\Windows Kits\8.1\bin\x86\rc.exe')" />

<ExecCommand="&quot;$(ProgramFiles)\Windows Kits\10\bin\x86\rc.exe&quot; /fo $(IntermediateOutputPath)$(RCResourceFile).res $(RCResourceFile)"Condition="Exists('$(ProgramFiles)\Windows Kits\10\bin\x86\rc.exe')" />

<ExecCommand="&quot;$(ProgramFiles)\Windows Kits\10\bin\10.0.15063.0\x86\rc.exe&quot; /fo $(IntermediateOutputPath)$(RCResourceFile).res $(RCResourceFile)"Condition="Exists('$(ProgramFiles)\Windows Kits\10\bin\10.0.15063.0\x86\rc.exe')" />

</Target>

<TargetName="GatherBinariesToBeSigned"AfterTargets="Localize"Condition="'$(UseGatherBinaries)' == 'true'">

<ItemGroup>

<BinariesToBeSignedInclude="$(OutDir)$(AssemblyName).dll" />

project.Close()|> ignore

extern int32 ExtractIconEx(string szFileName, int nIconIndex,IntPtr[] phiconLarge, IntPtr[] phiconSmall,uint32 nIcons)

extern int DestroyIcon(IntPtr hIcon)

lethIconLarge= Array.create n IntPtr.Zero

lethIconSmall= Array.create n IntPtr.Zero

letreadIconCount= ExtractIconEx(path,0,hIconLarge,hIconSmall,uint32 n)

if readIconCount>0then

if largethen

Array.init readIconCount(fun i-> Icon.FromHandle(hIconLarge.[0]).Clone():?> Icon)

Array.init readIconCount(fun i-> Icon.FromHandle(hIconSmall.[0]).Clone():?> Icon)

hIconLarge|> Array.iter(fun ptr->if ptr<> IntPtr.Zerothen DestroyIcon ptr|> ignore<int>)

hIconSmall|> Array.iter(fun ptr->if ptr<> IntPtr.Zerothen DestroyIcon ptr|> ignore<int>)

leticons= extractIcon pathtrue

if icons.Length<>nExpectedthen failwithf"Expected%d icons in%s" nExpected path// "

memberpublicthis.``PublicKeyToken.0a00000000000001``()= CheckPublicKeyToString([|0xauy;0uy;0uy;0uy;0uy;0uy;0uy;1uy|],"0a00000000000001")

letpath= typeof<Microsoft.VisualStudio.FSharp.ProjectSystem.FSharpProjectPackage>.Assembly.Location

Regression5312.checkIcons4 path

Assert.AreEqual(123L, ProjectNode.ParsePropertyValueToInt64("123"))