Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Funktion für Entschlüsselung von Dateierweiterung

  Alt 11. Dez 2005, 18:05
Hallo Robin,

Microsoft gibt zu Windows ab und an einen Style Guide als Buch heraus. Für das Einbinden von Dateien in Windows ist der 95-er Style Guide maßgebend. Das Buch heißt "Die Windows-Oberfläche - Leitfaden zur Softwaregestaltung" ISBN 3-86063-226-4. Darin ist dann beschrieben, wie man so etwas macht:

Delphi-Quellcode:
uses
  Registry;

function ExtToTypeName(ref: string): string;
var
  reg: TRegistry;
begin
  reg := TRegistry.Create();
  Result := '';
  reg.RootKey := HKEY_CLASSES_ROOT;
  if reg.OpenKeyReadOnly(ref) then
  begin
    Result := reg.ReadString('');
    reg.CloseKey;
    if Pos('.', ref) = 1 then
      Result := ExtToTypeName(Result);
  end;
  reg.Free;
end;
Wenn du diese Routine aufrufst, dann erhältst du für jede registrierte Erweiterung den hinterlegten TypeName.

ShowMessage(ExtToTypeName('.txt')); Freundliche Grüße vom marabu
  Mit Zitat antworten Zitat