如何修改系统时间格式?将yy-mm-dd改为yyyy-mm-dd,不是暂时在程序运行时修改,效果要和在控制面板中直接修改一样.

function SetPCSystemTime(tDati: TDateTime): Boolean;var   tSetDati: TDateTime;
   vDatiBias: Variant;   tTZI: TTimeZoneInformation;   tST: TSystemTime;begin
   GetTimeZoneInformation(tTZI);   vDatiBias := tTZI.Bias / 1440;
   tSetDati := tDati + vDatiBias;   with tST do   begin
        wYear := StrToInt(FormatDateTime('yyyy', tSetDati));
        wMonth := StrToInt(FormatDateTime('mm', tSetDati));
        wDay := StrToInt(FormatDateTime('dd', tSetDati));
        wHour := StrToInt(FormatDateTime('hh', tSetDati));
        wMinute := StrToInt(FormatDateTime('nn', tSetDati));
        wSecond := StrToInt(FormatDateTime('ss', tSetDati));
        wMilliseconds := 0;   end;   SetPCSystemTime := SetSystemTime(tST);end;