Searching for a directory

//---------------------------------------------------------------------------
// Author : Digital Survivor [Esteban Rodríguez Nieto | José Plano]
// Email : plmad666@gmail.com | jose.plano@gmail.com
// Web site : www.ds-studios.com.ar
//---------------------------------------------------------------------------

The most simple way to view a complete list of drives and directories in the system is calling the function SelectDirectory included in the FileCtrl unit. This function shows Windows' standard "Search directory" dialog box. With it, we can search and select any directory of the system. The only problem I can find, is that we can't set the where this dialog box appears. Generaly appears in the right-bottom corner of the screen. If anyone know how to change this, please let me know. Good luck...

//---------------------------------------------------------------------------

Uses

FileCtrl;

Procedure BrowseClick;

Var

S : string;

Begin

S := '';

If SelectDirectory ('Select Directory', '', S) Then SetPath (S);

End;