Old Sen Chang Tan

When installing a network printer，sometimes after two clicks，An error of 0x00000BCB occurred，Usually occurs in barcode labelers and dot matrix printers，The mainframe never happened，Usually reinstalling the driver on Windows Server solves the problem，But after a while，will happen again。
Continue browsing »

<%# 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 method (System) | Microsoft Docs
• Custom date and time format strings | Microsoft Docs
• Standard date and time format strings | Microsoft Docs

Note 1.
電腦HKEY_CURRENT_USERSOFTWAREMicrosoftWindows NTCurrentVersionAppCompatFlagsLayers
Note 2.
電腦HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionAppCompatFlagsLayers

PS. The key is "string value"，value is”~ HUMAN ADMIN”。

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 method to judge string | three caves

Delphi menus seem to always have fonts that go back to default (8, Tahoma) The problem，Questions from abroad，but no solution。The temporary solution I can think of at the moment is to set a function key (Can be set as hotkey)，Let user encounter small font size，Reset font size by yourself。(During testing, the menu font can be changed back to the default value by changing the Windows display size percentage)

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

【參考連結】

• Delphi VCL force menu repaint – Stack Overflow
• once in a while: Delphi MainMenu font enlargement and Menu Checked prompt icon missing solution

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 -Encyclopedia Knowledge Chinese Network
• DELPHI OnKeyDown,OnKeyPress,OnKeyUp Difference-CSDN Blog_delphi onkeydown
• delphi key value table – Taiwan tribe
• How to detect ctrl-t keypress in Delphi – Stack Overflow
• Keyboard key code value comparison table

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

【參考連結】

• How does delphi find the difference between two times in seconds?-CSDN community

I have previously written a "Apply for Let’s Encrypt wildcard certificate on Windows」，This article is mainly through “Get HTTPS for free!” The website applies for or extends the certificate manually。When a new website was launched recently，Try to apply with WIN-ACME tool，to make it easier to use its automatic extension later (renewal) Features。
Continue browsing »

Joomla seems to start from 2.X and 3.X，The email address in the article will be automatically converted into a hyperlink format。Using Javascript syntax for the email address of a page today，results in a click，Two Outlook windows will pop up，So you need to turn off the built-in conversion function。
Continue browsing »

Environmental advice：WSUS host memory is recommended to be above 8G。

Q. WSUS often or always throws a connection error，Need to reset server node。
A1. Try this first，Put WsusPool(IIS) remove the "special memory limit"。
◎ Reset server nodes WSUS | Old Sen Chang Tan

Continue browsing »