Как создать ярлык к файлу?

Procedure CreateShortcut_all(Path.s, LINK.s, Argument.s, DESCRIPTION.s, WorkingDirectory.s, ShowCommand.l, IconFile.s, IconIndexInFile.l) 
  CoInitialize_(0) 
  If CoCreateInstance_(?CLSID_ShellLink,0,1,?IID_IShellLinkW,@psl.IShellLinkW) = 0  
    psl\SetPath(Path) 
    psl\SetArguments(Argument) 
    psl\SetWorkingDirectory(WorkingDirectory) 
    psl\SetDescription(DESCRIPTION) 
    psl\SetShowCmd(ShowCommand) 
    psl\SetHotkey(HotKey) 
    psl\SetIconLocation(IconFile, IconIndexInFile) 
    If psl\QueryInterface(?IID_IPersistFile,@ppf.IPersistFile) = 0 
      hres = ppf\Save(LINK,#True) 
      Result = 1 
      ppf\Release() 
    EndIf 
    psl\Release() 
  EndIf 
  CoUninitialize_() 
  ProcedureReturn Result 
  
  DataSection 
    CLSID_ShellLink: 
    Data.l $00021401 : Data.w $0000,$0000 : Data.b $C0,$00,$00,$00,$00,$00,$00,$46 
    IID_IShellLink: 
    Data.l $000214EE : Data.w $0000,$0000 : Data.b $C0,$00,$00,$00,$00,$00,$00,$46 
    IID_IPersistFile: 
    Data.l $0000010B : Data.w $0000,$0000 : Data.b $C0,$00,$00,$00,$00,$00,$00,$46 
    IID_IShellLinkW: 
    Data.l $000214F9 : Data.w $0000, $0000 : Data.b $C0, $00, $00, $00, $00, $00, $00, $46 
  EndDataSection 
  
EndProcedure 
 
CreateShortcut_all("D:\cpu-z\cpuz.exe","C:\ярлык.lnk","","Это ярлык к моей проге","",#SW_SHOWNORMAL,"",0)