<!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=us-ascii">
<META content="MSHTML 6.00.2800.1479" 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>
<DIV dir=ltr align=left><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=024063702-12012005>Ugly 16 bit Version</SPAN> <SPAN
class=024063702-12012005>...</SPAN></FONT></FONT></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=024063702-12012005></SPAN></FONT></FONT></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=024063702-12012005></SPAN></FONT></FONT></FONT> </DIV>
<DIV dir=ltr align=left><SPAN class=024063702-12012005><FONT face=Arial
color=#0000ff size=2>(button1Click)</FONT></SPAN></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2>Var
sDir:String;<BR>begin<BR> inherited;<BR> if txtDir.Text = ''
then sDir := sExePath else sDir := txtDir.Text;<BR>if (SelectDirectory(sDir,
[sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP))
then<BR> begin<BR> <SPAN class=024063702-12012005>Do
stuff</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=024063702-12012005></SPAN> end;</FONT></DIV><BR>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> delphi-bounces@ns3.123.co.nz
[mailto:delphi-bounces@ns3.123.co.nz] <B>On Behalf Of </B>David
O'Brien<BR><B>Sent:</B> Wednesday, 12 January 2005 3:26 p.m.<BR><B>To:</B> 'NZ
Borland Developers Group - Delphi List'<BR><B>Subject:</B> [DUG] Folder
Selection<BR></FONT><BR></DIV>
<DIV></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></BODY></HTML>