Verknüpfung erstellen

Fraenki

Wie erstelle ich eine Verknüpfung, z.B auf dem Desktop zu meinem Programm?
In XP habe ich das so gemacht

Code

Def MultiByteToWideChar(6) !"kernel32","MultiByteToWideChar"
Def CoInitialize(1) !"ole32","CoInitialize"
Def CoUnInitialize(0) !"ole32","CoUninitialize"
Def CoCreateInstance(5) !"ole32","CoCreateInstance"


'###############################################################################################################################################
'Eine Verknüpfung erzeugen
'Parameters: File$   = Ziel für die Exe-Datei
'            Params$ = Zusätzliche Parameterübergabe für die Exe-Datei. Wenn nicht, dann leer lassen
'            Path$   = Arbeitsverzeichnis der Exe-Datei
'            Link$   = Zielverzeichnis und Name der Verknüpfung wo sie erstellt werden soll
'###############################################################################################################################################
Proc Verknuepfung
Parameters File$,Params$,Path$,Link$


'--------------------------------------------------------------
Proc CallMethod
Parameters IFace&,Method&
Declare VTable&
VTable& = long(IFace&,0)
Method& = long(VTable&,Method&*4)
Case %pcount = 2 : Return Call( Method&,IFace& )
Case %pcount = 3 : Return Call( Method&,IFace&,&(3) )
Case %pcount = 4 : Return Call( Method&,IFace&,&(3),$(4) )
EndProc
'--------------------------------------------------------------


Declare Link#,CLSID#,IShellLink&,IPersistFile&
Dim Link#,255
Dim CLSID#,48


