Dateityp: Icon und beschreibung rausfinden

[mirage228]

Hi,

Diese kleine selbtgebasteltete Funktion gibt dir die Beschreibung des Dateityps zurück. Falls es den Dateityp nicht gibt wird, wie bei Windows, "<Erweiterung>-Datei" zurückgegeben.

Delphi-Quellcode:

function GetFileTypeInfo(const FileName: String): String;
var
  Registry: TRegistry;
  sTemp, DefResult, Extension: String;
begin
  Extension := ExtractFileExt(FileName);
  if Trim(Extension) <> '' then
    DefResult := Format('%s-Datei', [Copy(AnsiUpperCase(Extension), 2,
            Length(Extension))]) else
    DefResult := Format('%s-Datei', [AnsiUpperCase(FileName)]);
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_CLASSES_ROOT;
    if Registry.KeyExists(Extension) then
    begin
      if Registry.OpenKey(Extension, False) then
      begin
        sTemp := Registry.ReadString('');
        Registry.CloseKey;
        if (Registry.KeyExists(sTemp)) and (Registry.OpenKey(sTemp, False)) then
        begin
          Result := Registry.ReadString('');
          Registry.CloseKey;
        end else Result := DefResult;
      end else Result := DefResult;
    end else Result := DefResult;
  finally
    Registry.Free;
  end;
end;

mfG
mirage228