Как узнать программу, которая стоит в виндовс по умолчанию для открытия определенного типа файла

[Konstantin_ua]

Всем привет, хочу сделать программу в которой ты выбираешь файл а она выдает тебе название программы которая стоит в виндовс по умолчанию для открытия определенного типа файлов(если такой тип известен и есть чем открыть). Не знаю как реализовать в голове пока пробовать открыть файл, потом отслеживать появившийся процесс брать его название и сразу убивать, может как то попроще можно? Или если у нас есть название установленной программы то никак нельзя узнать с какими файлами она работает??

[Stilet]

http://www.programmersforum.ru/showthread.php?t=139066

[Konstantin_ua]

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

http://www.programmersforum.ru/showthread.php?t=139066

да очень полезная информация, ну я вот тут запутался чуток, создаем объект класса TRegistry для роботы с реестром, заносим в него информацию, проверяем существует ли ключ, открываем его и копируем в резаулт ну зачем там еще етот кусочек

  r.OpenKeyReadOnly('\'+Result+'\Shell\Open\Command');
    Result := r.ReadString('');

(если я что то не так написал поправите)

function TForm1.ExeForExt(Ext: String): String;
var r: TRegistry;
begin
  r := TRegistry.Create(KEY_READ);
  try
    r.RootKey := HKEY_CLASSES_ROOT;
    if not r.KeyExists(Ext) then Exit;
    r.OpenKeyReadOnly('\'+ext);
    Result := r.ReadString('');
    r.CloseKey;
    r.OpenKeyReadOnly('\'+Result+'\Shell\Open\Command');
    Result := r.ReadString('');
  finally
    r.CloseKey;
    r.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := ExeForExt('.txt');
end;

и еще интересно в реестре лежит информация только об одной программе которая ассоциируется с определенным типом файлов?

[northener]

См. реестр
По первому ключу ты получишь символическое название типа файла с таким расширением. Для .mp3 это будет, например у меня, Winamp.File.MP3
Далее ты ищешь ключ с таким названием и если он есть, то у него уже в подключе Shell\Open\Command найдешь строку запуска такого файла. Первая часть этой строки даст имя ЕХЕ-файла ассоциированного с этим файлом.

[Konstantin_ua]

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

См. реестр
По первому ключу ты получишь символическое название типа файла с таким расширением. Для .mp3 это будет, например у меня, Winamp.File.MP3
Далее ты ищешь ключ с таким названием и если он есть, то у него уже в подключе Shell\Open\Command найдешь строку запуска такого файла. Первая часть этой строки даст имя ЕХЕ-файла ассоциированного с этим файлом.

если я хочу узнать с которыми файлами работает программа, нужно взять имя приложения, по нему получить информацию про ключ с помощью OpenKey('Software\Microsoft\Windows \CurrentVersion\Uninstall\'+ mmo1.Lines[4], False); (в мемо у меня список установленных программ) а как дальше???

[northener]

а как дальше?

Перебором всех ключей в HKEY_CLASSES_ROOT. А с прицелом на будущее (по нынешним рекомендациям MS) в HKEY_LOCAL_MACHINE\SOFTWARE\Classes и в HKEY_CURRENT_USER\SOFTWARE\Classes.

[Konstantin_ua]

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

Перебором всех ключей в HKEY_CLASSES_ROOT. А с прицелом на будущее (по нынешним рекомендациям MS) в HKEY_LOCAL_MACHINE\SOFTWARE\Classes и в HKEY_CURRENT_USER\SOFTWARE\Classes.

если пробую такой код то ничего вообще не показывает

procedure TForm1.btn4Click(Sender: TObject);
Var   MyList: TStringList;
      i: Integer;
      Str: string;
      Reg : TRegistry;

Begin
  Reg := TRegistry.Create;
  MyList:=TStringList.Create;
  with Reg do
    begin
      RootKey:=HKEY_LOCAL_MACHINE;
      if OpenKey('HKEY_LOCAL_MACHINE\SOFTWARE\Classes',False)=True then GetKeyNames(MyList);
      CloseKey;
      for i:=0 to MyList.Count-1 do
        begin
          RootKey:=HKEY_LOCAL_MACHINE;
          OpenKey('HKEY_LOCAL_MACHINE\SOFTWARE\Classes'+ MyList[i], False);
            if ValueExists(MyList[i]) then
              ShowMessage(ReadString(MyList[i]))
            else
            ShowMessage('Ïàðàìåòð íå íàéäåí');
          CloseKey;
        end;
    end;
    Reg.destroy;
end;

(если написал бред пожалуйста не ругайтесь а исправьте)

[Пепел Феникса]

а почему не
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx ?

[Konstantin_ua]

Сообщение от Пепел Феникса

а почему не
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx ?

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

[Человек_Борща]

Перечисляете типы файлов из CLASSES_ROOT и прогоняете по FindExecutable