VISUALIZAR ICONES DE ATALHOS COLOCADOS EM PASTAS

USUARIO.EXCLUIDOS 07/12/2003 18:34:00
#118
Gostaria de Saber Como visualizar todos os ícones de atalhos que eu deixar dentro de uma determinada pasta. Estou com dificuldade, e peço ajuda a todos voçês.

Obrigado !!
USUARIO.EXCLUIDOS 11/12/2003 06:12:23
#663 Resposta escolhida
Por que você não salva as imagens logo no formato ico numa pasta e carrega essas imagens sempre que quizer? Aqui vai um bom código para a "criação" de ícones, se te ajudar, caso não me avise que desenvolvo um código para o que você quer.

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Function ExtrairDLL() As Boolean
ExtrairDLL = False
On Error Resume Next
Dim mMax As Integer, i As Integer
Dim imgI As ListImage
Dim hIcon As Long
Dim Name As String
Name = nFile(Text1.Text)
'MsgBox Name
mMax = ExtractIconEx(Text1.Text, -1, ByVal 0&, ByVal 0&, ByVal 0&) - 1
For i = 0 To mMax
    ExtractIconEx Text1.Text, i, hIcon, ByVal 0&, 1
    Set Picture1.Picture = LoadPicture("")
    DrawIcon Picture1.hdc, 0, 0, hIcon
    DestroyIcon hIcon
        pause 100
    Set imgI = ImageList1.ListImages.Add(, Name & "-" & i, Picture1.Image)
    ListView1.ListItems.Add , Name & "-" & i, Name & "," & i, Name & "-" & i
    SavePicture ImageList1.ListImages.Item(1).Picture, App.Path & "\icones\" & Name & " - " & i & ".ico"
Next
ExtrairDLL = True
End Function

Private Sub pause(i As Integer)
Dim ii As Integer
    For ii = 0 To i
        DoEvents
    Next
End Sub


Depois disso para abrir use o método LoadPicture().
Valeu?
USUARIO.EXCLUIDOS 11/12/2003 06:17:29
#664
Por que você não salva as imagens logo no formato ico numa pasta e carrega essas imagens sempre que quizer? Aqui vai um bom código para a "criação" de ícones, se te ajudar, caso não me avise que desenvolvo um código para o que você quer.

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Function ExtrairDLL() As Boolean
ExtrairDLL = False
On Error Resume Next
Dim mMax As Integer, i As Integer
Dim imgI As ListImage
Dim hIcon As Long
Dim Name As String
Name = nFile(Text1.Text)
'MsgBox Name
mMax = ExtractIconEx(Text1.Text, -1, ByVal 0&, ByVal 0&, ByVal 0&) - 1
For i = 0 To mMax
    ExtractIconEx Text1.Text, i, hIcon, ByVal 0&, 1
    Set Picture1.Picture = LoadPicture("")
    DrawIcon Picture1.hdc, 0, 0, hIcon
    DestroyIcon hIcon
        pause 100
    Set imgI = ImageList1.ListImages.Add(, Name & "-" & i, Picture1.Image)
    ListView1.ListItems.Add , Name & "-" & i, Name & "," & i, Name & "-" & i
    SavePicture ImageList1.ListImages.Item(1).Picture, App.Path & "\icones\" & Name & " - " & i & ".ico"
Next
ExtrairDLL = True
End Function

Private Sub pause(i As Integer)
Dim ii As Integer
    For ii = 0 To i
        DoEvents
    Next
End Sub


Depois disso para abrir use o método LoadPicture().
Valeu?

Acho que não saiu direito. Foi um erro de sintax do site provavelmente. Não importa tà' postando novamente.
Tópico encerrado , respostas não são mais permitidas
Voltar