发信人: szlbz()
整理人: soaringbird(2001-06-04 07:49:37), 站内信件
|
procedure SetWindowDate; //设置日期格式为 yyyy-mm-dd
var
registerTemp: TRegistry;
begin
registerTemp := TRegistry.Create; //准备使用注册表
with registerTemp do
begin
RootKey := HKEY_Current_user; //存放在此根下
if OpenKey('control panel\international', True) then Writestring('sshortdate', 'yyyy-MM-dd');
end;
registertemp.Free;
end;
|
|