تغییر Date Format < Short Date در ویندوز 7

[مجتبی جوادی]

سلام
دوستان چطور میشه در ویندوز 7 با برنامه نویسی Date format را از MM/dd/yyyy به yyyy/dd/MM تغییر داد؟
ممنون

[vcldeveloper]

GetDefaultSystemLCID برای گرفت LCID پیش فرض.
GetLocaleInfo برای گرفتن تنظیمات فعلی.
SetLocaleInfo برای تغییر دادن تنظیمات فعلی.

[مجتبی جوادی]

آقای کشاورز ممنون از لطف شما
اگه میشه نحوه استفاده آنر توضیح بدید لطف می کنید

[مجتبی جوادی]

آقای کشاورز ممنون میشم بیشتر راهنمایی کنید

[vcldeveloper]

ممنون میشم بیشتر راهنمایی کنید

function GetShortDateFormat: string;

var

  ReturnValue : Integer;

  Buffer : string;

begin

  ReturnValue := GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDAT  E,nil,0);

  if ReturnValue > 0 then

  begin

    SetLength(Buffer,ReturnValue);

    if GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDAT  E,PChar(Buffer),Length(Buffer)) = 0 then

      RaiseLastOSError;

    Result := Trim(Buffer);

  end

  else

    RaiseLastOSError;

end;



procedure SetShortDateFormat(const NewFormat: string);

var

  lpdwResult : Cardinal;

begin

  if SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDAT  E,PChar(NewFormat)) then

    SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE,0,0,SMTO_NORMAL,3000,lpdwResult)

  else

    RaiseLastOSError;

end;