Na koji nacin mogu da vidim sa kojim fajlom je povezana neka precica (.lnk i .pif)?
Citanje precica?
Zaključano
Zakačeno
Hvala, ali nisam napomenuo da mi treba resenje bez subclassinga, a ovaj primer sam vec skinuo, mada nisam ni znao (
) dok mi FlashGet nije izbacio poruku da je to vec preuzimano. Pogledao sam kod, i nije los (mogao bih da ga iskoristim) ali bih voleo neki primer bez subclassinga (ako je ikako moguce) - ne volim da mi program koristi neke dll-ove koje nisam ja napisao...
U svakom slucaju hvala.
Pozdrav Svima!
) dok mi FlashGet nije izbacio poruku da je to vec preuzimano. Pogledao sam kod, i nije los (mogao bih da ga iskoristim) ali bih voleo neki primer bez subclassinga (ako je ikako moguce) - ne volim da mi program koristi neke dll-ove koje nisam ja napisao...U svakom slucaju hvala.
Pozdrav Svima!
Ako dodas referencu na Microsoft Shell Controls And Automation, onda mozes da koristis neke objekte, a izmedju ostalog tu je i ShellLinkObject, koji bi trebao da radi posao
Potpis
Pokusao sam ali nije uspelo (mislim nisam znao na koji nacin da otvorim precicu), pa sam otisao na MSDN i skinuo ovaj sample:
koji NE RADI!
ovde mi prijavljuje gresku:
ja sam pokusao da pronadjem resenje problema al bezuspesno!
Molim te pomogni mi sa ovim.
Pozdrav Svima!
Code:
Private Sub fnGetLinkVB()
Dim objShell As Shell
Dim objFolder2 As Folder2
Dim ssfPROGRAMS As Long
ssfPROGRAMS = 2
Set objShell = New Shell
Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
If (Not objFolder2 Is Nothing) Then
Dim objFolderItem As FolderItem
Set objFolderItem = objFolder2.ParseName("Internet Explorer.lnk")
If (Not objFolderItem Is Nothing) Then
Dim objLink As ShellLinkObject
Set objLink = objFolderItem.GetLink
If (Not objLink Is Nothing) Then
'Add code here
Else
'Folder object returned nothing
End If
Set objLink = Nothing
Else
'FolderItem object returned nothing.
End If
Set objFolderItem = Nothing
Else
'Folder object returned nothing.
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Sub
Private Sub fnGetLinkVB()
Dim objShell As Shell
Dim objFolder2 As Folder2
Dim ssfPROGRAMS As Long
ssfPROGRAMS = 2
Set objShell = New Shell
Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
If (Not objFolder2 Is Nothing) Then
Dim objFolderItem As FolderItem
Set objFolderItem = objFolder2.ParseName("Internet Explorer.lnk")
If (Not objFolderItem Is Nothing) Then
Dim objLink As ShellLinkObject
Set objLink = objFolderItem.GetLink
If (Not objLink Is Nothing) Then
'Add code here
Else
'Folder object returned nothing
End If
Set objLink = Nothing
Else
'FolderItem object returned nothing.
End If
Set objFolderItem = Nothing
Else
'Folder object returned nothing.
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Sub
koji NE RADI!
ovde mi prijavljuje gresku:
Code:
Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
ja sam pokusao da pronadjem resenje problema al bezuspesno!
Molim te pomogni mi sa ovim.
Pozdrav Svima!
Meni ovaj kod radi (XP SP2). Bice da na Win98 ne radi. Koju gresku dobijas?
Potpis
Isto i na ovom primeru ovde prijavljuje gresku:
A kaze "Type mismatch"!
A da nije sto je objFolder2 tipa Folder2 a NameSpace vraca Folder?
Mada kada ovo promenim ne radi ostatak koda :(
Code:
Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
A kaze "Type mismatch"!
A da nije sto je objFolder2 tipa Folder2 a NameSpace vraca Folder?
Mada kada ovo promenim ne radi ostatak koda :(
Hteo sam da kazem da bi trebalo da radi i na 98-ici (na onom linku pise da radi).
Inace sam i ja isprobao na XP-u i OK je. Gde prijavljuje gresku kad promenis stavis da ti je objFolder2 tipa Folder.
Inace sam i ja isprobao na XP-u i OK je. Gde prijavljuje gresku kad promenis stavis da ti je objFolder2 tipa Folder.
prvo, evo celog koda (ako neko naidje da ne mora da ide na onaj link ):
e gresku mi prijavljuje ovde:
kaze: "Object doesn't support this property or method" i upravu je pogledao sam Folder klasu u Object Exploreru i ona nema 'Self' kao folder2.
Stvarno ne znam sta da radim.
A dal mogu sa api-jem da izvucem target file iz precice?
):Code:
Private Sub fnFolderItemVerbNameVB()
Dim objShell As Shell
Dim objFolder2 As Folder2
Dim ssfPROGRAMS As Long
ssfPROGRAMS = 2
Set objShell = New Shell
Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
If (Not objFolder2 Is Nothing) Then
Dim objVerbs As FolderItemVerbs
Set objVerbs = objFolder2.Self.Verbs
If (Not objVerbs Is Nothing) Then
Dim szReturn As String
szReturn = objVerbs.Item(0).Name
Debug.Print szReturn
End If
Set objVerbs = Nothing
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Sub
Private Sub fnFolderItemVerbNameVB()
Dim objShell As Shell
Dim objFolder2 As Folder2
Dim ssfPROGRAMS As Long
ssfPROGRAMS = 2
Set objShell = New Shell
Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
If (Not objFolder2 Is Nothing) Then
Dim objVerbs As FolderItemVerbs
Set objVerbs = objFolder2.Self.Verbs
If (Not objVerbs Is Nothing) Then
Dim szReturn As String
szReturn = objVerbs.Item(0).Name
Debug.Print szReturn
End If
Set objVerbs = Nothing
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Sub
e gresku mi prijavljuje ovde:
Code:
Set objVerbs = objFolder2.Self.Verbs
Set objVerbs = objFolder2.Self.Verbs
kaze: "Object doesn't support this property or method" i upravu je pogledao sam Folder klasu u Object Exploreru i ona nema 'Self' kao folder2.
Stvarno ne znam sta da radim.
A dal mogu sa api-jem da izvucem target file iz precice?