Dateiendung registrieren

[Alex_ITA01]

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));