Verknüpfung auf dem Desktop erzeugen

[N30N]

Hi!

Ich habe ein Problem mit meinem Programm. Ich will, dass es Verknüpfungen auf dem Desktop ablegt, die zu irgendeiner .exe auf der Festplatte führen.

Delphi-Quellcode:

begin
      memo1.clear;
      memo1.lines.add  ('Const strProgramtitel="QiP"');
      memo1.lines.add  ('Const strProgram =" ' + edit1.text + '"');
      memo1.lines.add  ('Dim objShortcut');
      memo1.lines.add  ('Dim objShell');
      memo1.lines.add  ('Set objShell= WScript.CreateObject("Wscript.Shell")');
      memo1.lines.add  ('strLPfad=objShell.SpecialFolders("Desktop")');
      memo1.lines.add  ('Set objShortcut=objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")');
      memo1.lines.add  ('objShortcut.TargetPath= strProgram');
      memo1.lines.add  ('objShortcut.Description= "strProgramtitel"');
      memo1.lines.add  ('objShortcut.Save ');
      memo1.lines.savetofile('QIPShortcut.vbs');
      shellexecute(handle,'open',PChar('QIPShortcut.vbs'), nil, nil, sw_show);
end;

Das Programm erstellt eigentlich nur ne vbs und führt diese aus. Jedoch sind die Verknüpfungen, die ich erstellt habe, fehlerhaft. Sie verweisen auf "c:\ d:\programme\whatever\whatever.exe" obwohl ich in der edit1.text nur "d:\programme\whatever\whatever.exe" eingegeben habe.

Nunja, ich würde es gerne komplett in Delphi schreiben. Nur leider weiss ich nicht wie. Kann mir einer helfen?

Sorry wenn es die falsche Section hier ist, bin ein Neuling

[s-off]

Hallo,

Zitat von N30N:

Nunja, ich würde es gerne komplett in Delphi schreiben. Nur leider weiss ich nicht wie. Kann mir einer helfen?

schau Dir diese Komponente einmal an.

[Klaus01]

... oder vielleicht auch diese Unit, auch von den Schweizern.

Grüße
Klaus

[Christian Seehase]

Moin N3ON,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Du könntest auch einfach hier mal nach IShellLink suchen.