Verknüpfung mit WinApi ?

[Nedo]

Zitat von Neutral General:

Hallo,

PChar/PWideChars sind quasi nur Strings.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  CreateSymbolicLink('C:\Users\Benutzer\Desktop\Testlink.png', 'C:\Users\Benutzer\Pictures\Bild.png', 0);
end;

Das erzeugt eine Verknüpfung namens "Testlink.png" zur Datei "C:\Users\Benutzer\Pictures\Bild.png" auf dem Desktop. Falls du String-Variablen hast reicht normalerweise ein einfacher Cast auf PChar.

Danke für diese Blitzschnelle Antwort. Ich möchte dies jetzt in mein Programm einbauen:

ich habe also ein TOpenDialog wo ich einen Pfad ermittle

Delphi-Quellcode:

if dlgOpen.Execute() then begin //Dialog aufrufen
m_sDirchangeFile := dlgOpen.FileName;   //Pfadname in VAR schreiben

Diese Aktion habe ich für zwei Buttons um einmal fest zu legen von welcher Datei ich die Verk. bilden will und wo diese hin soll.
Nun habe ich diese Pfade in 2 String var´s und muss diese nur noch für 'C:\Users\Benutzer\Desktop\Testlink.png', 'C:\Users\Benutzer\Pictures\Bild.png' ersetzen... und hier kommt der PWideChar Fehler dar ich ja einen string in den Var´s stehen habe.

[Neutral General]

Wie oben schon mehrfach steht: Du musst deine Strings einfach auf PChar/PWideChar casten.

[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.