Verknüpfung mit WinApi ?

[lbccaleb]

Er meint, du sollst das einfach so machen:

CreateSymbolicLink(pchar(m_sDirchangeFile), pchar(...und die andere var...), 0);

[Nedo]

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.

[DeddyH]

Delphi-Quellcode:

if not CreateSymbolicLink(pchar(m_SDirOutput), pchar(m_SDirLink), 0) then
  MessageBox(0, PChar(SysErrorMessage(GetLastError)), nil, MB_OK or MB_ICONERROR);

Was sagt er? Ich vermute fehlende Rechte, wie schon weiter oben erwähnt.

[Nedo]

Zitat von DeddyH:

[DELPHI]Ich vermute fehlende Rechte.

Jop Richtig ich versuche das mal einzubauen.

[Nedo]

Okay es funktioniert wenn ich die .'exe mit Adminrechten ausführe... Also wie schon vermurtet hängt es mit Rechten zusammen.
Gibt es eine möglich so eine "Als Admin Starten ?" Abfrage einzubauen so wie diese in vielen anderen Programmen besteht? (z.B. CCleaner)

[DeddyH]

Verpass Deiner Anwendung ein entsprechendes Manifest. Sofern sie aber eigentlich auch als Normalbenutzer bedienbar sein soll und es lediglich darum geht, eine Verknüpfung zu erzeugen, würde ich mir Alternativen überlegen.

[Nedo]

Zitat von DeddyH:

Verpass Deiner Anwendung ein entsprechendes Manifest

... was für ein Fest ? ... Nein Quatsch... ich kann mit dem Begriff im Bezug auf eine Anwendung nicht sehr viel anfangen (Sorry).

[DeddyH]

Manifest