Lao Sen Chang Tan 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 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 »

　　用 Joomla 4 Build a new website，After enabling SEO and URL Rewrite，Problem with website，At first Google to its own article - "Joomla URL rewrite 404 Can not be displayed」，Mainly because the AllowOverride of httpd.conf is not set to All。But after this time，卻變成 403 Forbidden，And all the pages can't enter，Regardless of whether the page URL is used for rewrite，researched for hours，Finally found the reason。
Continue browsing »

　　 Colleagues have reported that the Excel date format of the new computer is missing the "Calendar Type" field，Therefore, it is impossible to choose the format of the "Republic of China Calendar"。上網查詢後，Some articles say that you can download the cab file of microsoft-windows-internationalfeatures-taiwan-package to install，But after I actually downloaded and installed，An error code of 0x800f0818 will appear，It seems that the version does not match。

Continue browsing »

　　在 Joomla 4 On the test environment，When installing languages，The following error will pop up：

Error connecting to the server: 303

Invalid URL
Unable to find install package.

Continue browsing »