Ikoner fra registreringsdatabasen

Tags:    delphi

Lige et par spørgsmål:

1. Hvordan får jeg ikonerne til "registrerede" filtyper vist i f.eks en ListView?

2. Er der nogen her der har erfaring med shellcombobox'en fra delphi 6. Jeg har lidt problemer med den. Den vil ikke vise "Denne computer", "Dokumenter", "netværkssteder", "papirkurv" og "Internet explorer". Altså systemmapperne på skrivebordet. Istedet tager den de første "rigtige" mapper og viser dem.


Mvh

Søren

[Redigeret d. 31/08-02 15:17:56 af Søren Jespersen]



3 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Hejsa!

Spørgsmål nummer 1. kan jeg vist godt svare på :)
Vi havde for et år siden et spørgsmål nogleunde ligesom, og jeg mener at svaret blev noget med:

<pre>
function GetFileIcon(FileName: string): TIcon;
var
FileInfo: SHFILEINFO;
begin
SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_ICONLOCATION);
Result := TIcon.Create;
Result.Handle := FileInfo.hIcon;
end;</pre>

Sådan! Håber at det virker... har du nogen problemer så bare sig til :)

- Nick
- www.nizro.h4f.dk - Meet me!
- Send me mails at cnn@pc.dk



tak for dit svar, men det vil ikke rigtig virke.

Skal jeg tilføje et eller andet til min uses for at det virker.?

dette er de fejlbeskeder der kommer når jeg forsøger at compile

[Error] Unit1.pas(29): Undeclared identifier: 'SHFILEINFO'
[Error] Unit1.pas(31): Undeclared identifier: 'SHGetFileInfo'
[Error] Unit1.pas(31): Undeclared identifier: 'SHGFI_ICON'
[Error] Unit1.pas(31): Undeclared identifier: 'SHGFI_ICONLOCATION'
[Warning] Unit1.pas(31): Combining signed and unsigned types - widened both operands
[Error] Unit1.pas(33): Missing operator or semicolon
[Error] Unit1.pas(34): Statement expected, but expression of type 'HICON' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Mvh

Søren[Redigeret d. 01/09-02 13:49:38 af Søren Jespersen]



tak for dit svar, men det vil ikke rigtig virke.

Skal jeg tilføje et eller andet til min uses for at det virker.?

dette er de fejlbeskeder der kommer når jeg forsøger at compile

[Error] Unit1.pas(29): Undeclared identifier: 'SHFILEINFO'
[Error] Unit1.pas(31): Undeclared identifier: 'SHGetFileInfo'
[Error] Unit1.pas(31): Undeclared identifier: 'SHGFI_ICON'
[Error] Unit1.pas(31): Undeclared identifier: 'SHGFI_ICONLOCATION'
[Warning] Unit1.pas(31): Combining signed and unsigned types - widened both operands
[Error] Unit1.pas(33): Missing operator or semicolon
[Error] Unit1.pas(34): Statement expected, but expression of type 'HICON' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


Prøv at tilføje ShellAPI til uses. Det burde ihvertfald ordne de der Undeclared identifier-fejl.




t