老森常譚 IT Help

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, Tahoma) 的問題，國外有人提問，但沒有解決方式。目前我能想到的暫時解法是設定一個功能鍵 (可設為熱鍵)，讓 user 遇到字型變小時，自行重置字型大小。(測試過程可透過變更 Windows 顯示大小百分比來讓選單字型變回預設值)

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

【參考連結】

• Delphi VCL force menu repaint – Stack Overflow
• 久久來一次: 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;

【參考連結】

• Catch SHIFT key during menu item selection? – Delphi Tips – CJC Delphi (Cool Delphi Tips)
• GetKeyState:GetKeyState ，該函式檢取指定虛擬鍵的 -百科知識中文網
• DELPHI OnKeyDown,OnKeyPress,OnKeyUp区别_踏雪无痕的博客-CSDN博客_delphi onkeydown
• delphi key值表 – 台部落
• How to detect ctrl-t keypress in Delphi – 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 wildcard 憑證」，該篇主要是透過 “Get HTTPS for free!” 網站以動手動方式申請或展延憑證。最近在架新的網站時，試著用 WIN-ACME 工具來申請，以方便之後使用其自動展延 (renewal) 功能。
繼續瀏覽 »

　　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 rewrite 404 無法顯示網頁」，主要是因為沒把 httpd.conf 的 AllowOverride 設為 All 導致。但這次設完後，卻變成 403 Forbidden，且是所有頁面都進不去，不管該頁網址有沒有用到 rewrite，研究了幾個小時，總算找到原因。
繼續瀏覽 »

　　陸續有同事反應新電腦的 Excel 日期格式少了「行事曆類型」欄位，因此沒法選擇「中華民國曆」的格式。上網查詢後，有的文章說可以去下載 microsoft-windows-internationalfeatures-taiwan-package 的 cab 檔來安裝，但我實際下載安裝後，會出現 0x800f0818 的錯誤代碼，似乎是版本不合。

繼續瀏覽 »

　　在 Joomla 4 的測試環境上，安裝語言時，會跳出以下錯誤：

Error connecting to the server: 303

Invalid URL
Unable to find install package.

繼續瀏覽 »