Sep 1

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 »

Aug 25
<%# 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.'

【參考連結】

Aug 22
Settings page object setpoint position
"shortcut" the shortcut shortcut file
"compatibility" User 碼 machine(Note 1.)
"Compatibility for all users" All Users 碼 machine(Note 2.)

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

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

Jul 11
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;

【參考連結】

Jul 11

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;

【參考連結】

Jul 11
procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116)  and (HiWord(GetKeyState(VK_CONTROL)) = 1)  then 
  begin
    ......
  end
end;

【參考連結】

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

【參考連結】

May 9

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 »

Apr 20

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 »

Apr 15
WSUS FAQ
icon1 Anson | icon2 Windows | icon4 04 15th, 2022| icon1 1,996 views | icon32 Comments »

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 »