procedure TForm1.Button1Click(Sender: TObject);
var ELCID:integer;
; p:array[0..255] of char;
; dstr:string;
; i:integer;
; TZ:TTimeZoneInformation;
; dd:Tdatetime;
begin
; ELCID:=$0809;//英国英语代码
; for i:=1 to 7 do
; begin
; ; getlocaleinfo(ELCID,LOCALE_SABBREVDAYNAME1+i-1,p,255);
; ; dstr:=strpas(p);//取英语表示法的短星期名字
; ; ShortDayNames:=dstr;//更改全局短星期名字
; end;
; for i:=1 to 12 do
; begin
; ; getlocaleinfo(ELCID,LOCALE_SABBREVMONTHNAME1+i-1,p,255);
; ; dstr:=strpas(p);//取英语表示法的短月份名字
; ; ShortMonthNames:=dstr;//更改全局短月份名字
; end;
; dstr:=formatdatetime('DDD, D mmm YYYY hh:nn:ss ',now);
// ; ; ; ; ; ; ; ; ; ; ;星期短名字，日，月份短名字，年，时，分，秒
; gettimezoneinformation(TZ);//取时区信息
; i:=-tz.bias; ;//跟GMT时间的偏移 单位为分钟
; ; ; ; //+ 为西半球，-为东半球 ??
; if i>0 then dstr:=dstr+'+' else dstr:=dstr+'-';
; dd:=abs(i)/(24*60.0);//转为日期类型
; dstr:=dstr+formatdatetime('hhnn',dd);//转换输出
; showmessage(dstr);
end;
