原创 改變窗口層疊的順序

BringWindowToTop The BringWindowToTop function brings the specified window to the top of the Z order. If the window is

原创 對選項的程序的改進

如果對一個軟件內有很多軟件開關的時候,如果採用一個全局變量在程序啓動時載入,用這個變量的各個位去表示各個選項,這樣就大大減少了IF語句的數量。一個IF

原创 IsIconic(判斷窗口是否最小化)

The IsIconic function determines whether the specified window is minimized (iconic). 函數isiconic返回值取決於指定窗口是否已經最小化。 BOOL

原创 對繼電器操作

繼電器都是ms級。 由於火花或電源抖動都可能造成系統復位或eeprom寫入失敗。 所以要在寫入EEPROM之後然後再操作繼電器,以免中間程序復位。 造成EEPROM內狀態和實際繼電器狀態的不一致。 點贊 收藏 分享

原创 編譯 Ares Galaxy 的過程

     這幾天工作不忙,在公司閒着沒事,逛逛sourceforge,忽然發現排名第二位的Ares居然是Delphi編寫的。正是俺的老本行。下載下來瞄~一下。看一下下面的文本文件,頭小發懵~這麼多第三方控

原创 Ares 代碼心得1

  1、創建一個臨時的定時器刷新界面,注意執行OnTimer的時候把自己free掉。 另,OnTimer傳進來的Sender就是Timer自己。 2、SHFOLDER.DLL .....(外殼文件夾服務)

原创 人總是被環境控制

剛剛把同事的一個代碼接過來,覺得很爛,很想重構一下。 可第一公司沒獎金的獎勵; 第二又是Delphi語言的東西,沒啥動力。 扔在那吧。 

原创 Classes2 單元

比較了一下。我感覺稍微有效的點的代碼在Grow部分。 這是TMyList的Grow procedure TMyList.Grow;begin  if FCapacity<64 then SetCapacity(FCapacity+8) 

原创 61條面向對象設計的經驗原則

你不必嚴格遵守這些原則,違背它們也不會被處以宗教刑罰。但你應當把這些原則看成警鈴,若違背了其中的一條,那麼警鈴就會響起。 -----Arthur J.Riel         (1)所有數據都應該隱藏在所在的類的內部。p13   (2

原创 一點關於Ares的看法

一直想寫點最近看Ares代碼的感想,最近小忙了幾天,今天得空寫兩句。 第一眼這個軟件的界面和功能確實不錯,多線程也做的很好。寫這些代碼的人應該有非常強的毅力和邏輯思維能力。如果我把代碼的結構寫成這個樣子,我肯定是無法還能讓它這麼穩定的運行

原创 Delphi中的線程類【轉載】

Delphi中有一個線程類TThread是用來實現多線程編程的,這個絕大多數Delphi書藉都有說到,但基本上都是對TThread類的幾個成員作一簡單介紹,再說明一下Execute的實現和Synchronize的用法就完了。然而這並不是多

原创 Delphi 完全時尚手冊之 Visual Style 篇---使非標準 Win32 控件或自畫控件也具有 Windows XP 的界面風格

Delphi 完全時尚手冊之 Visual Style 篇---使非標準 Win32 控件或自畫控件也具有 Windows XP 的界面風格     這裏先說說兩個概念:Theme(主題)和 Visual Style 。Theme 最早出

原创 XP Visual Styles的一點體會

    首先在MSDN裏Using Windows XP Visual Styles對Visual Styles的使用有詳細描述,特別是對我一直很迷惑的XPMan單元,有了解釋。在XPMan單元裏有很重要的一行,{$R WindowsXP

原创 Delphi 的Record結構體

     一直以來對帶case的Record只會用而不求甚解。知道他類似於c語言的union。今天詳細看了help。瞭解一下。汗~啊。先對自己內心進行下自我批評~~~~ 下面是偶的新體會。 1. 首先瞭解到record是可以限制fiel

原创 Windows環境下Unicode編程總結

  UNICODE環境設置在安裝Visual Studio時,在選擇VC++時需要加入unicode選項,保證相關的庫文件可以拷貝到system32下。  UNICODE編譯設置:C/C++, Prepro