Tweet
Hallo miteinander,
wie kann ich -systemweit- eine dateiextension mit einem icon verknüpfen ??
wie kann ich -systemweit- eine dateiextension mit einem icon verknüpfen ??
-
-
Hallo,
das folgende Beispiel habe ich in meinem Archiv gefunden. Zuerst wird die Datei-Endung mit einer neuen Datei-Klasse verbunden. Und der zweite Eintrag verbindet die Datei-Klasse mit einem Icon aus der EXE:
<pre>
Var
reg: TRegistry;
Begin
reg:= TRegistry.Create;
try
reg.rootKey := HKEY_CLASSES_ROOT;
If reg.OpenKey( '.XYZ', True ) Then Begin
reg.WriteString('', 'XYZ.Files' ); // Default-Wert
reg.CloseKey;
If reg.OpenKey( 'XYZ.Files', True ) Then Begin
reg.WriteString('', 'XYZ App-Datei' ); // Anzeige im Explorer
reg.WriteString('DefaultIcon',
'C:\Programme\XYZApp\xyz.exe,1');
reg.closekey;
End;
End;
finally
reg.free;
end;
</pre>
Comment