Discussion :

[NicCo]

Bonjour,
Je cherche à créer des liens symboliques sous Delphi XE2 mais jusqu'à présent je n'arrive à rien.
J'ai essayé un ShellExecute avec exécution de mklink.exe + les paramètres voulus mais ca ne fonctionne pas (ni avec élévation de privilèges)
J'ai également essayé la fonction CreateSymLink mais même chose, rien ne se crée même avec élévation de privilèges.
Y a-t-il une astuce pour créer un lien symbolique sous Delphi XE2 / Windows 7,8,10 et également pour retrouver les liens symboliques et la cible pointée ?
Merci.

[Ph. B.]

Bonjour,

Je cherche à créer des liens symboliques sous Delphi XE2 mais jusqu'à présent je n'arrive à rien.

XE2 dispose dans l'unité System.SysUtils d'une fonction dédiée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
{ FileCreateSymLink creates a symbolic link. The parameter Link is the name of
  the symbolic link created and Target is the string contained in the symbolic
  link. }
 
function FileCreateSymLink(const Link, Target: string): Boolean;

.
Cela fonctionne sous W7, 8 et 8.1 avec élévation de privilèges...

Pour les autres questions, il y a:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
{ FileGetSymLinkTarget reads the target of a symbolic link. The result is
  returned in the symbolic link record given by SymLinkRec. }
 
function FileGetSymLinkTarget(const FileName: string; var SymLinkRec: TSymLinkRec): Boolean; overload;
 
{ FileGetSymLinkTarget returns the target of a symbolic link. }
 
function FileGetSymLinkTarget(const FileName: string; var TargetName: string): Boolean; overload;
 
{ FileSystemAttributes returns the file system attributes of the path\file given
  by Path. The attributes can contain any of the following:
 
  fsCaseSensitive - The file system is case sensitive.
  fsCasePreserving - The file system is case preserving but not necessarily case
                     sensitive.
  fsLocal - The drive is a local drive to the computer.
  fsNetwork - The drive is a networked drive.
  fsRemovable - The drive is removable. This could be a USB drive, CD ROM or a
                mounted volume.
  fsSymLink - The file system supports symbolic links.
 
  If the specified path does not exist then the exception
  EDirectoryNotFoundException is raised. If an OS error occurs then the
  exception EOSError is raised. }

[NicCo]

Merci pour ces éléments

Entre temps j'ai trouvé la fonction CreateSymbolicLink(Link, Target, Flag) où Flag indique si c'est un dossier ou un fichier.

Et pour le reste j'ai trouvé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function GetTargetPath(SymlinkPath: PWideChar): string;
var
  LinkHandle: THandle;
  TargetName: array [0..512] of Char;
begin
  LinkHandle := CreateFile(SymlinkPath, 0, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  Win32Check(LinkHandle <> INVALID_HANDLE_VALUE);
  try
    if GetFinalPathNameByHandle(LinkHandle, TargetName, 512, FILE_NAME_NORMALIZED) > 0 then result:=TargetName
    end else RaiseLastOSError;
  finally
    CloseHandle(LinkHandle);
  end;
end;

[gaby277]

Bonjour,

XE2 dispose dans l'unité System.SysUtils d'une fonction dédiée :

XE aussi