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.