Здравствуйте Strannic, Вы писали:

S>Доброе время суток.
S>Есть такой код Но он не дает никаких результатов, почему ?

S>Function CreateLink(const PathObj, PathLink, Desc, Param: string): Boolean;
S>var IObject: IUnknown;
S>Begin
S> IObject := CreateComObject(CLSID_ShellLink);
S> (IObject as IShellLink).SetArguments(PChar(Param));
S> (IObject as IShellLink).SetDescription(PChar(Desc));
S> (IObject as IShellLink).SetPath(PChar(PathObj));
S> Result:=(IObject as IPersistFile).Save(PWChar(WideString(PathLink)), False)=S_OK;
S>end;

S>Заранее благодарен.

А что ты собственно хотел получить, какого результата ждал?
Опиши подробней. PathLink — существует или нет?