Create Windows "shortcut" (.lnk) with D?

[岩倉 澪 via Digitalmars-d-learn]

I'm creating a small installation script in D, but I've been 
having trouble getting shortcut creation to work! I'm a linux 
guy, so I don't know much about Windows programming...

Here are the relevant bits of code I have:

import core.sys.windows.basetyps, core.sys.windows.com, 
core.sys.windows.objbase, core.sys.windows.objidl, 
core.sys.windows.shlobj, core.sys.windows.windef;
import std.conv, std.exception, std.file, std.format, std.path, 
std.stdio, std.string, std.utf, std.zip;

//Couldn't find these in core.sys.windows
extern(C) const GUID CLSID_ShellLink     = {0x00021401, 0x0000, 
0x0000,
   [0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46]};

extern(C) const IID IID_IShellLinkA      = {0x000214EE, 0x0000, 
0x0000,
   [0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46]};

extern(C) const IID IID_IPersistFile     = {0x0000010B, 0x0000, 
0x0000,
   [0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46]};

void main()
{
     string programFolder, dataFolder, desktopFolder;
     {
         char[MAX_PATH] _programFolder, _dataFolder, 
_desktopFolder;
         SHGetFolderPathA(null, CSIDL_PROGRAM_FILESX86, null, 0, 
_programFolder.ptr);
         SHGetFolderPathA(null, CSIDL_LOCAL_APPDATA, null, 0, 
_dataFolder.ptr);
         SHGetFolderPathA(null, CSIDL_DESKTOPDIRECTORY, null, 0, 
_desktopFolder.ptr);
         programFolder = 
_programFolder.assumeUnique().ptr.fromStringz();
         dataFolder = _dataFolder.assumeUnique().ptr.fromStringz();
         desktopFolder = 
_desktopFolder.assumeUnique().ptr.fromStringz();
     }
     auto inputFolder = buildNormalizedPath(dataFolder, 
"Aker/agtoolbox/input");
     auto outputFolder = buildNormalizedPath(dataFolder, 
"Aker/agtoolbox/output");
     CoInitialize(null);
     scope(exit)
         CoUninitialize();
     IShellLinkA* shellLink;
     IPersistFile* linkFile;
     CoCreateInstance(&CLSID_ShellLink, null, 
CLSCTX_INPROC_SERVER, &IID_IShellLinkA, cast(void**)&shellLink);
     auto exePath = buildNormalizedPath(programFolder, 
"Aker/agtoolbox/agtoolbox.exe").toStringz();
     shellLink.SetPath(exePath);
     auto arguments = format("-i %s -o %s", inputFolder, 
outputFolder).toStringz();
     shellLink.SetArguments(arguments);
     auto workingDirectory = programFolder.toStringz();
     shellLink.SetWorkingDirectory(workingDirectory);
     shellLink.QueryInterface(&IID_IPersistFile, 
cast(void**)&linkFile);
     auto linkPath = buildNormalizedPath(desktopFolder, 
"agtoolbox.lnk").toUTF16z();
     linkFile.Save(linkPath, TRUE);
}

I tried sprinkling it with print statements and it crashes on 
shellLink.setPath(exePath);

This is the full script: 
https://gist.github.com/miotatsu/1cc55fe29d8a8dcccab5
I found the values for the missing windows api bits from this: 
http://www.dsource.org/projects/tutorials/wiki/CreateLinkUsingCom

I compile with: dmd agtoolbox-installer.d ole32.lib
I got the ole32.lib from the dmd install

Any help would be highly appreciated as I'm new to Windows 
programming in D and have no idea what I'm doing wrong!