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

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

Не надо сразу ругаться,как ассоциировать файл я знаю,вопрос такой:
как мне ассоциировать файл с той программой , с которой он был до моей.
Пользователь ассоциировал текстовый файл с моей программой,программа не понравилась и он хочет вернуть все обратно, то есть ассоциировать текстовый файл с программой которая была до моей

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

надо запоминать тогда ту программу что была до вашей.

[ArtGrek]

правыи клик на тот фаил -> своиства -> кнопка изменить -> выбираем программу с которои нужно ассоциировать -> и ок

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

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

правыи клик на тот фаил -> своиства -> кнопка изменить -> выбираем программу с которои нужно ассоциировать -> и ок

если бы были все такие умные пользователи,то я не задавал бы этот вопрос

[ArtGrek]

ето все програмно?
не понял сразу, sorry

[Stilet]

Не надо сразу ругаться,как ассоциировать файл я знаю

Ну раз знаешь как, то и знаешь как получить то что было написано в ассоциации до тебя просто прочитав перед записью

[p51x]

как делает большинство прог: создаете там же параметр.bak = старое значение и возвращаете когда нужно

[ArtGrek]

вот для ассоциации

procedure TForm1.RegisterFileType(ext: string; FileName: string);
var
  reg: TRegistry;
begin
  reg:=TRegistry.Create;
  with reg do
  begin
    RootKey:=HKEY_CLASSES_ROOT;
    OpenKey('.'+ext,True);
    WriteString('',ext+'file');
    CloseKey;
    CreateKey(ext+'file');
    OpenKey(ext+'file\DefaultIcon',True);
    WriteString('',FileName+',0');
    CloseKey;
    OpenKey(ext+'file\shell\open\command',True);
    WriteString('',FileName+' "%1"');
    CloseKey;
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RegisterFileType('txt', Application.ExeName);
end;

ЗЫ. буду читать внимательнее

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

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

как делает большинство прог: создаете там же параметр.bak = старое значение и возвращаете когда нужно

Уважаемый! А по подробнее можно? Или где почитать,поисковая фраза какая?

[Stilet]

А вон тебе ArtGrek написал, только там нужно читать из параметра command, запомнить то что считал где нить скажем в другой ветке реестра, а после деинсталляции твоей проги восстанавливать