请问如何把系统里控制面板的日期分隔符有"_"改为"." ( 积分: 100 )

如题目所说,在DELPHI里有什么函数可以调用吗?
请高手指教!

不知道你为何要改这个，
如果是想在程序里面格式化，可以在创建主窗体时候加入：DateSeparator := '.';
如果你非要修改控制面板里面的日期格式可以试试下面的代码：
SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,'yyyy.mm.dd');
SendMessageA(HWND_BROADCAST,WM_SETTINGCHANGE,0,0);

procedure TForm1.Button2Click(Sender: TObject);
var
rv : dword;
tt : tdatetime;
begin
SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,PChar('yyyy.MM.dd'));
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LParam (PChar('sShortDate')), SMTO_ABORTIFHUNG, 5000, rv);
end;