проверка расширения

[Михаил Юрьевич]

Нужно проверять ,что расширение .txt ассоциированно именно с моей программой,вот только как не пойму,пробовал так,
не получается

reg.OpenKey('.rtf',false);
  form1.chek.Checked := reg.ValueExists('Proga');

[ArtGrek]

а вот и проверка

procedure TForm1.Button1Click(Sender: TObject);
var
 buffer: array[0..255] of Char;
begin
 if  Not (FindExecutable('C:\myText.txt', Nil, buffer) In [0, 31,
    ERROR_FILE_NOT_FOUND, ERROR_PATH_NOT_FOUND, ERROR_BAD_FORMAT]) then
   Edit1.Text:= buffer else
   Edit1.Text:= 'Файл не ассоциирован или не найден или см. справку по FindExecutable';
end;

[Михаил Юрьевич]

спасибо! попробую

Но это че получается,если моя программа будет ассоциироваться с 10 расширениями,
то мне вместе с программой таскать файлы с такими расширениями что бы проверять?

[ArtGrek]

зачем???
зделаи поиск по расшырению, и используи первыи попавшиися фаил которыи тебе подходит

или так

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;

[Михаил Юрьевич]

спасибо,башка совсем не работает

[GunSmoker]

Подумать.

[Konstantin_ua]

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

зачем???
зделаи поиск по расшырению, и используи первыи попавшиися фаил которыи тебе подходит

или так

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;

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