You are viewing an old version of this page. View the current version.

Compare with Current View Page History

« Previous Version 2 Current »

Below code is an example to select directory by TFileOpenDialog:

with TFileOpenDialog.Create(nil) do
	try
		Options := [fdoPickFolders];
		if Execute then
			ShowMessage(FileName);
	finally
		Free;
	end;

You can see another example at Simple function can select directory in Delphi

  • No labels