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