Создание ярлыка на папку

[PTyTb32]

привет, я честно гуглил, пытался переделать примеры которые находил, не вышло, максимум что получилось это ярлык на файл которого нет и без рабочей папки (как и у ярлыка на папку). обьясните пожалуйста как сделать ярлык на папку? есть папка автозагрузки и нужно создать на нее ярлык на рабочем столе (папку раб стола и папку авторана я уже получаю)


Нашел очень обобщенный вариант
если кому надо

function GetPathProgramms(): string;
const
  SHGFP_TYPE_CURRENT = 0;
var
  path: array [0 .. MAX_PATH] of char;
begin
  if SUCCEEDED(SHGetFolderPath(0, CSIDL_APPDATA, 0, SHGFP_TYPE_CURRENT,
    @path[0])) then
    Result := path + '\Microsoft\Windows\Start Menu\Programs\Startup'
  else
    Result := '';
end;

function CreateShortcut(const ShortcutDir, CmdLine, Param, WorkDir,DirName: string;
   LinkFile:String): Boolean;
var
  MyObject  : IUnknown;
  MySLink   : IShellLink;
  MyPFile   : IPersistFile;
  WideFile  : WideString;
  Directory, TempStr: String;
  Reg:TRegistry;
begin
  Result:=False;Directory:='';
  If (ShortcutDir='Desktop') or (ShortcutDir='Favorites') or
     (ShortcutDir='Programs') or (ShortcutDir='SendTo') or
     (ShortcutDir='Start Menu') or (ShortcutDir='Startup') then
    begin
      Reg:=TRegistry.Create;
      Reg.OpenKey('Software\MicroSoft\Windows\CurrentVersion\Explorer\Shell Folders',False);
      Directory := Reg.ReadString(ShortcutDir);
      Reg.Free;
      If not(DirName='') then
        Directory:=Directory+'\'+DirName;
    end;
  If DirectoryExists(ShortcutDir)  then
    Directory:=ShortcutDir
  else
    If Directory='' then  Exit;
  If not(FileExists(CmdLine)) and not(DirectoryExists(CmdLine)) then Exit;
  If linkFile='' then Exit;
  TempStr:=linkFile;
  If Length(linkFile)>4 then
    Delete(TempStr,1,Length(TempStr)-3);
  If not(AnsiUpperCase(TempStr)='LNK') then
    linkFile:=linkFile+'.lnk';
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  with MySLink do
    begin
      SetPath(PChar(CmdLine));
      SetArguments(PChar(Param));
      SetWorkingDirectory(PChar(WorkDir));
    end;
  if Directory[Length(Directory)]='\' then
    WideFile := Directory+LinkFile
  else
    WideFile := Directory+'\'+LinkFile;
  if MyPFile.Save(PWChar(WideFile), False)= S_OK then
    Result:=True;
end;

использование

CreateShortcut( 'Desktop', GetPathProgramms, '', '', '', 'Автозагрузка.lnk');

[min@y™]

В JEDI/jcl есть модуль JclShell.pas
В нём есть функции для работы с ярлыками. Возможно, это то, что тебе надо.

[NetSpace]

я бы по-молодости сделал так: создал ярлык, открыл его в блокноте и весь исходный код сохранил бы в программе, предварительно выудив из него ссылку на файл или папку и другую информацию. Затем попробовал бы программным путём к другим папкам прикрутить эту ссылку. Да, метод извращенский, но в условиях отсутствия помощи со стороны наставников и учитывая, что меня в гугле забанили, так бы и поступил.

L        А      F‹     ая7/¶˜УPЯ·˜УPЯ·˜У                      t r 1     =L" 9495~1  \   пѕ=L} =L"*   ИР   7               ?@>B>:>;K  @>4.   A>1@0=89     „            -   8   \         ћГ®    C:\Users\  $                \\UCHITEL\Users Учитель\Desktop\протоколы род. собраний  . \ ?@>B>:>;K  @>4.   A>1@0=89Ж  	  *ё   1SPS0с%·пGҐс`Њћл¬A   
          ?@>B>:>;K  @>4.   A>1@0=89  1             0?:0  A  D09;0<8         @    ц/¶˜У       @    *Я·˜У    q   1SPSн0ЅЪC ‰G§шР¤sf"U   d       "   D e s k t o p   ( C : \ >;L7>20B5;8\ #G8B5;L)       ‘   1SPS¦jc(=•ТµЦ АOЩРu          1   C : \ U s e r s \ #G8B5;L\ D e s k t o p \ ?@>B>:>;K  @>4.   A>1@0=89            `     *X       uchitel         j¤tЖ¦y
A˜uњУFe~е3Љ5A©и†ёоeЛ·Ґj¤tЖ¦y
A˜uњУFe~е3Љ5A©и†ёоeЛ·Ґ

[Aliens_wolfs]

Вот ссылка на создание ярлыка http://forum.sources.ru/index.php?showtopic=39479
Вот ссылка на чтение ярлыка http://forum.sources.ru/index.php?showtopic=41450
Обсуждение http://forum.sources.ru/index.php?showtopic=47058

В интернете в поисковике набирайте структура ярлыка windows

Возможно эта информация вам поможет.