<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:v =
"urn:schemas-microsoft-com:vml" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:w =
"urn:schemas-microsoft-com:office:word" xmlns:m =
"http://schemas.microsoft.com/office/2004/12/omml"><HEAD>
<META content="text/html; charset=us-ascii" http-equiv=Content-Type>
<META name=Generator content="Microsoft Word 14 (filtered medium)">
<STYLE><!--
/* Font Definitions */
@font-face
{font-family:"MS Mincho";
panose-1:2 2 6 9 4 2 5 8 3 4;}
@font-face
{font-family:"MS Mincho";
panose-1:2 2 6 9 4 2 5 8 3 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:"\@MS Mincho";
panose-1:2 2 6 9 4 2 5 8 3 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{mso-style-priority:99;
mso-style-link:"Balloon Text Char";
margin:0in;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif";}
span.BalloonTextChar
{mso-style-name:"Balloon Text Char";
mso-style-priority:99;
mso-style-link:"Balloon Text";
font-family:"Tahoma","sans-serif";}
span.EmailStyle19
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle20
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle21
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle22
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle23
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
..MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></STYLE>
</HEAD>
<BODY dir=ltr lang=EN-US vLink=purple link=blue>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Verdana'; COLOR: #000080; FONT-SIZE: 12pt">
<DIV>I would second upgrading to XE2/XE3 as almost all of the Unicode
housekeeping is done automatically in later versions of Delphi – and if you
start coding for AnsiChar/WideChar etc then you will have considerable code to
unwind when you do convert as the workarounds are not needed</DIV>
<DIV> </DIV>
<DIV style="FONT-FAMILY: 'Verdana'; COLOR: #000080; FONT-SIZE: 12pt">John
Bird<BR>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none"></DIV>
<DIV style="FONT: 10pt tahoma">
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=muellers@orcl-toolbox.com
href="mailto:muellers@orcl-toolbox.com">Stefan Mueller</A> </DIV>
<DIV><B>Sent:</B> Tuesday, October 02, 2012 11:57 PM</DIV>
<DIV><B>To:</B> <A title=delphi@listserver.123.net.nz
href="mailto:delphi@listserver.123.net.nz">'NZ Borland Developers Group - Delphi
List'</A> </DIV>
<DIV><B>Subject:</B> Re: [DUG] Unicode help in D7</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV class=WordSection1>
<P class=MsoNormal><SPAN style="COLOR: #1f497d">The problem with storing Unicode
in utf8 is that the caller always needs to know whether a string contains ansi
or utf8 and that can get messy/buggy real quick if you have a big
project<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d"><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d">I am sure you have thought about
it and you have your own reason. But as far as I am concerned, if you go down
that road to slowly Unicode enable your application (including later on maybe
Form captions, labels, edits, listboxes, etc) then using widestring and
something like TNT library on delphi7 is the easiest way (or upgrade to
>delphi2009)<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d"><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; COLOR: navy; FONT-SIZE: 10pt"><BR></SPAN><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; COLOR: black; FONT-SIZE: 10pt">Kind
Regards,<BR>Stefan Mueller</SPAN><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; COLOR: #585757; FONT-SIZE: 10pt">
<BR></SPAN><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; COLOR: #666699; FONT-SIZE: 10pt">_______________________<BR>R&D
Manager<BR>ORCL Toolbox LLP, Japan<BR></SPAN><SPAN style="COLOR: #1f497d"><A
title=blocked::http://www.orcl-toolbox.com/
href="http://www.orcl-toolbox.com/"><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 10pt">http://www.orcl-toolbox.com</SPAN></A><o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d"><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d"><o:p></o:p></SPAN> </P>
<DIV>
<DIV
style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0in; PADDING-LEFT: 0in; PADDING-RIGHT: 0in; BORDER-TOP: #b5c4df 1pt solid; BORDER-RIGHT: medium none; PADDING-TOP: 3pt">
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Tahoma','sans-serif'; FONT-SIZE: 10pt">From:</SPAN></B><SPAN
style="FONT-FAMILY: 'Tahoma','sans-serif'; FONT-SIZE: 10pt">
delphi-bounces@listserver.123.net.nz
[mailto:delphi-bounces@listserver.123.net.nz] <B>On Behalf Of </B>Ross
Levis<BR><B>Sent:</B> Tuesday, October 02, 2012 7:25 PM<BR><B>To:</B> 'NZ
Borland Developers Group - Delphi List'<BR><B>Subject:</B> Re: [DUG] Unicode
help in D7<o:p></o:p></SPAN></P></DIV></DIV>
<P class=MsoNormal><o:p></o:p> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt" lang=EN-NZ>I’ve
hit a snag.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt" lang=EN-NZ>D7
defines IShellLinkW like this.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 10pt" lang=EN-NZ>
IShellLinkW = interface(IUnknown) { sl }<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 10pt"
lang=EN-NZ> [SID_IShellLinkW]<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 10pt"
lang=EN-NZ> function GetPath(pszFile: PWideChar; cchMaxPath:
Integer;<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 10pt"
lang=EN-NZ> var pfd: TWin32FindData; fFlags:
DWORD): HResult; stdcall;<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt" lang=EN-NZ>I
think the TWin32FindData should be TWin32FindDataW. I take it this is a
bug, and I’ll define my own one.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ>Ross.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<DIV>
<DIV
style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0in; PADDING-LEFT: 0in; PADDING-RIGHT: 0in; BORDER-TOP: #b5c4df 1pt solid; BORDER-RIGHT: medium none; PADDING-TOP: 3pt">
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Tahoma','sans-serif'; FONT-SIZE: 10pt">From:</SPAN></B><SPAN
style="FONT-FAMILY: 'Tahoma','sans-serif'; FONT-SIZE: 10pt"> <A
href="mailto:delphi-bounces@listserver.123.net.nz">delphi-bounces@listserver.123.net.nz</A>
<A
href="mailto:[mailto:delphi-bounces@listserver.123.net.nz]">[mailto:delphi-bounces@listserver.123.net.nz]</A>
<B>On Behalf Of </B>Ross Levis<BR><B>Sent:</B> Tuesday, 2 October 2012 10:58
p.m.<BR><B>To:</B> 'NZ Borland Developers Group - Delphi
List'<BR><B>Subject:</B> Re: [DUG] Unicode help in
D7<o:p></o:p></SPAN></P></DIV></DIV>
<P class=MsoNormal><SPAN lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ>Thanks for that. I did download some free 3<SUP>rd</SUP> party
components and pas files I found which include a TOpenDialogW, WideFindFirst,
WideFileExists, etc. They should be all I need.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt" lang=EN-NZ>I’ll
actually be storing everything in UTF8 and converting backwards and forwards to
full unicode as required for the Windows API. That way I can keep most of
my code using the default AnsiString, standard TStringLists,
etc.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt" lang=EN-NZ>For
me it would be useful if someone had created a set of UTF8 components. I
find it so much easier to work with. I’ve created a UTF8FileExists
function, for example. I suppose later Delphi versions to the conversions
automatically.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ>Cheers,<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ>Ross.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<DIV>
<DIV
style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0in; PADDING-LEFT: 0in; PADDING-RIGHT: 0in; BORDER-TOP: #b5c4df 1pt solid; BORDER-RIGHT: medium none; PADDING-TOP: 3pt">
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Tahoma','sans-serif'; FONT-SIZE: 10pt">From:</SPAN></B><SPAN
style="FONT-FAMILY: 'Tahoma','sans-serif'; FONT-SIZE: 10pt"> <A
href="mailto:delphi-bounces@listserver.123.net.nz">delphi-bounces@listserver.123.net.nz</A>
[<A
href="mailto:delphi-bounces@listserver.123.net.nz">mailto:delphi-bounces@listserver.123.net.nz</A>]
<B>On Behalf Of </B>Stefan Mueller<BR><B>Sent:</B> Tuesday, 2 October 2012 9:22
p.m.<BR><B>To:</B> 'NZ Borland Developers Group - Delphi
List'<BR><B>Subject:</B> Re: [DUG] Unicode help in
D7<o:p></o:p></SPAN></P></DIV></DIV>
<P class=MsoNormal><SPAN lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d">The buffer has to be
</SPAN><SPAN style="COLOR: #1f497d" lang=EN-NZ>WideChar if you use the
IShellLinkW interface.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d" lang=EN-NZ>I also had my
software unicodified with delphi7. I used the TNT components (last free version
is here: </SPAN><A
href="http://www.axolot.com/TNT/">http://www.axolot.com/TNT/</A> - it got bought
out by TMS software: <A
href="http://www.tmssoftware.com/site/tmsuni.asp">http://www.tmssoftware.com/site/tmsuni.asp</A>
) and that made things very easy.<o:p></o:p></P>
<P class=MsoNormal><o:p></o:p> </P>
<P class=MsoNormal>The TNT component pack adds Unicode enabled VCL-controls as
well as Unicode Windows-API support for many functions(FileOpen,FileCreate,etc)
and classes(WideStringList, etc). The library makes it easy to be dealing with
Unicode. <SPAN style="COLOR: #1f497d"><o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d"><o:p></o:p></SPAN> </P>
<DIV>
<P class=MsoNormal><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; COLOR: navy; FONT-SIZE: 10pt"><BR></SPAN><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; COLOR: black; FONT-SIZE: 10pt">Kind
Regards,<BR>Stefan Mueller</SPAN><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; COLOR: #585757; FONT-SIZE: 10pt">
<BR></SPAN><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; COLOR: #666699; FONT-SIZE: 10pt">_______________________<BR>R&D
Manager<BR>ORCL Toolbox LLP, Japan<BR></SPAN><SPAN style="COLOR: #1f497d"><A
title=blocked::http://www.orcl-toolbox.com/
href="http://www.orcl-toolbox.com/"><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 10pt">http://www.orcl-toolbox.com</SPAN></A><o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN
style="COLOR: #1f497d"><o:p></o:p></SPAN> </P></DIV>
<P class=MsoNormal><SPAN style="COLOR: #1f497d"><o:p></o:p></SPAN> </P>
<DIV>
<DIV
style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0in; PADDING-LEFT: 0in; PADDING-RIGHT: 0in; BORDER-TOP: #b5c4df 1pt solid; BORDER-RIGHT: medium none; PADDING-TOP: 3pt">
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Tahoma','sans-serif'; FONT-SIZE: 10pt">From:</SPAN></B><SPAN
style="FONT-FAMILY: 'Tahoma','sans-serif'; FONT-SIZE: 10pt"> <A
href="mailto:delphi-bounces@listserver.123.net.nz">delphi-bounces@listserver.123.net.nz</A>
[<A
href="mailto:delphi-bounces@listserver.123.net.nz">mailto:delphi-bounces@listserver.123.net.nz</A>]
<B>On Behalf Of </B>Ross Levis<BR><B>Sent:</B> Tuesday, October 02, 2012 5:00
PM<BR><B>To:</B> 'NZ Borland Developers Group - Delphi List'<BR><B>Subject:</B>
[DUG] Unicode help in D7<o:p></o:p></SPAN></P></DIV></DIV>
<P class=MsoNormal><o:p></o:p> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt" lang=EN-NZ>I’m
adding a small amount of Unicode support in my D7 app to enable opening files
where the filenames are in foreign languages. Currently my app can’t even
open these files. I’ve installed an OpenFile dialog which provides
WideString results.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt" lang=EN-NZ>One
thing I need is to resolve shortcuts. I have converted the following
function which I had for ANSI filenames into Unicode. Just IShellLinkW and
TWin32FindDataW changed.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt" lang=EN-NZ>function
ResolveShortcut(const LinkPath: WideString):
WideString;<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt"
lang=EN-NZ>var<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt" lang=EN-NZ>ShellLink:
IShellLinkW<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt" lang=EN-NZ>
FindData: TWin32FindDataW;<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt" lang=EN-NZ>
buff: Array [0..Max_Path-1] of Char;<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt"
lang=EN-NZ>begin<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt" lang=EN-NZ>
ShellLink := CreateComObject(CLSID_ShellLink) as
IShellLinkW;<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt" lang=EN-NZ>PersistFile
:= ShellLink as IPersistFile;<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt" lang=EN-NZ> if
(PersistFile.Load(PWideChar(LinkPath),STGM_READ) = S_OK)
and<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt"
lang=EN-NZ> (ShellLink.Resolve(Application.Handle, SLR_NO_UI) =
NOERROR) and<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt"
lang=EN-NZ>
(ShellLink.GetPath(buff,MAX_PATH,FindData,SLGP_UNCPRIORITY)= NOERROR)
then<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt"
lang=EN-NZ> Result := buff<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt" lang=EN-NZ> else
Result := ''<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><B><SPAN
style="FONT-FAMILY: 'Arial','sans-serif'; FONT-SIZE: 9pt"
lang=EN-NZ>end;<o:p></o:p></SPAN></B></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt" lang=EN-NZ>But
I’m not sure if the buff array should be of WideChar or left as
Char.<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt" lang=EN-NZ>Does
MAX_PATH assume wide characters?<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ><o:p></o:p></SPAN> </P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ>Thanks,<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN style="COLOR: #1f497d; FONT-SIZE: 12pt"
lang=EN-NZ>Ross.<o:p></o:p></SPAN></P></DIV>
<P>
<HR>
_______________________________________________<BR>NZ Borland Developers Group -
Delphi mailing list<BR>Post: delphi@listserver.123.net.nz<BR>Admin:
http://delphi.org.nz/mailman/listinfo/delphi<BR>Unsubscribe: send an email to
delphi-request@listserver.123.net.nz with Subject:
unsubscribe</DIV></DIV></DIV></BODY></HTML>