Delphi JEDI CreateJunctionPoint (SymbolicLink)

uses
  SysUtils, JclNTFS;

begin
  // function NtfsCreateJunctionPoint(const Source, Destination: string): Boolean;
  // Source must empty directory
  NtfsCreateJunctionPoint('c:\tmp\ProgramFiles', 'C:\Program Files');
  // Delete
  // NtfsDeleteJunctionPoint('c:\tmp\ProgramFiles');
end.