CXakep75, причём тут винамп? Он даже не установлен. А мне именно mp3 и надо.

cHeRsAnYa1, я про свой ком говорю. Я тоже над этим башку раньше грыз, щас забил нафик.

CXakep75, а так хотелось... Ну да ладно

CXakep75, RegMon тоже не помог. Там столько запросов про MP3, и про это нигде не написано.

cHeRsAnYa1, а ты зайди в свойство папки->типы файлов, посмотри что там прописано

delete

Sanya_82, там также aimp остался. На своём компе я вручную установил ассоциацию, открыва файл mp3. Но хотелось бы, что это было автоматически.

Как узнать, выполняется ли другая копия данной проги, и если да то закрыть её?

cHeRsAnYa1, найди заголовок и грохни. Как в моём примере с диспетчером.

cHeRsAnYa1, можно сделать проще, не разрешать запуск второй копии программы. procedure TForm1.FormCreate(Sender: TObject); begin CheckEvent := TEvent.Create(nil, false, true, "MYPROGRAM_CHECKEXIST"); if CheckEvent.WaitFor(10) <> wrSignaled then begin //Сюда попадаем если копия запущена. Self.Close; // Здесь можно завершить программу end;

cHeRsAnYa1, Или так! procedure TForm1.FormCreate(Sender: TObject); begin // Проверяем есть ли указатель на предыдущую копию приложения if hPrevInst <> 0 then begin // Если есть, то выдаем сообщение и выходим MessageDlg("Программа уже запущена!", mtError, [mbOk], 0); Application.Terminate; end; // Иначе - ничего не делаем end;

Сорри подключи syncobjs переменная должна бытьCheckEvent: TEvent; Для первого случая. И hPrevInst: hWnd для второго...