| |
| |
|
 | Hello Frank
CompileMarkSeparation
this is The row, with the The Image-list in my Program invited becomes. functions too fine. now Have I but on reason one Tipps of J. Sellmeier fixes, that sometimes not correctly. viewed becomes. lying the on the Systemeinstellung or can You have the one little verfeinern ? - It's all right in first line around the LNK-Files. If I with the Kurzcode of PRFellow a LNK-.File aufrufe, shows me the Text the Icon the with the LNK-File verknüpften application. might the in your DLL too possible made go ?
here the code:
CompileMarkSeparationPRFellow-Vorlage
Autor: Thomas Hölzer
Das Handle des mit einer Programm- oder Datendatei verbundenen
Icons ermitteln
Benötigt unbedingt Profan 6.1 (32) wg. Addr-Funktion
Besonders nett: Wenn die Datei nicht existiert oder der
Iconindex (3.Parameter) nicht stimmt, wird ein Standardicon
geliefert. Das Ergebnis der Proc steht in @&(0)
Def w32_ExtractAssociatedIcon(3) !"SHELL32","ExtractAssociatedIconA"
declare x#
Proc ExtractAssociatedIcon
Parameters f$,i&
Declare h&
Dim x#,255
String x#,0=f$
Let i&=1
Let h&=w32_ExtractAssociatedIcon(%hinstance,x#,Addr(i&))
Dispose x#
Return h&
EndProc
Beispiele
Def w32_DrawIcon(4) !"USER32","DrawIcon"
Cls
WindowTitle "Icons von AUTOEXEC.BAT und unbekannter Datei"
ExtractAssociatedIcon "C:\AUTOEXEC.BAT",1
w32_DrawIcon(%hdc,100,100,&(0))
ExtractAssociatedIcon "C:\Mozilla Thunderbird.lnk" Normal ist die Datei im DESKTOP
Hier habe ich sie für Test-Zwecke auf die Festplatte kopiert
w32_DrawIcon(%hdc,150,100,&(0))
WaitInput
...and here neckline from of my DESKTOP-display with The LISTVIEW.DLL |
 |
| |
| |
| |
|
|
Frank
Abbing | CreateImageList() with Flag 1 fetch whom lever the system-Imagelist. means The list, with the the system operates with the To this Time therein liegenden Icons.
You can but anytime a Own Imagelist set up, with all Icons, The You benötigst. some compel Definitionen moreover find itself already in the File Listview_Funktionen.inc. How is a Own Image List using, shows z.B. the List view-demonstration Gezeichnete_Bitmap_einbauen.prf.
using You against FilelistToCsv() and want You The Linked Icons Show, then schalte simply Flag $200 moreover. the delayed though The process circa ca. the double. |
|
| |
| |
| |
|
|
| @Frank
[quote:dc7b1fb0f0]using You against FilelistToCsv() and want You The Linked Icons Show, then schalte simply Flag $200 moreover. the delayed though The process circa ca. the double.[/quote:dc7b1fb0f0]
here's one statement from my Text. Original übernommen from the guide and others List view-variables installed. first thing question I always, as 31 together comes. with the Values from the guide come I only To 25 - ? - If I now 200 dazugebe, becomes The display utterly to that chaos ? -
what runs there schief ?
CompileMarkSeparationbytes&=FilelistToCsv(addr(text$),bereich#,0,0,31,icons#)
x&=SetColumnsFromMem(LINKS_VIEW&,bereich#,addr(spalte%))
CsvToListview(LINKS_VIEW&,(bereich#+spalte%),(bytes&-spalte%),x&)
z&=GetLines(LINKS_VIEW&)
SetIconsFromMem(LINKS_VIEW&,0,icons#,z&)/pre>
One ziehmlich fertiger horst 
Nachtrag: in the Explorer-demonstration into Beispieltexten standing on same place $11f and here are neutrale Icons in the view ? |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Hello Horst,
you mußt not 200 separate $200 dazuaddieren. $200 is Hex$(512). |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 11/16/06 ▲ |
|
| |
|
|
Frank
Abbing | |
| |
| |
| |
|
|
| @thanks Jörg - but I have a Umrechner for Hex-values 
@Frank - not so dirty grinning
CompileMarkSeparationbytes&=FilelistToCsv(addr(text$),bereich#,0,0,($1+$2+$4+$8+$10+$200),icons#)
bytes&=FilelistToCsv(addr(text$),bereich#,0,0,(543),icons#)e>
both Schreibweisen having no bearing. now my I but, sometime had my Program The Icons displayed. will be today noon (must to that doctor  ) PROFAN-9 arrange and so try. Perhaps there a Diskrepanz (nice word) between List view.dll and XProfan-10 ? |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Hello Horst,
I have now The Filtermöglichkeiten the Dll not head, but You can Perhaps lnk-Files first time except and then as an afterthought insert and the Icons with the Code Prfellow dazupacken.
the slow whom code naturally, there You each Verzeichniswechsel checken must, whether such Files present are.
Perhaps resolve itself the trouble indeed yet of alone... |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 11/17/06 ▲ |
|
| |
|
|
Frank
Abbing | The Flag serves in first line Exe-Files, so the Icon the Exe displayed and is not the Standarticon. I knows but, that it too with ähnlichen Files functions. whether it with Lnk-Files too goes, have I never tested and Have on this computer neither The Possibility moreover (is no Profan and MASM installs).
...and - I grin never low-down... ;D |
|
| |
| |
| |
|
|
| @Frank
[quote:84ccfeb126]...and - I grin never low-down... happy[/quote:84ccfeb126]
response - see Image....  |
|
| |
| |
| |
|
|
Frank
Abbing | ...Dou you mean about the moral unterstützende Zähneblecken? 
 |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | If here of/ one grin, then still well I, or? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 11/17/06 ▲ |
|
| |
|
|
Frank
Abbing | Hi,
Have time one little experimentiert and nachgelesen. The thing with the Lnk-Files is something komplizierter as virtual.
Hierbei isn't the trouble, on the linked-Icon To come, separate this To archivieren. moreover must one know, that one List view (with icons) on a Imagelist tied is and no disengaged Icons use can. only Icons, which in the Image List find, can uses go. FilelistToCsc() using to The Systemimageliste. the Dazufügen, take away and enable of Icons is with of/ one Dll-function, The everything in a Slip ausliest and first then on a grafically routine commit, To costly. moreover must I me first thoughts make.
you become means first of all without The Link-Icons get along must.
The Flag $200 is in this shape too only a Krücke, because the Systemimageliste continually Change can and the To Fehlern lead can. the I will so not yet let, so I therefore Please, this Flag not absolutely To using. there will what Change.
And if I already thereby be, I will too grosse Icons same with include. |
|
| |
| |
| |
|
(762)
Deutsch
English
Français
Español
Italia
