|
Anzeige:
|
|
|||||||
| Spezielles Für die Bereiche API, Subclassing, Inline-Assembler, Prozesse, ect. |
EM-Tippspiel
Paule bei Facebook
Paule bei Twitter
Navigation
Letzte Forenthemen
Anzeige:
|
 |
|
|
LinkBack | Themen-Optionen | Ansicht |
17.01.2012, 21:02
|
#1 (Direktlink) |
|
Super-Moderator
 
Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.094
|
Icon einer Link-Datei (Verknüpfung / .lnk) ermitteln
Code:
'
' (C) 2012 Frank Abbing für Paules-PC-Forum.de
'
Struct SHFILEINFO = hIcon&,iIcon&,dwAttributes&,szDisplayName#(260),szTypeName#(80)
Declare file$, shfi#, icon&
Dim shfi#, SHFILEINFO
file$ = "C:\\test.lnk"
External("shell32.dll", "SHGetFileInfoA", Addr(file$), 0, shfi#, SizeOf(shfi#), $8100)
icon& = shfi#.hIcon&
Cls
DrawIcon icon&, 8, 8
Create("IconButton", %hwnd, icon&, 8, 48, 40, 40)
WaitInput
__________________
Gruß, Frank  Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
17.01.2012, 22:32
|
#2 (Direktlink) |
|
MoRoGeP-Träger 2011
 
Registriert seit: 06.02.2009
Ort: Heidelberg
Alter: 71
Beiträge: 1.877
|
@Frank
Danke für den Code Gebraucht wird er für dieses kleine Tool. Die rechten 3 Buttons sind mit *.LNK-Verknüpfungen belegt und da wollte ich auch die Buttons zeigen. Jetzt mit deinem Code klappt das  
__________________
Gruss, horst Computer werden kleiner und kleiner, bald verschwinden sie völlig. (Ephraim Kishon 1924-2005) http://www.web-treffpunkt.de |
|
|
|
|
18.01.2012, 06:59
|
#3 (Direktlink) |
|
Super-Moderator
Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.094
|
Prima, freut mich.
__________________
Gruß, Frank Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
18.01.2012, 11:21
|
#4 (Direktlink) |
|
MoRoGeP-Träger 2011
Registriert seit: 06.02.2009
Ort: Heidelberg
Alter: 71
Beiträge: 1.877
|
Die Sache klappt
 Habe willkürlich *.LNK-Verknüpfungen ausgewählt (erkenntlich am kleinen Pfeil) und auch diese starten ohne Probleme mit KLick auf den Button.Danke noch mal an alle, die mitgeholfen haben.  Wer die Spielerei haben will, Mail genügt (Betreffzeile: "Starter 1.05")
__________________
Gruss, horst Computer werden kleiner und kleiner, bald verschwinden sie völlig. (Ephraim Kishon 1924-2005) http://www.web-treffpunkt.de |
|
|
|
|
16.02.2012, 13:32
|
#5 (Direktlink) |
|
Stammuser
 Registriert seit: 04.04.2009
Ort: Lübeck
Beiträge: 264
|
Ich werde mich einmal hier reinhängen.
@Frank hast du, oder jemand anders, noch so einen tollen Tip, wie das Icon für spezielle Ordner zu ermitteln ist? Bisher weise ich es manuell zu. Code:
Exe_Ziel$[x%,1]="Systemsteuerung"
bild& = @Create("hIcon","shell32.dll", 21)
ImageList("AddIcon", ilist&,bild&)
|
|
|
|
|
|
16.02.2012, 15:09
|
#6 (Direktlink) |
|
Forenmaskottchen
 Registriert seit: 23.01.2011
Ort: Bernburg
Alter: 58
Beiträge: 756
|
Normale Ordner können eine versteckte Systemdatei DESKTOP.INI haben:
[.ShellClassInfo] IconResource=C:\Windows\system32\SHELL32.dll,234 Für spezielle Systemordner brauchst Du die CLSID des Objektes. Beispiel Arbeitsplatz (oder Computer je nach System) HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\DefaultIcon Standard = %SystemRoot%\System32\imageres.dll,-109 Abweichend Papierkorb, weil der getrennte Symbole für voll und leer haben kann HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\DefaultIcon Standard = %SystemRoot%\System32\imageres.dll,-55 Empty = %SystemRoot%\System32\imageres.dll,-55 Full = %SystemRoot%\System32\imageres.dll,-54 Ich hoffe, das war es, was Du suchst. Gruß Volkmar |
|
|
|
|
16.02.2012, 16:27
|
#7 (Direktlink) |
|
Super-Moderator
Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.094
|
Dafür hab ich leider nichts parat.
__________________
Gruß, Frank Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
16.02.2012, 20:28
|
#8 (Direktlink) |
|
Stammuser
Registriert seit: 04.04.2009
Ort: Lübeck
Beiträge: 264
|
@Volkmar, Danke für den Tip. Fürs Starten hatte ich schon div. CLSID gefunden CLSID Nummern der wichtigsten Funktionen
Nur halt nur nicht zum Icon. Ich wollte mein Panel nach Franks Tip mal etwas erweitern. Seid ihr so nett und testet es einmal unter W7, ob es da auch noch so geht. LG Thomas Geändert von THFR (17.02.2012 um 01:17 Uhr) Grund: Test zurückgezogen. Zuviele Macken |
|
|
|
|
16.02.2012, 21:16
|
#9 (Direktlink) |
|
Super-Moderator
Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.094
|
Hab hier leider nur XP zur Hand. Flackert ziemlich, das Ganze. Aber ist ja sicher noch nicht fertig.
__________________
Gruß, Frank Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
16.02.2012, 22:16
|
#10 (Direktlink) |
|
Stammuser
Registriert seit: 04.04.2009
Ort: Lübeck
Beiträge: 264
|
Ja, ist durch den Umbau verschlimmbessert. Hab's ja schon eine Weile nur mit exe-Verknüpfungen und Änderungen (Lage, Anzahl der Items) manuell in der icopanel.cfg gemacht. Kann im Moment nicht nachvollziehen, warum das Listview bei jedem Klick erneuert wird.
Gruß Thomas |
|
|
|
|
|
16.02.2012, 22:50
|
#11 (Direktlink) |
|
Super-Moderator
Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.094
|
Ja, die Dinger reagieren mit Hintergrundbild mitunter seltsam.
__________________
Gruß, Frank Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
|
| Lesezeichen |
| Themen-Optionen | |
| Ansicht | |
|
|
|
Ähnliche Themen
|
||||
| Thema | Autor | Forum | Antworten | Letzter Beitrag |
| Icon-Dimension ermitteln? | Frabbing | XProfan | 6 | 25.10.2009 20:25 |
| Icon für Verknüpfung ist schwarz | sit | Office-Anwendungen | 2 | 29.01.2009 12:05 |
| Anzahl einer Spalte ermitteln, addieren und dann teilen | K. R. Eyden | PHP/MySQL | 1 | 20.02.2008 17:02 |
| IP adresse des absenders einer email ermitteln? | Julli | Allgemein | 19 | 27.03.2006 14:37 |
| 2 Anwendungen in einer Verknüpfung? | Passy | Windows XP | 6 | 02.03.2005 15:40 |
Forum
Empfohlen: 
Linear-Darstellung
