Dateitypen und deren Icon auslesen (Problem)

[delphinia]

Servus,

eines vorweg, wie ich dateitypen und deren Icons auslese ist mir bekannt ABER
es gibt Dateitypen die NICHT auf normalen Wegen angesprochen werden zb: Normaler weg
.txt -> txtfile
HKEY_CLASSES_ROOT\txtfile\DefaultIcon
Hier steht das Icon so weit so gut!


ABER zum Beispiel das Programm Alcohol 120% macht es anders nur wie?

Das der Eintrag für den Typen CCD

Code:

[HKEY_CLASSES_ROOT\AlcoholImageFile]
@=""
"EditFlags"=dword:00000000

[HKEY_CLASSES_ROOT\AlcoholImageFile\DefaultIcon]
@="%1"

[HKEY_CLASSES_ROOT\AlcoholImageFile\ShellEx]

[HKEY_CLASSES_ROOT\AlcoholImageFile\ShellEx\ContextMenuHandlers]

[HKEY_CLASSES_ROOT\AlcoholImageFile\ShellEx\ContextMenuHandlers\AlcoholShellEx]
@="{32020A01-506E-484D-A2A8-BE3CF17601C3}"

[HKEY_CLASSES_ROOT\AlcoholImageFile\ShellEx\IconHandler]
@="{32020A01-506E-484D-A2A8-BE3CF17601C3}"

Habe herausgefunden mit hilfe des Explorers das eine DLL für die Icons per regsvr32 registriert wurde. Deregistriere ich diese File, kann auch der Explorere das icon zum besagten Typen nicht anzeigen...

Kann mir aber nun jemand erkläre wie das geht?
Wie ich das nutzten kann?

[mkinzler]

Es wird eine ShellExtension verwendet

[delphinia]

Hmm sowwit wie es heisst war ich auch schon!
Nur wie kann ich ein solches Icon ausgebe in meinem IconChange?


Es geht mit aber nicht um einen EIntrag im Menü des Exploreres sonder um die Icons der Dateitypen die irgendwie damit zusammen hängen!

[MathiasSimmack]

SHGetFileInfo enthält alles, was du benötigst.

[extrem]

...Icons für Dateiverknüpfungen herausfinden

[delphinia]

Zitat von extrem:

...Icons für Dateiverknüpfungen herausfinden

NICHT verknüpfungen! Sondern Typen!

[delphinia]

Zitat von MathiasSimmack:

SHGetFileInfo enthält alles, was du benötigst.

DAS ist mmir klar, das ich es damit bekommen könnte!
ABer es geht ja auch dann ums ändern des Icons! Oder kann ich dies dann auf normalen Wege tun?

[delphinia]

Es geht NICHT mit -> SHGetFileInfo... es wird mir dann KEIN Icon angezeigt bzw das Windows Icon für nicht definierte Typen!
Wenn ich dann im Gegensatz es mit der Endung TXT versuche wird mir das Icon angezeigt

Delphi-Quellcode:

procedure GetAssociatedIconEx(const Filename: string; Icon: TIcon);
var
  SHFileInfo: TSHFileInfo;
begin
  FillChar(SHFileInfo, SizeOf(TSHFileInfo), 0);
  if (SHGetFileInfo(PChar(Filename), FILE_ATTRIBUTE_NORMAL, SHFileInfo, SizeOf(TSHFileInfo), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES) <> 0) then
  try
    Icon.Handle := CopyIcon(SHFileInfo.hIcon);
  finally
    DestroyIcon(SHFileInfo.hIcon);
  end;
end;

// GEHT
procedure TExtMan_form.FlatButton1Click(Sender: TObject);
begin
  GetAssociatedIconEx('Test.txt', Icon.Picture.Icon);
end;

// GEHT NICHT
procedure TExtMan_form.FlatButton2Click(Sender: TObject);
begin
  GetAssociatedIconEx('Test.ccd, Icon.Picture.Icon);
end;

[extrem]

Delphi-Quellcode:

uses
  ActiveX;

...

procedure GetAssociatedIconEx(const Filename: string; Icon: TIcon);
var
  SHFileInfo: TSHFileInfo;
begin
  FillChar(SHFileInfo, SizeOf(TSHFileInfo), 0);
  if (SHGetFileInfo(PChar(Filename), FILE_ATTRIBUTE_NORMAL, SHFileInfo, SizeOf(TSHFileInfo), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES) <> 0) then
  try
    Icon.Handle := CopyIcon(SHFileInfo.hIcon);
  finally
    DestroyIcon(SHFileInfo.hIcon);
  end;
end;

procedure TExtMan_form.FlatButton2Click(Sender: TObject);
begin
  GetAssociatedIconEx('Test.ccd', Icon.Picture.Icon);
end;

...

initialization
  CoInitialize(nil);

finalization
  CoUnInitialize;

end.

Versuche es mal mit CoInitialize, dann geht es bei mir wenn man die unit ActiveX mit einbindet.

[delphinia]

Jo so geht es tatsächlich!
WAS ist daran nun soo viel besser? Was passiert da nun?

Danke erstmal. So wie verhält es sich mit dem Ändern des Icons? Das geschieht dann auf normalen Wege?
DefaulIcon Eintrag in der Registry?