Da lectura de memoria 0 en la siguiente línea:
Código Delphi
[-]CoCreateInstance(CLSID_ShellLink,
nil,
CLSCTX_INPROC_SERVER,
IShellLink,
psl);
if psl.QueryInterface(IPersistFile, ppf) = 0 then begin
MultiByteToWideChar(CP_ACP,
MB_PRECOMPOSED,
PChar(LinkFileName),