Versions Compared

Old Version 1

changes.mady.by.user Chun Kang

Saved on

compared with

New Version 2

changes.mady.by.user Chun Kang

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
languagedelphi
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