立即注册
 找回密码
 立即注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

只需一步,快速开始

传世单机-传世服务端-传奇世界单机版

搜索

[其他工具] 发个修改系统时间格式的小工具 [复制链接]

查看: 390 | 回复: 20

min00yuan
发表于: 2017-12-11 13:25:20 | 显示全部楼层

本帖最后由 min00yuan 于 2017-12-11 13:35 编辑

发个小工具,修改系统时间格式的小工具,把系统时间格式修改为yyyy-MM-dd,或许会帮助到一些人,下面会贴出此文件在线扫描结果,实在不放心的朋友,源码我也会贴出,可自行编译,下载地址回复可见,解压密码就是www.wooolc.com,
游客,如果您要查看本帖隐藏内容请回复
  1. unit Unit1;

  2. interface

  3. uses
  4.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  5.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs,Winapi.msxml, System.DateUtils,
  6.   Vcl.StdCtrls;

  7. type
  8.   TForm1 = class(TForm)
  9.     Button1: TButton;
  10.     Label1: TLabel;
  11.     Label2: TLabel;
  12.     procedure Button1Click(Sender: TObject);
  13.     procedure FormCreate(Sender: TObject);
  14.   private
  15.     { Private declarations }
  16.   public
  17.     { Public declarations }
  18.   end;

  19. var
  20.   Form1: TForm1;

  21. implementation

  22. {$R *.dfm}
  23. function GetNetTime(aUrl: WideString = 'http://www.sohu.com'): string;
  24. begin
  25.   with CoXMLHTTP.Create do
  26.   begin
  27.     open('Post', aUrl, False, EmptyParam, EmptyParam);
  28.     send(EmptyParam);
  29.     Result := getResponseHeader('Date');
  30.   end;
  31. end;

  32. function GMT2BjDateTime(const GMT: string): TDateTime;
  33. var
  34.   A: TArray;
  35.   Y,M,D,H,N,S: Word;
  36. begin
  37.   A := GMT.Split([',', ' ', ':'], ExcludeEmpty);

  38.   with TStringList.Create do begin
  39.     CommaText := 'Jan=1,Feb=2,Mar=3,Apr=4,May=5,Jun=6,Jul=7,Aug=8,Sep=9,Oct=10,Nov=11,Dec=12';
  40.     A[2] := Values[A[2]];
  41.     Free;
  42.   end;

  43.   Y := StrToIntDef(A[3], YearOf(Now));
  44.   M := StrToIntDef(A[2], MonthOf(Now));
  45.   D := StrToIntDef(A[1], DayOf(Now));
  46.   H := StrToIntDef(A[4], HourOf(Now));
  47.   N := StrToIntDef(A[5], MinuteOf(Now));
  48.   S := StrToIntDef(A[6], SecondOf(Now));

  49.   Result := EncodeDateTime(Y, M , D, H, N, S, 0);
  50.   Result := Result + 8/24;
  51. end;


  52. procedure TForm1.Button1Click(Sender: TObject);
  53. var
  54.   p:DWORD;
  55.   systemtime:Tsystemtime;
  56.   DateTime:TDateTime;
  57. begin
  58.   SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,pchar('yyyy-MM-dd')); //短日期
  59.   SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SLONGDATE,pchar('yyyy''年''M''月 ''d''日'''));
  60.   SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_STIMEFORMAT,pchar('H:mm:ss')); //设置时间
  61.   SendMessageTimeOut(HWND_BROADCAST,WM_SETTINGCHANGE,0,0,SMTO_ABORTIFHUNG,10,p);
  62.   GetLocalTime(SystemTime);   
  63.   DateTime:=SystemTimeToDateTime(SystemTime);   
  64.   label2.Caption:='              本地系统时间为:'+ DateTimeToStr(DateTime);
  65. end;

  66. procedure TForm1.FormCreate(Sender: TObject);
  67. var
  68.   strGMT: string;
  69.   bjDateTime: TDateTime;
  70.   systemtime:Tsystemtime;
  71.   DateTime:TDateTime;
  72. begin
  73.   strGMT := GetNetTime();
  74.   bjDateTime := GMT2BjDateTime(strGMT);
  75.   label1.Caption:= '搜狐服务器返回格林尼治时间转化为的北京时间:'+ datetimetostr(bjDateTime);
  76.   GetLocalTime(SystemTime);  
  77.   DateTime:=SystemTimeToDateTime(SystemTime);   //把API的TSystemTime格式   转化为   Delphi的TDateTime格式
  78.   label2.Caption:='              本地系统时间为:'+ DateTimeToStr(DateTime);
  79. end;

  80. end.
复制代码



QQ图片20171211131858.png
QQ图片20171211131924.png
QQ图片20171211133223.png

评分

参与人数 1热心 +3 传世币 +3 收起 理由
zhchxkkk + 3 + 3 感谢发布原创作品,传世单机社区因你更精彩.

查看全部评分

跳转到指定楼层
回复

使用道具 举报

zhchxkkk
发表于: 2017-12-11 16:11:09 | 显示全部楼层

强烈支持楼主ing……

likai1999
发表于: 2017-12-11 16:44:39 | 显示全部楼层

看到这帖子真是高兴!

电竞康熙娱乐后宫
发表于: 2017-12-11 18:04:14 | 显示全部楼层

楼主加油,我们都看好你哦。

hewenqiang
发表于: 2017-12-11 20:03:09 | 显示全部楼层

楼主加油,我们都看好你哦。

空间
发表于: 2017-12-11 23:16:01 | 显示全部楼层

引擎过期不用重装或还原系统之后修改时间,直接用这工具修改时间就能进行游戏吗?

[发帖际遇]: 空间空间卖掉金甲龙王,得到了 1 枚 传世币 幸运榜 / 衰神榜
你还好吗
发表于: 2017-12-11 23:17:22 | 显示全部楼层

主加油,我们都看好你哦。

[发帖际遇]: 你还好吗红名了,被大刀守卫直接秒杀暴了 2 枚 传世币. 幸运榜 / 衰神榜
min00yuan
发表于: 2017-12-12 09:55:36 | 显示全部楼层

空间 发表于 2017-12-11 23:16
引擎过期不用重装或还原系统之后修改时间,直接用这工具修改时间就能进行游戏吗?

我想我说的很明白,就仅仅是一个修改系统时间格式的小工具而已,和引擎完全不搭边,而且这个也不修改时间,仅仅就是修改系统时间的格式而已

du8857004
发表于: 2017-12-12 21:27:26 | 显示全部楼层

强烈支持楼主ing……

linzhouyzj
发表于: 2017-12-14 07:59:45 | 显示全部楼层

看到这帖子真是高兴!

您需要登录后才可以回帖 登录 | 立即注册  

本版积分规则

1、请认真发帖,禁止回复纯表情,纯数字等无意义的内容!帖子内容不要太简单!
2、提倡文明上网,净化网络环境!抵制低俗不良违法有害信息。
3、如果你对主帖作者的帖子不屑一顾的话,请勿回帖。谢谢合作!

主题:152 | 回复:37507

  

     
您需要 登录 后才可以回复,没有帐号?立即注册 使用QQ帐号登录 使用新浪微博帐号登录
高级模式意见反馈购买积分购买会员
返回顶部快速回复上一主题下一主题返回列表找客服手机访问
展开

快速回复 返回顶部 返回列表