procedure CreateIntShotCut(aFileName, aURL: PChar); var IURL: IUniformResourceLocator; PersistFile: IPersistfile; begin if Succeeded(CoCreateInstance(CLSID_InternetShortcut, nil, CLSCTX_INPROC_SERVER, IID_IUniformResourceLocator, IURL)) then begin IUrl.SetURL(aURL, 0); Persistfile := IUrl as IPersistFile; PersistFile.Save(StringToOleStr(aFileName), False); end; end;