Icon/Text zu Dateierweiterung auslesen

[Nils_13]

Hi,

ich möchte zu jeder beliebigen Datei die Beschreibung, welche im Explorer bei "Typ" steht auslesen. Wie geht das ?

[Die Muhkuh]

Hi,

hier wird gezeigt, wie man eine eigene Dateiendung registriert und dabei werden eben diese Daten angegeben. Du musst das ganze nur umdrehen und schon hast Du es ;-)

[Nils_13]

Gute Idee, also so ?

Delphi-Quellcode:

function GetIcon(Extension : String): Boolean;
var Reg: TRegistry;
begin
  Result := False;
  if Extension <> '' then
  begin
    if Extension[1] <> '.' then
      Extension := '.' + Extension;

    Reg := TRegistry.Create;
    try
      Reg.RootKey := HKEY_CLASSES_ROOT;
      if Reg.OpenKey(Extension, True) then
        if Reg.OpenKey('DefaultIcon', True) then
          Reg.ReadString('DefaultIcon'); // <-- das ist das Icon
    finally
      Reg.Free;
    end;
  end;
end;

[Christian Seehase]

Moin Nils,

damit liest Du den Pfad zum Icon aus.

Übrigens gehört zu jedem erfolgreichen OpenKey auch ein CloseKey.
Ausserdem solletst Du mit ValueExists erst einmal prüfen, ob der Wert überhaupt da ist.

[Nils_13]

Ok:

Delphi-Quellcode:

if ValueExists('DefaultIcon') then
  Reg.ReadString('DefaultIcon');

Wie kommt man an das Icon denn ran ? Der Pfad ist nicht so gut, da viele Icons in Programmen stecken.


Ich hab den Titel mal geändert, ab jetzt: Icon und Text :mrgreen: Aber Text ist sogar simpel, habe da noch was....

[Zacherl]

Über ExtractAssociatedIcon oder so ähnlich aus der ShellAPI müsste es gehen. Da musst du dir halt eine Datei mit der Endung temporär erzeugen und die Funktion für diese Datei aufrufen.

[Nils_13]

Das mit der Beschreibung ist doch nicht so leicht :( Ich konnte bis jetzt nichts regelmäßiges bei den verschiedenen Dateitypen finden.

Das mit dem Icon wird aber klappen, denke ich. Edit: Mit den Icons gibt es das gleiche Problem....

[jottkaerr]

Hallo Nils,

nimm die Funktion SHGetFileInfo aus der Unit ShellAPI:

Delphi-Quellcode:

uses
  ShellAPI;

function GetFileIcon(const FileName: string; const Icon: TIcon; const FileMustExist: Boolean): Boolean;
var
  FI: TSHFileInfo;
  Attributes: DWORD;
  Flags: Word;
begin
  if FileMustExist then
  begin
    Attributes := 0;
    Flags := SHGFI_ICON or SHGFI_LARGEICON;
  end
  else
  begin
    Attributes := FILE_ATTRIBUTE_NORMAL;
    Flags := SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_LARGEICON;
  end;

  if SHGetFileInfo(PChar(FileName), Attributes, FI, SizeOf(FI), Flags) <> 0 then
  begin
    Icon.ReleaseHandle;
    Icon.Handle := FI.hIcon;
    Result := True;
  end
  else
    Result := False;
end;

Ein Aufruf mit

Delphi-Quellcode:

  if not GetFileIcon('*.pas', Image1.Picture.Icon, False) then
    ShowMessage('Default-Icon geladen');

lädt das große Icon, das Delphi-Quelltexten zugeordnet ist. Im Fehlerfall wird ein
Default geladen, wenn FileMustExist auf False steht. Steht FileMustExist auf True,
wird im Fehlerfall kein Icon geladen.

jkr

[Nils_13]

Das ist sehr gut, danke :) Dann bleibt immernoch das Problem mit der Dateitypbeschreibung.

[MathiasSimmack]

Guckst du mal ins ListView-Sample von Luckies Win32-Tutorials. Steht da drin.