Pfad einer Verknüpfung

[KeyKon]

Gibt es einen Befehl der den Pfad auf den sich eine Verknüpfung bezieht zurückgibt???

KeyKon

[Robert]

@KeyKon

ein Befehl ist mir nicht bekannt, aber vielleicht hilft dir das weiter:

Code: Alles auswählen

Procedure GetAssociatedProgram(Extension.s)
  Global AssociatedProgram$

  hKey.l = 0
  KeyValue.s = Space(255)
  datasize.l = 255
  AssociatedProgram$ = ""

  If RegOpenKeyEx_(#HKEY_CLASSES_ROOT, "." + Extension, 0, #KEY_READ, @hKey)  = #ERROR_SUCCESS
    If RegQueryValueEx_(hKey, "", 0, 0, @KeyValue, @datasize) = #ERROR_SUCCESS
      KeyNext.s = Left(KeyValue, datasize-1)
      hKey.l = 0
      KeyValue.s = Space(255)
      datasize.l = 255
      If RegOpenKeyEx_(#HKEY_CLASSES_ROOT, Keynext + "\Shell\Open\Command", 0, #KEY_READ, @hKey) = #ERROR_SUCCESS
        If RegQueryValueEx_(hKey, "", 0, 0, @KeyValue, @datasize) = #ERROR_SUCCESS
          AssociatedProgram$ = Left(KeyValue, datasize-1)
        EndIf
      EndIf
    EndIf
  EndIf
  Pos = FindString(LCase(AssociatedProgram$), ".exe", 1)
  If Pos <> 0
    AssociatedProgram$ = Left(AssociatedProgram$, Pos + 4)
    AssociatedProgram$ = RemoveString(AssociatedProgram$, Chr(34), 1)
  EndIf

  ProcedureReturn AssociatedProgram$
EndProcedure

[ts-soft]

Ich glaub da hat sich der Fehlerteufel eingeschlichen

Erste Zeile soll wohl:

Code: Alles auswählen

Procedure.s GetAssociatedProgram(Extension.s)

lauten

[Max.]

Gibt es einen Befehl der den Pfad auf den sich eine Verknüpfung bezieht zurückgibt???

KeyKon

Danilo hat in diesem (bezw. dem alten) oder dem englischen Forum mal den Code geposted. Finde ich leider momentan nicht...

[Andre]

@ts-soft: das war schonmal ein guter Tipp.

Wollte die Procedure mal mit einer Verknüpfung auf meinem Desktop testen

Code: Alles auswählen

Debug GetAssociatedProgram("C:\Dokumente und Einstellungen\André\Desktop\Rechner")

aber das gibt's nur einen leeren String !?

[Robert]

Sorry, ich dachte KeyKon meinte eine Dateiverknüpfung, nicht einen Link auf dem Desktop. ts-soft hat natürlich recht, muß Procedure.s lauten.

[KeyKon]

Also ich komm jetzt nicht so ganz mit aber der Code von Robert funktioniert nicht.

KeyKon

[Robert]

Hallo KeyKon,

ich hab dich leider falsch verstanden. Wie bereits gesagt ist die Prozedur nur für Dateiverknüpfungen zu gebrauchen, wenn man wissen möchte, mit welchem Pfad + Programm z.B. ein Word-Dokument (Extension = doc) geöffnet wird.

GetAssociatedProgram("doc")
debug AssociatedProgram$

Damit kann man natürlich keinen Pfad von Verknüpfungen auf dem Desktop oder der Shortcut-Leiste ermitteln. Wie das geht weiß ich leider nicht, da muß dir ein anderer helfen.

Sorry nochmal für das Mißverständnis!

Robert

[KeyKon]

Aha! Danke für die aufklärung. Nun, weis da irgendjemand was drüber:
Wie kann ich den Pfad einer Verknüpfung das heißt .Ink;.Lnk ermitteln?

KeyKon

[MLK]

musst halt nur den pfad austauschen, bzw ne prozedur draus basteln, in der du den pfad übergibst.

Code: Alles auswählen

If ReadFile(0,"C:\Dokumente und Einstellungen\All Users\Desktop\Media Player Classic.lnk")
  Repeat
    ergebnis.s=ReadString()
  Until Mid(ergebnis,2,1)=":"
  Debug ergebnis
Else
  Debug "konnte nicht gelesen werden"
EndIf

edit: scheint nicht bei allen verknüpfungen zu funktionieren.
edit2: doch, hatte nur den falschen ordner erwischt (win2000 admin/allusers und so)