mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Show correctly symlinks to files (Vista/Seven)

Browse source
This commit is contained in:
Alexander Koblov 2010-03-08 12:21:19 +00:00
commit 628a9d7bb8
3 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/newdesign/ufilesystemfile.pas
View file

@ -124,10 +124,8 @@ begin
WinFileTimeToDateTime(SearchRecord.FindData.ftCreationTime));
FLastAccessTime := TFileLastAccessDateTimeProperty.Create(
WinFileTimeToDateTime(SearchRecord.FindData.ftLastAccessTime));
//Other times: SearchRecord.FindData.ftCreationTime
//Because symbolic link works on Windows 2k/XP for directories only
FIsLinkToDirectory := FAttributes.IsLink;
FIsLinkToDirectory := FAttributes.IsLink and FAttributes.IsDirectory;
{$ELSEIF DEFINED(UNIX)}

2
src/platform/uOSUtils.pas
View file

@ -694,7 +694,7 @@ begin
try
wPath:= UTF8Decode(Path);
wLinkName:= UTF8Decode(LinkName);
uNTFSLinks.CreateSymlink(wPath, wLinkName);
Result:= uNTFSLinks.CreateSymlink(wPath, wLinkName);
except
Result := False;
end;

6
src/platform/win/uNTFSLinks.pas
View file

@ -70,7 +70,11 @@ const
'Distributed File System point'
);
(* To create symbolic link (works on Windows 2k/XP for directories only) *)
{en
Create symbolic link on NTFS drive
On Windows 2k/XP works for directories only
On Windows Vista/Seven works for files and directories
}
function CreateSymlink(ATargetName, ALinkName: WideString): Boolean;
(* To create hardlink(s) (works only for files) *)
procedure CreateHardlink(AFileName, ALinkName: WideString);