zoukankan      html  css  js  c++  java
  • LceMeaning专用函数集《Lcemeaning》

    {*******************************************************}
    {                                                       }
    {       Lcemeaning专用函数库集                                }
    {                                                       }
    {                                                       }
    {   作者:lcemeaning                                     }
    {   Email:574545301@qq.com                              }
    {                                                       }
    {*******************************************************}
    
    
    unit FunctionLibrary;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes;
    
    
    // 函数/过程输出
      procedure GetDateTimeFormat();//得到日期时间格式
      procedure SetDateTimeFormat();//设置日期时间格式
    
    //全局变量
    var
      GPrevShortDate,GPrevLongDate,GPrevTimeFormat:string;
    
    implementation
    
    
    //得到日期时间格式
    procedure GetDateTimeFormat();
    const i = 100;
    var
      buf:pchar;
    begin
      getmem(buf,100);
      //i:=100; //i必须在调用前赋值为buf缓冲区的长度。如果设为0或负值,将取不到设置的值
      GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,buf,i); //取当前用户设置,短日期格式。
      GPrevShortDate:=string(buf);
      GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SLONGDATE,buf,i); //取长日期格式
      GPrevLongDate:=string(buf);
      GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_STIMEFORMAT,buf,i); //取时间格式
      GPrevTimeFormat:=string(buf);
      FreeMem(buf);
    end;
    
    //设置日期时间格式
    procedure SetDateTimeFormat();
    var
      p:DWORD;
    begin
      SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,pchar('yyyy/MM/dd')); //设置短日期格式
      SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SLONGDATE,pchar('yyyy''年''M''月''d''日''')); //设置长日期格式为 yyyy''M''d'',“年月日”字符必须用单引号括
    
    起来。Delphi字符串里必须用两个单引号。
      SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_STIMEFORMAT,pchar('HH:mm:ss')); //设置时间格式,24小时制
      SendMessageTimeOut(HWND_BROADCAST,WM_SETTINGCHANGE,0,0,SMTO_ABORTIFHUNG,10,p);//设置完成后必须调用,通知其他程序格式已经更改,否则即使是程序自身也不能使用
    
    新设置的格式
    end;
    
    
    end.//结束
  • 相关阅读:
    求正方形的面积和周长
    面向对象练习——校园管理系统
    python--面向对象(最全讲解)
    git删除远程仓库的文件或目录
    git设置忽略文件和目录
    计算器
    织梦标签整理
    比较恶心的360老年版浏览器 文件导出下载
    织梦文章列表样式多元化实现
    php函数整理
  • 原文地址:https://www.cnblogs.com/LceMeaning/p/3368132.html
Copyright © 2011-2022 走看看