<div>
You could do it like this:<br />
<br />
procedure TForm1.Button1Click(Sender<wbr />: TObject);<br />
var<br />
&nbsp; DefDir : string;<br />
begin<br />
&nbsp; if SelectDirectory('Please choose a directory:', 'C:\', DefDir) then<br />
&nbsp; &nbsp; speedbutton21.hint := DefDir<br />
&nbsp; else<br />
&nbsp; &nbsp; speedbutton21.hint := '';<br />
end;
</div>


You could do it like this:

procedure TForm1.Button1Click(Sender: TObject);
var
  DefDir : string;
begin
  if SelectDirectory('Please choose a directory:', 'C:\', DefDir) then
    speedbutton21.hint := DefDir
  else
    speedbutton21.hint := '';
end;

<div>
that gives a complile error:<br />
<br />
&quot;Constant object cannot be passed as var parameter&quot;<br />
<br />
I don't think it likes the 'Please choose a directory'...it's expecting a variable.<br />
<br />
Shawn
</div>


that gives a complile error:

"Constant object cannot be passed as var parameter"

I don't think it likes the 'Please choose a directory'...it's expecting a variable.

Shawn

<div>
<div class="content wysiwyg-content">
Hi...<br />
&nbsp; When the user calls the SelectDirectory function in my app, I want it to default to the root directory (ie. C:\)... but it won't do it. Here's my code:<br />
<br />
defdir:='c:\';<br />
if SelectDirectory(defdir,[],<wbr />0) then<br />
&nbsp; &nbsp;speedbutton21.hint:=defdir<wbr /><br />
else speedbutton21.hint:='';<br />
<br />
...the SelectDirectory dialog box always comes up with the directory my app is located in, as its selected directory...weird. There seems to be no way I can force it to go to the root directory.<br />
<br />
Any thoughts?<br />
<br />
Thanks<br />
&nbsp; &nbsp;Shawn<br />

</div>
</div>


Hi...
  When the user calls the SelectDirectory function in my app, I want it to default to the root directory (ie. C:\)... but it won't do it. Here's my code:

defdir:='c:\';
if SelectDirectory(defdir,[],0) then
   speedbutton21.hint:=defdir
else speedbutton21.hint:='';

...the SelectDirectory dialog box always comes up with the directory my app is located in, as its selected directory...weird. There seems to be no way I can force it to go to the root directory.

Any thoughts?

Thanks
   Shawn


Problem with SelectDirectory Function

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.