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

Compare with Current View Page History

Version 1 Next »

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;


  • No labels