<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:w =
"urn:schemas-microsoft-com:office:word"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.2523" name=GENERATOR>
<STYLE>@page Section1 {size: 595.3pt 841.9pt; margin: 72.0pt 90.0pt 72.0pt 90.0pt; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.EmailStyle17 {
COLOR: navy; FONT-FAMILY: Arial; mso-style-type: personal-reply
}
DIV.Section1 {
page: Section1
}
</STYLE>
</HEAD>
<BODY lang=EN-GB vLink=purple link=blue bgColor=#ffffff>
<DIV><FONT face=Arial size=2>I use the attached function which utilizes the
standard Windows Browse for Folder dialog.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Add it to your uses clause and use it like
this.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=1>procedure
TMainForm.BrowseFolderClick(Sender: TObject);<BR>var<BR> dir:
String;<BR>begin<BR> dir := Folder.Text;<BR> if
SelectFolder(_('Select a destination folder'),'',dir,Application.Handle)
then</FONT><FONT><BR><FONT face="Courier New" size=1>
PlayListFolder.Text := dir;<BR>end;</FONT></DIV></FONT>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Regards,</FONT></DIV>
<DIV><FONT face=Arial size=2>Ross Levis.</FONT></DIV>
<DIV><FONT face=Arial size=2><FONT
color=#0000ff>-----------------------------------</FONT></FONT></DIV>
<DIV><FONT face=Arial size=2><FONT color=#0000ff>StationPlaylist.com<BR><A
href="http://www.stationplaylist.com">http://www.stationplaylist.com</A></FONT></FONT></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=dave@iccs.co.nz href="mailto:dave@iccs.co.nz">David O'Brien</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=delphi@ns3.123.co.nz
href="mailto:delphi@ns3.123.co.nz">'NZ Borland Developers Group - Delphi
List'</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, January 12, 2005 3:26
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [DUG] Folder Selection</DIV>
<DIV><BR></DIV>
<DIV class=Section1>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">Just a quickie, and one
that’s annoyed me for a while. What standard dialog do I use to select a
folder? I have always resorted to third party components, but there must be a
standard one?<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">David
O'Brien</SPAN></FONT><FONT color=navy><SPAN
style="COLOR: navy"><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=1><SPAN
style="FONT-SIZE: 7.5pt; COLOR: navy; FONT-FAMILY: Arial">(</SPAN></FONT><FONT
color=navy><SPAN style="COLOR: navy"><A href="mailto:dave@iccs.co.nz"><FONT
face=Arial size=1><SPAN
style="FONT-SIZE: 7.5pt; FONT-FAMILY: Arial">dave@iccs.co.nz</SPAN></FONT></A></SPAN></FONT><FONT
face=Arial color=navy size=1><SPAN
style="FONT-SIZE: 7.5pt; COLOR: navy; FONT-FAMILY: Arial">)</SPAN></FONT><FONT
color=navy><SPAN style="COLOR: navy"><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=1><SPAN
style="FONT-SIZE: 7.5pt; COLOR: navy; FONT-FAMILY: Arial">(</SPAN></FONT><FONT
color=navy><SPAN style="COLOR: navy"><A href="mailto:dave@master.co.nz"><FONT
face=Arial size=1><SPAN
style="FONT-SIZE: 7.5pt; FONT-FAMILY: Arial">dave@master.co.nz</SPAN></FONT></A></SPAN></FONT><FONT
face=Arial color=navy size=1><SPAN
style="FONT-SIZE: 7.5pt; COLOR: navy; FONT-FAMILY: Arial">)</SPAN></FONT><o:p></o:p></P></DIV></DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>Delphi mailing
list<BR><A
href="mailto:Delphi@ns3.123.co.nz">Delphi@ns3.123.co.nz</A><BR>http://ns3.123.co.nz/mailman/listinfo/delphi<BR></BLOCKQUOTE></BODY></HTML>