Link$ = Link$+".Lnk"
CoInitialize(0)
  Long CLSID#, 0=$21401'   ClassID für IShellLink-Object
  Long CLSID#, 4=0
  Long CLSID#, 8=$C0
  Long CLSID#,12=$46000000
  Long CLSID#,16=$214EE'   InterfaceID für IShellLink-Interface
  Long CLSID#,20=0
  Long CLSID#,24=$C0
  Long CLSID#,28=$46000000
  Long CLSID#,32=$10B'     InterfaceID für IPersistFile-Interface
  Long CLSID#,36=0
  Long CLSID#,40=$C0
  Long CLSID#,44=$46000000

  CoCreateInstance(CLSID#,0,1,CLSID#+16,addr(IShellLink&))'Objekt erzeugen und Zugriff auf Interface
  CallMethod IShellLink&,9,addr(Path$)                    'IShellLink:SetWorkDir
  CallMethod IShellLink&,11,addr(Params$)                 'IShellLink:SetArguments
  CallMethod IShellLink&,20,addr(File$)                   'IShellLink:SetPath
  CallMethod IShellLink&,0,CLSID#+32,addr(IPersistFile&)  'IShellLink:QueryInterface
  MultiByteToWideChar(0,0,addr(Link$),-1,Link#,250)       'MakeWideChar
  CallMethod IPersistFile&,6,Link#,1                      'IPersistFile:Save
  CallMethod IPersistFile&,2                              'IPersistFile:Release
  CallMethod IShellLink&,2                                'IShellLink:Release
CoUnInitialize()
Dispose Link#
Dispose CLSID#
EndProc

Alles anzeigen

Funktioniert bei XP, nur bei Win7 nicht, denn da stürzt das Programm ab. Gibts denn nichts einfacheres ???

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

True29

hm schick doch einfach ne fertige verknüpfung mit
einziges problem wäre nur , das würde nur gehen wenn du ein festes verzeichnis hast.

eventuell bringts dich ja auch eine idee.

Frank A.

Ich selbe benutze diesen Code, der unter Windows 7 auch anständig funktioniert:
http://www.paules-pc-forum.de/forum/810534-post35.html

Code

Declare CLSID_IShellLink#
Declare IID_IShellLink#
Declare IID_IPersistFile#


Declare inifile$, mem#


Def SHGetSpecialFolderLocation(3) !"SHELL32","SHGetSpecialFolderLocation"
Def SHGetPathFromIDList(2) !"SHELL32","SHGetPathFromIDListA"
Def CoTaskMemFree(1) !"OLE32","CoTaskMemFree"
DEF MultiByteToWideChar(6) ! "Kernel32","MultiByteToWideChar"
DEF CoInitialize(1) ! "OLE32","CoInitialize"
DEF CoUnInitialize(0) ! "OLE32","CoUninitialize"
DEF CoCreateInstance(5) ! "OLE32","CoCreateInstance"
DEF GetModuleFileName(3) ! "KERNEL32","GetModuleFileNameA"


DEF &PShell_Release     8
DEF &PShell_SetDescription 28
DEF &PShell_SetWorkingDirectory 36
DEF &PShell_SetArguments 44
DEF &PShell_SetIconLocation 68
DEF &PShell_SetPath 80
DEF &PFile_Release 8
DEF &PFile_Save 24


Proc CreateLink


   Declare Pshell&,PFile&,Command&
   Declare WideFile$
   Parameters LinkFile$,Datei$,Beschreibung$,Arbeitsordner$,Argumentenliste$,IconFile$,IconNo&
   Dim CLSID_IShellLink#,16
   Long CLSID_IShellLink#,0 = $00021401, 0
   Byte CLSID_IShellLink#,8 = $C0, 0, 0, 0, 0, 0, 0, $46
   '
   Dim IID_IShellLink#,16
   Long IID_IShellLink#,0 = $000214EE, 0
   Byte IID_IShellLink#,8 = $C0, 0, 0, 0, 0, 0, 0, $46
   '
   Dim IID_IPersistFile#,16
   Long IID_IPersistFile#,0 = $0000010b, 0
   Byte IID_IPersistFile#,8 = $C0, 0, 0, 0, 0, 0, 0, $46
   '
   CoInitialize(0)
   CoCreateInstance(CLSID_IShellLink#,0,1,IID_IShellLink#,Addr(PShell&))
   Command& = Long(Pshell&,0)
   CALL(LONG(COMMAND&,0),PShell&,IID_IPersistFile#,Addr(PFile&))'QueryInterface ermitteln
   CALL(LONG(COMMAND&,&PShell_SetPath),PShell&,Addr(Datei$))'Datei
   CALL(LONG(COMMAND&,&PShell_SetDescription),PShell&,Addr(Beschreibung$))'Beschreibung
   CALL(LONG(COMMAND&,&PShell_SetWorkingDirectory),PShell&,Addr(Arbeitsordner$))'Arbeits-Ordner
   CALL(LONG(COMMAND&,&PShell_SetArguments),PShell&,Addr(Argumentenliste$))'Argumentenliste
   CALL(LONG(COMMAND&,&PShell_SetIconLocation),PShell&,Addr(IconFile$),IconNo&)'IconLocation
   WideFile$ = Space$(Len(LinkFile$)*2)
   MultiByteToWideChar(0,1,addr(LinkFile$),-1,addr(WideFile$),Len(WideFile$))'LinkFile umwandeln
   Command& = Long(PFile&,0)
   CALL(LONG(COMMAND&,&PFile_Save),PFile&,Addr(WideFile$),1)'LinkFile speichern
   Command& = Long(PShell&,0)
   CALL(LONG(COMMAND&,&PShell_Release),PShell&)
   Command& = Long(PFile&,0)
   CALL(LONG(COMMAND&,&PFile_Release),PFile&)
   CoUnInitialize()
   Dispose CLSID_IShellLink#
   Dispose IID_IShellLink#
   Dispose IID_IPersistFile#


EndProc


Cls


Dim mem#, 1024
GetModuleFileName(0, mem#, 1024)
Inifile$ = String$(mem#,0)


CreateLink("C:/test3.lnk", Inifile$, "", "", "", "", 1)


WaitInput

Alles anzeigen

Fraenki

Zitat von True29;940230

hm schick doch einfach ne fertige verknüpfung mit
einziges problem wäre nur , das würde nur gehen wenn du ein festes verzeichnis hast.
eventuell bringts dich ja auch eine idee.

Das wäre natürlich auch eine Idee, he noch ca nicht darüber nachgedacht.

Fraenki

Zitat von Frabbing;940266

Ich selbe benutze diesen Code, der unter Windows 7 auch anständig funktioniert:
http://www.paules-pc-forum.de/forum/810534-post35.html

Danke für die Info. Trotz suche hab ich das nicht gefunden.
Wenns klappt werde ich es heut noch probieren. Habe gerade Feierabend gemacht, von 8 Uhr - 22:30 Uhr war ne lange Zeit.

Fraenki

Dank, klappt sehr gut. Habs mal schnell getestet.
Ist genau das was ich gesucht habe.

Frank A.

Was, nach 14,5 Stunden schon Feierabend?

horst_

Zitat von Frabbing;940365

Was, nach 14,5 Stunden schon Feierabend?

Frank
...und wenn man dann noch die Pausen abrechnet...
Der Mann ist nicht voll ausgelastet ! :D;)

Frank A.

Fraenki

Zitat von Frabbing;940365

Was, nach 14,5 Stunden schon Feierabend?

Hab fast vergessen aufzuhören :D.
Als freiberuflicher Arbeitsloser doch ganz gut, he.

Fraenki

Zitat von horsthorn;940366

Frank
...und wenn man dann noch die Pausen abrechnet...
Der Mann ist nicht voll ausgelastet ! :D;)

He Du bist mir einer.
Jetzt kann ich nur noch hoffen wenn ich Dein Alter erreicht habe daß ich noch so Fit bin.

Pausen ??? Ich doch nicht, nur um ein, zwei,... Bier zu trinken

Frank A.

Ein arbeitsloser Workaholic, verstehe.

Fraenki

Zitat von Frabbing;940563

Ein arbeitsloser Workaholic, verstehe.

Sischer ,hicks

Fraenki

Klappt also Klasse mit dem Code, somit habe ich viele Probleme lösen können.

Jetzt mitmachen!