Ich habe folgendes Problem:
Ich möchte "meine" Datei (aj-Datei) mit folgendem Source auf mein Programm registrieren.
Das geht ja auch...
Nur frage ich mich jetzt, wie die anderen Dateien (z.B. .MP3) registriert sind?!
Denn wenn ich in der Registry unter der Dateiendung MP3 suche finde ich den Ordner .MP3\Shell\Open\Command... nicht.
Ist das von Betriebssystem zu Betriebssystem anders oder gibt es noch ein anderen "Pfad" in der Registry, wo die Dateinamen registriert sind?
Denn wenn ich mein TuneUpUtilities starte (den RegistryCleaner) dann meckert der auch, dass der Pfad .aj\Shell\Open\Command... nicht korrekt ist und löscht ihn wieder.
Also wie gesagt, die Registrierung läuft zwar aber ich würde gerne wissen, wo man die Dateien genauso registriert wie es Windows auch macht.
Ich hoffe ihr wisst was ich meine...
Bis denn dann
MFG Alex
Delphi-Quellcode:
function TMain_Window.RegistriereAnwendung(extension, typename, commandKey, command : PChar) : boolean;
var
key: HKey;
begin
result := false;
if RegCreateKey( HKEY_CLASSES_ROOT, extension, key )=ERROR_SUCCESS then
begin
if RegSetValue( key, nil, REG_SZ, typename, 0 )=ERROR_SUCCESS then
begin
RegCloseKey( key );
if RegCreateKey( HKEY_CLASSES_ROOT, commandKey, key )=ERROR_SUCCESS then
begin
if RegSetValue( key, nil, REG_SZ, command, 0 )=ERROR_SUCCESS then
begin
RegCloseKey( key );
result := true; // hat geklappt
end
else
begin
RegCloseKey( key );
RegDeleteKey( HKEY_CLASSES_ROOT, extension );
end;
end
else
RegDeleteKey( HKEY_CLASSES_ROOT, extension );
end
else
begin
RegCloseKey( key );
RegDeleteKey( HKEY_CLASSES_ROOT, extension );
end;
end;
end;
Aufruf:
Delphi-Quellcode:
FPfad := ExtractFileDir(Application.ExeName);
tmpStr := FPfad + '\Player.exe %1';
RegistriereAnwendung('.aj','Player','.aj\shell\open\command',PChar(tmpStr));