原创 [小技巧] 倍數的向上取整和向下取整
啥叫倍數的向上取整與向下取整呢？ 舉個例子，你有一個函數，用來分配一塊內存，爲了提高運行速度，要對內存大小進行對齊。 function NewMemBlock(const BlockSize, AlignSize: Integer): P
2020-02-20 14:43:26
1
原创 Delphi 與 VC 共享接口和對象
我經常會用 Delphi 寫一些工具和應用，爲了擴展方便，大部分都會做成插件形式。迫於某些原因，我的插件不得不用其他開發工具來完成，比如 VC。於是有個大問題需要解決：如何讓 D 和 VC 互相通信、互相操作。最普遍的做法，無非是
2018-09-06 19:31:45
原创 WTL漢化版
基於 WTL90_4060 僅漢化了Windows部分，CE和Mobile未漢化 AppWizard和rc文件已全部漢化 如果不需要漢化則將所有的2052目錄刪除即可 如有問題可以給我留言 點我下載
2018-09-06 19:31:45
原创 DelphiXE泛型不能用類類型做爲約束的另類解決方案
前天想寫個泛型類，用來保存類類型（如TClass、TComponentClass之類）但是DelphiXE的泛型約束不支持TClassTClassList<T: TClass> 將會得到編譯錯誤因此我只能去掉約束條件 TClass
2018-09-06 19:31:45
原创 爲Delphi應用增加腳本支持
上次說到我想爲DirectUI增加腳本支持，今天我們就來研究下腳本的實現問題。 雖然現在有了諸如AntLR、GOLD Parser、TP Lex and Yacc等等CC工具，大大方便了腳本引擎的開發，但我仍然覺得在這個框架裏自己實現一套腳
2018-09-06 19:31:45
2
原创 插件框架Extensible Framework for Delphi
工作需要開發的一套插件框架，給應用程序提供靈活的插件支持，基於Dll / Interface實現。 先上個圖 這是個標準的基於插件的應用，下拉框裏的就是由5個插件Dll提供的功能。主程序中定義了一個接口，而插件Dll則提供這個接
2018-09-06 19:31:44
原创 WriteFile寫磁盤扇區是87錯誤的原因
今天在寫個工具,功能是將一些數據寫到磁盤的絕對扇區上. 但是發現ReadFile沒問題,可是WriteFile總是報87錯誤(參數不正確). Google上查了一會,發現碰到問題的人不少,可惜沒有正確答案.... 沒轍,還是啃MSDN,終於
2018-09-06 19:31:44
3
原创 VC CListCtrl 第一列列寬自適應
今天用VC寫工具的時候用到CListView,並且ListCtrl的第一列需要自動拉伸,以佔滿空白區域 Delphi做這個設置是很容易的,只要將Column的AutoSize設置爲True就可以了 不過VC/SDK的AutoSize其實是根
2018-09-06 19:31:44
原创 DirectUI for Delphi
最近公司開發的幾個軟件都需要支持皮膚，因此花了半個月做了一套皮膚引擎，也就是所謂的Direct UI，即控件都是畫在窗體上的，只有容器窗體是有實際句柄的，子控件並非標準的Window。 說說這套引擎的幾個特性 繪製效率尚可，至少圖片很多
2018-09-06 19:31:44
1
原创 百度音樂下載工具 (最後更新: 2012-7-20)
我喜歡在百度上搜索和下載音樂,不過下載太麻煩了,得點好幾下 於是週末在家寫了這個小工具,希望大家能用得上 下載地址在最下面 下載的文件放在同目錄的 Downloads 下,文件名爲 "曲名[歌手][專輯]",如果有同名文件則會覆蓋
2018-09-06 19:31:44
原创 批量更改文件名的批處理文件
最近下了不少動畫，不過文件名都太長，一般都是 [字幕組][名稱][集數][語言][分辨率][編碼].後綴 這樣的格式我喜歡簡單的名字，比如 01.rmvb 之類，可是手動改很麻煩，於是就寫了這個 bat，希望對大家有幫助2009-10-16
2018-09-06 19:31:44
原创 控制光標
(以下演示代碼用C++Builder/Delphi實現)按照習慣，我們的程序在執行時間比較長的時候一般需要把光標設置成漏斗的樣子，執行完操作再換回來。如： Screen.Cursor := crHourGlass; // Do som
2018-08-31 00:00:49