UAC 與 64 位 Windows 註冊表寫入完整指南(32 位程式、重定向、Manifest)
現象 32 位 Delphi 程式,啟用主題 (Manifest) → Vista/Win7+ 預設 UAC 啟用 → 無管理員權限。 嘗試寫 HKEY_LO
修復 DBGridEh + TMemTableEh Footer 平均值顯示為 0 的 Bug
問題 使用 TMemTableEh 時,DBGridEh Footer 設定平均值 (agfAvg) 永遠顯示 0,其他彙總 (Sum, Count, Min,
遞歸搜尋資料夾檔案升級版:支援多檔案類型通配符(參考萬一老師)
功能 單次呼叫可搜尋多種副檔名(如 *.doc,*.exe),遞歸子目錄,結果累加到 TStringList。 代碼 procedure sysGetFile
Delphi XE7 FireMonkey 跨平台 QR Code 產生完整範例 (Android/iOS/Windows/OSX)
依賴 需 DelphiZXingQRCode.pas(開源 QR Code 編碼庫)。 核心代碼 0 then if imgQRCode.B
Delphi XE7 HttpEncode 編碼差異分析與相容解決方案(XE5 vs XE7)
現象 同樣呼叫 HTTPEncode(過年): XE5 輸出:%B9%FD%C4%EA (ANSI/GB2312) XE7 輸出:%E8%BF%87%E5%B
Delphi XE7 Update 1 呼叫 Android 震動功能(JVibrator)
所需單元 uses Androidapi.JNI.App, Androidapi.JNIBridge, Androidapi.JNI.Os, Android
Delphi 照片抽獎程式原創實作(全螢幕、動態加速、記憶體快取)
需求與設計 年會照片抽獎,照片放 data\ 目錄 (*.jpg)。 總數 ≤ 100,啟動時全讀入記憶體 (TMemoryStream),TJPEGImag
Delphi Unicode 轉中文字串函數(支援 \uXXXX 格式)
函數功能 將含 \u4E00 等標準 Unicode 轉義序列的字串轉為中文字串,自動略過非 Unicode 部分。 代碼 /// /// Unicode轉
DBGridEh Indicator 欄加入動態 CheckBox(支援全選、無需資料綁定)
基本設定 DBGridEh.IndicatorOptions 啟用:gioShowRowIndicatorEh、gioShowRecNoEh、gioShowR
使用 IXMLHTTPRequest 取得網頁原始碼(支援 301 重導向、自動編碼偵測)
改進點 使用 IServerXMLHTTPRequest (CoServerXMLHTTP) 支援 301/302 重導向,CoXMLHTTP 不支援。 自動
Raspbian 系統安裝 Lazarus 完整指令(終端機一鍵安裝)
安裝步驟 在終端機依序執行: sudo apt-get update sudo apt-get upgrade sudo apt-get install fpc
Inno Setup 通用安裝腳本模板(建立開始選單、桌面捷徑、目錄部署)
; 基本資訊 #define MyAppName 我的軟體 #define MyAppVersion 1.0 #define MyAppPublisher 作者
Raspberry Pi 2 安裝最新 FPC 與 Lazarus 1.5 問題記錄
2015 年 2 月推出的 Raspberry Pi 2 無法用舊方法安裝 Lazarus,安裝 FPC 時會報錯中止。具體錯誤訊息待補充,此處僅作記錄標記。
學習筆記:Delphi 多線程同步機制全解析(臨界區、事件、互斥量、信號量、TMonitor)
1. 臨界區 - 輕量級、進程內 var FLock: TRTLCriticalSection; initialization InitializeCritic
Delphi 安裝 .dpk 套件完整步驟(含移除、環境變數)
安裝 .dpk 雙擊開啟 .dpk 專案。 專案選項 → Directories/Conditionals → 清空所有輸出目錄(Output directo
XE7 FireMonkey ListView 自動計算行高(依 Detail 文字長度動態調整)
效果 ListView 每行高度依 Detail 文字內容自動調整,各行高度可不同。 核心代碼 procedure TForm1.Button1Click(
Delphi 遞歸搜尋資料夾檔案函數(支援多層子目錄)
函數原型 procedure TfrmMain.SearchPath(Path, FileName: string; Recurse: Boolean; Lis