H
hgxhx
Unregistered / Unconfirmed
GUEST, unregistred user!
如何在delphi程序中设置windows系统的日期显示格式？
J
jackchin
Unregistered / Unconfirmed
GUEST, unregistred user!
formatdatetime函数可以将日期按各种格式显示,包括Windows设置的格式<br>你的问题好象要改变Windows的设置(控制面版做的事)? 没试过.<br>
M
mickeyboy
Unregistered / Unconfirmed
GUEST, unregistred user!
通过修改注册表中的HKEY_CURRENT_USER/Control Panel/International项下的sLongDate和sShortDate应该可以实现
W
wwwwb
Unregistered / Unconfirmed
GUEST, unregistred user!
SetLocaleInfo(GetSystemDefaultLCID,LOCALE_SSHORTDATE,'yyyy-MM-dd');<br>SetLocaleInfo(GetSystemDefaultLCID,LOCALE_SDATE,'-');<br>SendMessageA(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);
S
skywin
Unregistered / Unconfirmed
GUEST, unregistred user!
我有机会了！[^][^][^]<br>给你一个函数，绝对好使用，测完后，千万记住给我加分！！！[
][][]<br>//设置控制面板中的时间、日期格式<br>Function SetDateTimeFormat:Boolean;<br>var<br> P,K: PChar;<br> bDate,bTime:Boolean;<br>begin<br> P:= 'yyyy-MM-dd';<br> K:='HH:mm:ss';<br> bTime:=SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_STIMEFORMAT,K);<br> bDate:=SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,P);<br> IF bTime and bDate then<br> Result:=True<br> else<br> Result:=False;<br>end;
][][]<br>//设置控制面板中的时间、日期格式<br>Function SetDateTimeFormat:Boolean;<br>var<br> P,K: PChar;<br> bDate,bTime:Boolean;<br>begin<br> P:= 'yyyy-MM-dd';<br> K:='HH:mm:ss';<br> bTime:=SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_STIMEFORMAT,K);<br> bDate:=SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,P);<br> IF bTime and bDate then<br> Result:=True<br> else<br> Result:=False;<br>end;
H
hgxhx
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
W
wlmmlw
Unregistered / Unconfirmed
GUEST, unregistred user!
在SysUtils单元中有许多全局变量来处理格式化的日期和时间值.<br>可通过Win32 API 的SetLocaleInfo和GetLocaleInfo来存取它们.[^][^]