#include <filectrl.hpp> // <-- biblioteka zawierająca funkcje SelectDirectory
void __fastcall TForm1::TButton1Click(TObject *Sender)
{
String Dir;
SelectDirectory("Wybierz katalog", "", Dir);
Edit1->Text = Dir;
}
//------------------------------------------------------------------------
void __fastcall TForm1::TButton2Click(TObject *Sender)
{
String Dir = "c:\\windows";
SelectDirectory("Wybierz katalog", "c:\\", Dir);
Edit1->Text = Dir;
}
//------------------------------------------------------------------------
void __fastcall TForm1::TButton3Click(TObject *Sender)
{
String Dir = "c:\\windows";
if(SelectDirectory("Wybierz katalog", "", Dir))
Edit1->Text = Dir;
}
//------------------------------------------------------------------------
void __fastcall TForm1::TButton1Click(TObject *Sender)
{
String Dir;
if(SelectDirectory(Dir, TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt, NULL))
Edit1->Text = Dir;
}