procedure Exe(aVerb,aFile,aParm,aDir:PChar;aShow:Integer;aWait:Boolean);
var
 sx : TShellExecuteInfo;
begin
  ZeroMemory(@sx,SizeOf(sx));
  with sx do begin
    cbSize := SizeOf(sx);
    Wnd := Form1.Handle;
    lpVerb := aVerb;
    lpFile := aFile;
    lpParameters :=aParm;
    lpDirectory := aDir;
    nShow:=aShow;
  end;
  if ShellExecuteEx(@sx) then begin
    if aWait then WaitForSingleObject(sx.hProcess, 12345);
    CloseHandle(sx.hProcess);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
const
  cm1 = '/c mkdir ';
  cm2 = '/c for %i in (';
  cm3 = ') do mklink /H ';
  cm4 = '\%~nxi %~dpnxi';
var
  mk : String;
  cmd : String;
  e1,e2 : String;
  sx : TShellExecuteInfo;
begin
  e1 := 'c:\tmp\';
  e2 := '.doc';
  mk :=  cm1 + e1+e2;
  cmd := cm2 + e1+'*'+e2 + cm3 +e1+e2+ cm4;
  Exe('', 'cmd.exe', PChar(mk), nil, SW_HIDE, True);
  Exe('', 'cmd.exe', PChar(cmd), nil, SW_HIDE, True);
  Exe('explore', PChar(e1+e2), nil, nil, SW_SHOWNORMAL, False);
end;