تغییر 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;