老森常譚 IT Help

　　在安裝網路印表機時，有時會在點兩下後，出現 0x00000BCB 的錯誤，通常發生在條碼標籤機以及點陣印表機，大型事務機則沒發生過，通常重新安裝 Windows Server 上的驅動可以解決，但是隔一段時間後，就又會發生。
繼續瀏覽 »

<%# 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

註1.
電腦\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers
註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 選單似乎一直都有字型會變回預設值 (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 重設伺服器節點 | 老森常譚

繼續瀏覽 »