老森常谈 IT 帮助

unit unit1;

interface

uses
  Windows, Messages....

type
  TFormName = (Casefm1, Casefm2, Casefm3);

function xxx(): Boolean;
var
  StrFormName: String;
  CaseFormName: TFormName;
begin
  StrFormName := 'Case' + vFormName; 
  // 將 FormName(物件) 與 TFormName(值) 做區隔。
  // (vFormName為帶有各FormName的字串變數)
  CaseFormName := TFormName(GetEnumValue(TypeInfo(TFormName), StrFormName));

  case CaseFormName of
    Casefm1:
      begin
        ..............
      end;

    Casefm2:
      begin
        ..............
      end;

    Casefm3: 
      begin
       ...............
      end;

【参考链接】

• string 的 case 判断方法 | 三窟

The Delphi menu font seems to always revert to the default (8, Tahoma) Issue，Someone abroad asked about it，But there's no solution。For now, the temporary solution I can think of is to set up a function key (Can be set as a hotkey)，So that when the user encounters the font becoming small，They can manually reset the font size。(During testing, changing the Windows display scaling percentage can make the menu font revert to the default)

procedure Tmainform.N93Click(Sender: TObject);
begin
  Screen.MenuFont.Size := 12;
  xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。
end;

【参考链接】

• Delphi VCL 强制菜单重绘 – Stack Overflow
• 久久一次: Delphi MainMenu 字体放大及菜单选中提示图标消失的解决方法

procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116)  and (HiWord(GetKeyState(VK_CONTROL)) = 1)  then 
  begin
    ......
  end
end;

【参考链接】

• 在菜单项选择时捕捉 SHIFT 键? – Delphi 技巧 – CJC Delphi (酷炫的 Delphi 技巧)
• GetKeyState:GetKeyState ，该函数用于获取指定虚拟键的状态 -百科知识中文网
• DELPHI OnKeyDown,OnKeyPress,OnKeyUp 区别_踏雪无痕的博客-CSDN 博客_delphi onkeydown
• delphi 键值表 – 台部落
• 如何在 Delphi 中检测 ctrl-t 按键 – Stack Overflow
• 键盘键码值对照表

var
  vTime, vTime1, vTime2: double;
begin
  vTime1 := GetTickCount();
  vTime2 := GetTickCount();
  vTime := (vTime2 - vTime1) / 1000;
  Showmessage(floatToStr(vTime) + 's');
end;

【参考链接】

• delphi怎样求出两时间之间相差多少秒？-CSDN社区

之前写过一篇在 Windows 申请 Let's Encrypt 通配符证书」，该篇主要是通过 “Get HTTPS for free!” 网站以手动方式申请或延长证书。最近在架设新网站时，尝试用 WIN-ACME 工具来申请，以方便之后使用其自动续期 (续约) 功能。
继续浏览 »

Joomla 好像从 2.X 甚至 3.X 就开始，会自动将文章内的 Email 地址自动转换为超链接格式。今天在针对某个页面的 Email 地址使用 Javascript 语法，结果却导致点击时，会弹出两个 Outlook 窗口，因此需要关闭内置的转换功能。
继续浏览 »

环境建议：WSUS 主机内存建议 8G 以上。

问. WSUS 经常或一直跳出连接错误，需要重置服务器节点。
答1. 先试试下面这篇做法，将 WsusPool(IIS) 的“专用内存限制”移除。
◎ WSUS 重置服务器节点 | 老森常谈

继续浏览 »

用 Joomla 4 建立新网站，开启 SEO 及 URL 重写后，网站就出现问题，一开始在 Google 上搜索自己的文章 - 「Joomla URL 重写 404 无法显示网页」，主要是因为没有把 httpd.conf 的 AllowOverride 设置为 All 导致。但这次设置后，却变成 403 Forbidden，而且是所有页面都进不去，不管该页面的网址是否使用了 rewrite，研究了好几个小时，终于找到原因。
继续浏览 »

　　陆续有同事反馈新电脑的 Excel 日期格式少了“行事历类型”栏位，因此没法选择“中华民国历”的格式。上网查询后，有的文章说可以去下载 microsoft-windows-internationalfeatures-taiwan-package 的 cab 文件来安装，但我实际下载安装后，会出现 0x800f0818 的错误代码，似乎是版本不兼容。

继续浏览 »

在 Joomla 4 的测试环境上，安装语言时，会弹出以下错误：

连接服务器错误: 303

无效的 URL
无法找到安装包.

继续浏览 »