FYI heres what I do:
var ILResult: integer;
begin
application.UpdateFormatSettings := false;
{
Use UpdateFormatSettings to control automatic updating of format settings.
The default of True is set in the constructor. UpdateFormatSettings is
checked when the application receives a WM_WININICHANGE message.
It is recommended to use the default format settings, which are initialized
to the Windows local settings. However, to prevent the settings from
changing during the execution of the appliaction when alterring the format
settings in a Delphi application, UpdateFormatSettings can be set to False.
}
ILResult := strRscan(pchar(shortdateformat), 'y') -
strscan(pchar(shortdateformat), 'y');
if ILResult < 2 then shortdateformat := shortdateformat + 'yy';
longtimeformat := 'HH:mm:ss';
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
