Verknüpfte Dateiendungen ermitteln

[Andreas Schäfer]

Hallo,
gibt es eine Möglichkeit alle Verknüpften Dateiendungen mit den zugehörigen Applikationen in Windows zu ermitteln? Stehen diese Informationen in einer Ini Datei oder wo kann ich das finden?

Danke im Voraus

[Andreas Kosch]

Hallo,

die registrierten Dateiendungen sind in der Registry zu finden. Beispiel : <i>HKEY_CLASSES_ROOT\.pas</i&gt

[Jens Schumann]

Hallo Andreas,<br>
folgende procedure von Nico Bendlin funktioniert auch für Dateien, die es noch nicht gibt. D.h. wenn Du irgendwo in Deiner App einen Dateinamen stehen hast.
<pre>
procedure GetAssociatedIconEx(const Filename : String; Icon : TIcon);
var
SHFileInfo: TSHFileInfo;
begin
// CoInitialize has to be called before SHGetFileInfo (done by Delphi)
FillChar(SHFileInfo, SizeOf(TSHFileInfo), 0);
if (SHGetFileInfo(PChar(Filename), FILE_ATTRIBUTE_NORMAL, SHFileInfo,
SizeOf(TSHFileInfo), SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_SMALLICON) <> 0) then
// or SHGFI_LARGEICON, SHGFI_LINKOVERLAY, SHGFI_OPENICON, SHGFI_SELECTED
try
// get it
Icon.Handle := CopyIcon(SHFileInfo.hIcon);
finally
// you are responsible for destroying the icon handle
DestroyIcon(SHFileInfo.hIcon);
end;
end;
</pre&gt