Шифрование

[buenosaire]

Здравствуйте!!! Я написал программу шифрования файлов по некоей статье из Интернета. Все хорошо, но при шифровке/дешифровке программа автоматически сохраняет файлы в исходной папке. Меня интересует, как сделать так, чтобы программа предлагала мне самому выбрать путь к папке, куда будет сохранен тот или иной файл??? Вот исходник:

[ex.cluz]

Кидайте на форму TSaveDialog и вызывайте его по OnClick на Button4:
замените

procedure TForm1.Button4Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Edit2.Text:=OpenDialog1.FileName;
end;

на

procedure TForm1.Button4Click(Sender: TObject);
begin
if SaveDialog1.Execute then begin
Edit2.Text:=SaveDialog1.FileName;
end;

Добавлено позже:

Кажется я вас немного не так понял. Вам скорее нужен компонент выбора папки. В Инете есть несколько способов - как в виде отдельного компонента, так и динамическое создание формы при помощи API. Там все легко, уверен, что разберетесь!