Creating a symbolic link
lazarus / 34-Windows

----------------------------------------------------------------------
antispam88 · 2019-01-28 16:17

Hi,

I'm using mklink to create a symboic link under windows (7/8.1/10).
Because mklink is part of the cmd I use following code:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i       proc
:= TProcess.Create(nil);      proc.Executable := STR_EXE_CMD;     
proc.Options := proc.Options + [poUsePipes];      proc.Execute;     
mklink_cmd := Format('%s %s "%s" "%s"%s', [STR_EXE_MKLINK,       
STR_PARAM_SYMLINK, __path_reports_dst, __path_reports_src,
LineEnding]);      proc.Input.Write(mklink_cmd[1],
Length(mklink_cmd));      Sleep(100);
But with that code I don't get any response from mklink.
I have already checked the Output stream, but there is only the cmd
header and the mklink call:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Microsoft
Windows [Version 10.0.17134.523](c) 2018 Microsoft Corporation. Alle
Rechte vorbehalten. C:\daten\src\projects\project1\bin>mklink /D
"C:\server\reports\"
"C:\server\www\reports\" C:\daten\src\projects\project1\bin>
So is there a way to get the response of mklink?
Or is another option the create a symbolic link under windows.

Best regards,
antispam88

----------------------------------------------------------------------
bytebites · 2019-01-28 17:38

Another way https://stackoverflow.com/questions/32503231/how-can-i-
run-a-mklink-system-command-cmd-exe-from-a-delphi-7-aplpication?lq=1

----------------------------------------------------------------------
Bart · 2019-01-28 17:42

Googling windows sybolic link gives me: https://docs.microsoft.com/en-
us/windows/desktop/api/WinBase/nf-winbase-createsymboliclinka

Code: C  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i BOOLEAN
CreateSymbolicLinkA(  LPCSTR lpSymlinkFileName,  LPCSTR
lpTargetFileName,  DWORD  dwFlags);
The function is in Kernel32.dll

Bart

----------------------------------------------------------------------
antispam88 · 2019-01-28 20:48

I had already read about these functions.
But I thought, that there is an option to use mklink in a correct way
...

Nevertheless I'm using now CreateSymbolicLinkW and it is working as
expected.

While the initial way is not solved the main target is.

Thanks,
antispam88