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

 找回密码
 立即注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

只需一步,快速开始

https://www.wooolc.com/thread-29780-1-1.html
查看: 676|回复: 20

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

[复制链接]

升级   0%

发表于 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 感谢发布原创作品,传世单机社区因你更精彩.

查看全部评分

升级   100%

发表于 2017-12-11 16:11:09 | 显示全部楼层
强烈支持楼主ing……

升级   0%

发表于 2017-12-11 16:44:39 | 显示全部楼层
看到这帖子真是高兴!

升级   100%

发表于 2017-12-11 18:04:14 | 显示全部楼层
楼主加油,我们都看好你哦。

升级   11.3%

发表于 2017-12-11 20:03:09 | 显示全部楼层
楼主加油,我们都看好你哦。

升级   42.77%

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

[发帖际遇]: 空间空间卖掉金甲龙王,得到了 1 枚 传世币 幸运榜 / 衰神榜

升级   8.34%

发表于 2017-12-11 23:17:22 | 显示全部楼层
主加油,我们都看好你哦。

[发帖际遇]: 你还好吗红名了,被大刀守卫直接秒杀暴了 2 枚 传世币. 幸运榜 / 衰神榜

升级   0%

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

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

升级   1.92%

发表于 2017-12-12 21:27:26 | 显示全部楼层
强烈支持楼主ing……

升级   50.43%

发表于 2017-12-14 07:59:45 | 显示全部楼层
看到这帖子真是高兴!

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

本版积分规则

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

  

     
您需要 登录 后才可以回复,没有帐号?立即注册 使用QQ帐号登录 使用新浪微博帐号登录
高级模式意见反馈购买积分购买会员

传奇世界单机版|传世服务端|传世版本|关于我们|小黑屋|手机版| 传世单机社区   

GMT+8, 2018-10-21 21:21 , Processed in 0.306719 second(s), 39 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2018 Comsenz Inc.

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