老森常谭 IT Help

注1.
电脑HKEY_CURRENT_USERSOFTWAREMicrosoftWindows NTCurrentVersionAppCompatFlagsLayers
注2.
电脑HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionAppCompatFlagsLayers

聚苯乙烯. 机码为「字串值」，值为”〜人类管理员”。

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;

【參考連結】

• case 判断string的方法 | 三窟

Delphi 选单似乎一直都有字型会变回预设值 (8, 塔霍马) 的问题，国外有人提问，但没有解决方式。目前我能想到的暂时解法是设定一个功能键 (可设为热键)，让 user 遇到字型变小时，自行重置字型大小。(测试过程可透过变更 Windows 显示大小百分比来让选单字型变回预设值)

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

【參考連結】

• Delphi VCL 强制菜单重绘 – 堆栈溢出
• 久久来一次: Delphi MainMenu 字型放大及Menu Checked 提示图示不见解决方法

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 键? – 德尔福技巧 – CJC德尔福 (酷德尔福技巧)
• 获取密钥状态:获取密钥状态 ，该函式检取指定虚拟键的 -百科知识中文网
• 德尔福 OnKeyDown,OnKeyPress,OnKeyUp区别_踏雪无痕的博客-CSDN博客_delphi onkeydown
• delphi key值表 – 台部落
• 如何在 Delphi 中检测 ctrl-t 按键 – 堆栈溢出
• 键盘键码值对照表

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 wildcard 凭证“，该篇主要是透过 “免费获取HTTPS!” 网站以动手动方式申请或展延凭证。最近在架新的网站时，试着用 WIN-ACME 工具来申请，以方便之后使用其自动展延 (更新) 功能。
继续浏览 »

　　Joomla 好像从 2.X 还 3.X 开始，会自动将文章内的 Email 位址自动转成超连结格式。今天在针对某个页面的 Email 位址使用 Javascript 语法，结果却造成点击时，会跳出两个 Outlook 视窗，因此需要关闭内建的转换功能。
继续浏览 »

环境建议：WSUS 主机记忆体建议有 8G 以上。

Q. WSUS 常常或始终跳出连线错误，需要重设伺服器节点。
A1. 先试试下面这篇做法，将 WsusPool(IIS) 的「专用记忆体限制」拿掉。
◎ WSUS 重设伺服器节点 | 老森常譚

继续浏览 »

用 Joomla 4 建置新网站，开启 SEO 及 URL Rewrite 后，网站就出现问题，一开始 Google 到自己的文章 -「的Joomla URL重写 404 无法显示网页“，主要是因为没把 httpd.conf 的 AllowOverride 设为 All 导致。但这次设完后，卻變成 403 禁止的，且是所有页面都进不去，不管该页网址有没有用到 rewrite，研究了几个小时，总算找到原因。
继续浏览 »

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

继续浏览 »