Declare Function SHChangeIconDialog Lib "shell32" Alias "#62" _
(ByVal hFormOwner As Long, ByVal szFileName As String, _ ByVal Reserved As Long, lpIconIndex As Long) As Long Per Aprire una Finestra di Selezione delle Icone, Devi Utilizzare questa Funzione API non documentata - hFormOwner e' l'handle della finestra che chiama i servizi della Dialog - szFileName e' la stringa che contiene il path del programma dal quale si vogliono attingere le icone. E' da notare che se si passa una stringa nulla, la dialog mostrera' le icone presenti in shell32.dll, mentre se si passera' un path errato, verra' generato l'errore File non trovato' ed in seguito sara' aperta la dialog su shell32.dll - Reserver parametro riservato (0&) - lpIcondIndex e' l'indice (in base 0) dell'icona prescelta. E' possibile chiamare la funzione con il parametro lpIconIndex gia' impostato; cio' causera' la selezione dell'icona corrispondente all'indice. La funzione restituisce 1 se e' tutto Ok (se e' stata selezionata un'icona) oppure 0 in caso di errore o di annullamento dell'operazione da parte dell'utente. Nei paramentri szFileName e lpIconIndex ti saranno restituiti rispettivamente il path del file da cui prelevare l'icona e l'indice dell'icona. Naturalmente, per cambiare l'icona ad un file dovrai poi lavorare sul registry (Chiave DefaultIcon) |