原创 OS LanguageID
LANGID GetSystemDefaultLangID(void); LANGID GetUserDefaultLangID(void); 他們的返回值是語言的ID： 0x0000 Language Neutral 0x007f
2020-02-21 16:28:58
原创 類事件栗子
TonMsg = procedure(s: string) of object; Tman = class private fAge: integer; fonMsg: TonMsg; procedur
2020-02-21 16:28:58
原创 匿名方法[1]
Tfun = REFERENCE to function(c, y: integer): integer; function Ta(x, y: integer; Tb: Tfun): integer; begin result :=
2020-02-21 16:28:57
原创 修復快捷圖標丟失
@echo off setlocal EnableDelayedExpansion color 2f echo. echo ------------------------------------------------------ e
2019-03-22 19:50:32
原创 數組類型指針
{使用一個元素的數組指針} PMyRec = ^TMyRec; TMyRec = record F1: Char; F2: Word; end; procedure TForm1.Button1Click(S
2018-09-05 00:43:11
原创 Delphi之鉤子函數
目前對鉤子的理解: 譬如我們用鼠標在某個窗口上雙擊了一次, 或者給某個窗口輸入了一個字母 A;首先發現這些事件的不是窗口, 而是系統! 然後系統告訴窗口: 喂! 你讓人點了, 並且是連續點了兩鼠標, 你準備怎麼辦?或者
2018-09-05 00:42:58
2
原创 Delphi 快捷鍵
分類 快捷鍵 解釋 備註 組 件 設 計 類 Escape 選擇當前組件容器 Shift + Click 選擇多個組件；選擇窗體 Tab 選擇下一個組件 Shift + Tab 選擇上一個組件
2018-09-05 00:42:57
原创 數組指針參數
Const arr1: array [0 .. 1, 0 .. 1] of string = (('A0B0', 'A1B0'), ('A0B1', 'A1B1')); arr2: array [0 .. 2, 0 ..
2018-09-05 00:42:57
原创 Unicode 字符
unit unUnicode; {摘自萬一博客} interface uses Windows, Messages, SysUtils,
2018-09-05 00:42:57
原创 提升進程權限爲DEBUG權限
procedure SetPrivilege; var OldTokenPrivileges, TokenPrivileges: TTokenPrivileges; ReturnLength: dword; hToken: T
2018-09-05 00:42:57
原创 RmbChangdx
function RmbChangdx(mmje: Double): String; const s1: String = '零壹貳叄肆伍陸柒捌玖'; s2: String = '分角元拾佰仟萬拾佰仟億拾佰仟萬'; var
2018-09-05 00:42:57
原创 分離包含空格字符串[xe & D7]
xe var s: string; sList: TStringList; begin s := 'aaa,bbb,cc c,dd dd,eee'; sList := TStringList.Create; sLis
2018-09-05 00:42:56
原创 Tlist_Demo
type TSmt = record SName: string[16]; Feeder: Integer; Dushu: Real; end; Psmt = ^TSmt; var List:
2018-09-05 00:42:55
原创 Delphi製作DLL
Delphi製作DLL 一 Dll的製作一般步驟 二 參數傳遞 三 DLL的初始化和退出清理[如果需要初始化和退出清理] 四 全局變量的使用 五 調用靜態載入 六 調用動態載入 七 在DLL建立一個Tform 八
2018-09-05 00:42:49
71
原创 REGEXPR正則表達式
DELPHi中的REGEXPR 首先介紹的是這個單元的主角：TRegExpr類，這個類包括很多成員，這裏僅簡單的介紹一下一般匹配的過程。下面是一段在文本中提取郵件地址的代碼： Procedure GetName(TextToCh
2018-09-05 00:42:48
1