Как можно создавать и изменять symlink ( junction связь ) средствами Delphi?

Question

[SHAKIRA]

Всем привет! Подскажите пожалуйста - Как можно создавать и изменять symlink ( junction связь ) средствами Delphi?

Answer 1

[svd71]

www.sql.ru/forum/63896/kak-sozdat-yarlyk-na-raboch...

Comments

[SHAKIRA]

мне именно symlink нужно

[svd71]

@SHAKIRA то есть символьной ссылки, то что содержится в файле *.lnk.

[SHAKIRA]

А как тогда сохранить содержимое, чтобы выглядело именно как ссылка. Чтобы программы видели как папку и прочее?

[svd71]

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;
........

Вот основной код, который требуется. В переменной CmdLine записывается путь к файлу или папке.

Answer 2

[zed]

Похоже, что здесь именно то, что вы ищите: 4coder.org/delphi-source-code/21