ассоциация файлов

[Lardes]

procedure ShellExtension(Extension, TypeName, DisplayName: String);
// Extension - расширение класса
// TypeName - тип регистрируемого класса
// DisplayName - описание типа класса
begin  
  with TRegistry.Create do begin
    RootKey := HKEY_CLASSES_ROOT;
    OpenKey(Extension, True);
    WriteString('', TypeName);
    CloseKey;

    OpenKey(TypeName, True);
    WriteString('', DisplayName);
    OpenKey('DefaultIcon', True);  
    WriteString('', ParamStr(0) + ', 0');
    CloseKey;

    OpenKey(TypeName + '\shell\open', True);
    WriteString('', 'Открыть моей программой');
    OpenKey('command', True);
    WriteString('', '"' + ParamStr(0) + '" "%1"');
    CloseKey;
    
    Free;
  end;
end;

ShellExtension('.mp3', 'MP3 File', 'MP3 Title');
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

Сообщение от Menmo

Всё понял, исправил, но опять вопрос, когда открываю файл вот такая штука http://img441.imageshack.us/img441/7162/player2p.png

Друг, попробуй объявить событие FormShow

procedure TForm1.FormShow(Sender: TObject);
begin      
  if (ParamCount > 0) and (FileExists(ParamStr(1)) then
  begin
    //делай что угодно с файлами, например:
    ShowMessage(ParamStr(1));
  end;
end;