Создать ярлык и записать его в папку автозагрузки

[DKENT]

Здраствуйте..
Нужно зделать автозапуск программы, при запуске программы должен создаться ярлык и записаться в папку Автозагрузка!

Автозапуск с помошью реестера не предлагать, интересует только этот метод!
Заранее благодарен...

[fate]

procedure addAutoRun(const filename:string);
procedure CreateLink(const PathObj, PathLink, Desc, Param: string);
  var
    IObject: IUnknown;
    SLink: IShellLink;
    PFile: IPersistFile;
  begin
    IObject := CreateComObject(CLSID_ShellLink);
    SLink := IObject as IShellLink;
    PFile := IObject as IPersistFile;
    with SLink do
    begin
      SetArguments(PChar(Param));
      SetDescription(PChar(Desc));
      SetPath(PChar(PathObj));
    end;
    PFile.Save(PWChar(WideString(PathLink)), FALSE);
  end;
var
  Folder: array[0..255] of Char; //ïóòü ê StartUp
  List: PitemidList; 
  lnk : String;
begin
  lnk := ChangeFileExt(filename,'.lnk');
  SHGetSpecialFolderLocation(0,CSIDL_STARTUP,List);
  FillChar(Folder, SizeOf(Folder), 0);
  SHGetPathFromIDList(List, @Folder);
  ChDir(folder);
    CreateLink(filename,lnk,'','');
    CopyFile(PChar(lnk), PChar(ChangeFileExt(ExtractFileName(lnk),'')+'.lnk'), true);
    DeleteFile(lnk);
end;

в uses ComObj, ShlObj, ActiveX

[DKENT]

Извините за тупой вопрос а как вызвать эту процедуру?
CreateLink;
вызываю ее так, компилятор сообщает что идентификатор ненайде!

[fate]

тебе нужно вызывать addAutoRun и передавать имя файла ярлык которого нужно поместить в автозагрузку