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