Old Sen's Tales IT Help

<%# Eval("SDate", "{0:yyyy/MM/dd}") %>
// 0: 表示定義整個括號裡面的第 0 個變數要採用此日期格式。

// 以下為兩個變數的範例。
string s = String.Format("At {0}, the temperature is {1}°C.",
                         DateTime.Now, 20.4);
Console.WriteLine(s);
// Output similar to: 'At 4/10/2015 9:29:41 AM, the temperature is 20.4°C.'

【參考連結】

• asp.net – how to apply particular FORMAT of date by using eval? – Stack Overflow
• c# – What does the 0 in “{0:MM dd yyyy}” do? – Stack Overflow
• String.Format 方法 (System) | Microsoft Docs
• 自訂日期與時間格式字串 | Microsoft Docs
• 標準日期和時間格式字串 | Microsoft Docs

Note 1.
電腦\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers
Note 2.
電腦\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers

PS. 機碼為「字串值」，值為”~ RUNASADMIN”。

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 menus always seem to revert to the default font (8, Tahoma) problem，Some users abroad have asked about this，but there is no solution。Currently, the temporary workaround I can think of is to set up a function key (which can be used as a hotkey)，so that when users encounter a smaller font,，they can manually reset the font size。(During testing, changing the Windows display scaling percentage can make the menu font revert to the default size)

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

【參考連結】

• Delphi VCL force menu repaint – Stack Overflow
• Once in a long while: How to enlarge Delphi MainMenu font and fix missing Menu Checked icons

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 ，This function retrieves the specified virtual key -Chinese Wiki
• DELPHI OnKeyDown,OnKeyPress,Difference between OnKeyDown, OnKeyPress, OnKeyUp_blog by Snowless-CSDN Blog_delphi onkeydown
• Delphi key value table – Taiwan Blog
• How to detect ctrl-t keypress in Delphi – Stack Overflow
• Keyboard key code reference table

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) 功能。
繼續瀏覽 »

It seems that Joomla, starting from version 2.X and 3.X,，automatically converts email addresses in articles into hyperlink format。Today, when using JavaScript for the email address on a specific page，it resulted in clicking，causing two Outlook windows to pop up，因此需要關閉內建的轉換功能。
繼續瀏覽 »

環境建議：WSUS 主機記憶體建議有 8G 以上。

Q. WSUS 常常或始終跳出連線錯誤，需要重設伺服器節點。
A1. 先試試下面這篇做法，將 WsusPool(IIS) 的「專用記憶體限制」拿掉。
◎ WSUS Reset Server Node | 老森常譚

繼續瀏覽 »

　　用 Joomla 4 建置新網站，開啟 SEO 及 URL Rewrite 後，網站就出現問題，一開始 Google 到自己的文章 -「Joomla URL rewrite 404 Unable to display webpage」，主要是因為沒把 httpd.conf 的 AllowOverride 設為 All 導致。但這次設完後，卻變成 403 Forbidden，且是所有頁面都進不去，Whether or not the page URL uses rewrite，After researching for a few hours，Finally found the reason。
繼續瀏覽 »