Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Ricavare l'exe da un link

Salve, non so se devo considerarmi un po masochista ma in questo periodo
sono ispirato..
Il mio obbiettivo č quello di consentire all'utente di trascinare
all'interno di una mia finestra il link ad una qualsiasi applicazione
presente nel desktop o nei vari menu ed il mio problema č di risalire dal
link all'applicazione vera e propria per poi eseguire le operazioni che ho
in mente.
Non č proprio un problema di Drag&Drop perchč dopo aver intercettato
l'evento di trascinamento del link all'interno della mia finestra mi ritrovo
il link, che riesco a recuperare, ma non so come risalire all'eseguibile
associato.
Garzie per l'aiuto.
Michele

Beh,
visto che comunque il link ce l'hai...e visto che sei pure
masochista...perchè non ti apri il file del link...te lo leggi e ti
estrapoli il percorso completo dell'applicazione? Per informazioni sul
formato LNK visita 
http://www.wotsit.org
 che ti può essere utile per vedere
com'è fatto quasiasi formato.
Gianni Moretti

all'interno di una mia finestra il link ad una qualsiasi applicazione
Io faccio cosi': sul mio form gestisco il DragDrop a mano e quindi:
*****
Private Sub MDIForm_OLEDragDrop(Data As DataObject, Effect As Long,
Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Contatore As Byte
Dim Estensione As String
Dim NomeFile As String
    For Contatore = 1 To Data.Files.Count
        Estensione = EstraiNomeFile(Data.Files(Contatore), ".")
        Select Case Estensione
            Case "TES", "tes"
                ApriTesto Data.Files(Contatore)
            Case "TAB", "tab"
                ApriTabella Data.Files(Contatore)
            Case "TAI", "tai"
                ApriTabellaImportata Data.Files(Contatore)
            Case "LBR", "lbr"
                ApriLibretto Data.Files(Contatore)
            Case Else
                MsgBox "Impossibile aprire " & Data.Files(Contatore) &
_
                    ": tipo file non supportato"
        End Select
 
        'Aggiungo il file aperto alla lista dei files recenti
        NomeFile = EstraiNomeFile(Data.Files(Contatore), "\")
        Call SHAddToRecentDocs(2, Left((NomeFile), Len(NomeFile) - 4))
    Next
End Sub
*****
Naturalmente, ti serve la funzione EstraiNomeFile, che e':
*****
Function EstraiNomeFile(Stringa As String, Separatore As String) As
String
Dim Posizione As Long
Dim Resto As Variant
 
    Resto = Stringa
 
    Do
        Posizione = InStr(Resto, Separatore)
        If Posizione = 0 Then Exit Do
        Resto = Right$(Resto, Len(Resto) - Posizione)
    Loop
 
    EstraiNomeFile = Resto
 
End Function
*****
Sperando di esserti stato utile, ti regalo volentieri 2 giorni di
lavoro =)
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

 ha scritto nel messaggio
news:req78t85g44t17o4m...@4ax.com...




Ah, non avevo capito.
Io ci trascino direttamente i miei files sopra, in effetti =)
Comunque su 
http://www.wotsit.org
 ci dovresti trovare il formato dei
files .lnk. Quindi e' sufficiente che tu apri il file come binario e
poi estrai quel che ti serve dal contenuto.
