Einzelnen Beitrag anzeigen

Nedo

Registriert seit: 8. Sep 2014
Ort: Osnabrück
16 Beiträge
 
Delphi 10 Seattle Professional
 
#9

AW: Verknüpfung mit WinApi ?

  Alt 24. Sep 2014, 09:14
Also ich habe es jetzt mal fertig geschrieben. Es enstehen keine Fehler ... ABER es ensteht keine Verknüpfung meiner Datei.

Aber Warum ???

Delphi-Quellcode:
unit Testen;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IniFiles, Filectrl, ShellApi;

type
  TForm2 = class(TForm)
    btnLink: TButton;
    btnOutput: TButton;
    dlgOpen: TOpenDialog;
    procedure btnLinkClick(Sender: TObject);
    procedure btnOutputClick(Sender: TObject);
  private
    m_SDirOutput : String;
    m_SDirLink : String;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
{*******************************************************************************
  Procedure: btnMoveClick
  Author:    l
  Date:      24.09.2014 08:32:10      Since Version:  1.0.0.0
  Throws:
  Info:      Ziel wählen, Ziel wir in Ausgabeortner gebildet
*******************************************************************************}

procedure TForm2.btnLinkClick(Sender: TObject);
var
LinkName : String;
begin
    dlgOpen.Execute();
    m_SDirLink := dlgOpen.FileName;
    LinkName := m_SDirLink.Substring(m_SDirLink.LastIndexOf('\'));
    m_SDirOutput := m_SDirOutput + LinkName;
    CreateSymbolicLink(pchar(m_SDirOutput), pchar(m_SDirLink), 0);
end;

{*******************************************************************************
  Procedure: btnOutputClick
  Author:    l
  Date:      24.09.2014 08:40:50      Since Version:  1.0.0.0
  Throws:
  Info:      Ausgabeortner wählen
*******************************************************************************}

procedure TForm2.btnOutputClick(Sender: TObject);
begin
    SelectDirectory('Ortner wählen', '', m_SDirOutput);
end;

end.
Lukas
Erst denken dann fragen
  Mit Zitat antworten Zitat