LNk-Datei erstellen

[horsthorn]

Wer hat ein Codeschnipsel, mit dem man ganz einfach eine lnk-Date erstellen kann

[Jac de Lad]

Ich.

Der Source ist aber nicht von mir, sondern vom guten alten Andreas Miethe.

[horsthorn]

Danke Jac
Jetzt muss ich Dummkopf da nur noch durchblicken

[Jac de Lad]

Hatte es so runtergeladen und noch nicht aufbereitet. Das schaffst du schon.

[horsthorn]

Leichte Verzeiflung macht sich breit
Was mache ich falsch ? - Die lnk-Datei wird erstellt, aber wenn ich probehalber versuche, sie zu starten, kommt ein Fehlerfenster von Profan

DEF @GSFP(4) ! "Shell32","SHGetSpecialFolderPathA"
DECLARE pfad$
pfad$=GETDIR$("@")
$I Ole_ShellLink.inc

Declare LinkFile$,TargetFile$,Description$,WorkingDirectory$,Arguments$,IconFile$,IconNo &
TargetFile$ = pfad$+"\\quickstart_se.exe"
Description$ = ""
IconFile$ = ""
IconNo& = 0
WorkingDirectory$ = LEFT$(pfad$,3)
Arguments$ = pfad$+"\\quickstart_se.exe"

LinkFile$ = Space$(255)
GSFP(0,ADDR(LinkFile$),2,0)'Pfad zu Startmenü-Programme
LinkFile$ = Trim$(LinkFile$)+"\\quickstart_se.lnk"
'Link im Startmenü-Programme anlegen
CreateLink LinkFile$,TargetFile$,Description$,WorkingDirectory$,Arguments$,IconFile$,IconNo &
END

[horsthorn]

Problem gelöst - Denkfehler aus eigenem Hirn entfernt
So klappt es:

TargetFile$ = pfad$+"\\quickstart_se.exe"
Description$ = ""
IconFile$ = ""
IconNo& = 0
WorkingDirectory$ = pfad$
Arguments$ = "\\quickstart_se.exe"