認識病毒的映像劫持技術(Image File Execution Options)

映像劫持的定義
所謂的映像劫持（IFEO）就是Image File Execution Options，位於註冊表的HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options
由於這個項主要是用來調試程序用的，對一般用戶意義不大。默認是只有管理員和local system有權讀寫修改。
通俗一點來說，就是比如我想運行QQ.exe，結果運行的卻是FlashGet.exe，也就是說在這種情況下，QQ程序被FLASHGET給劫持了，即你想運行的程序被另外一個程序代替了。
映像劫持病毒
雖然映像劫持是系統自帶的功能，對我們一般用戶來說根本沒什麼用的必要，但是就有一些病毒通過映像劫持來做文章，表面上看起來是運行了一個程序，實際上病毒已經在後台運行了。
大部分的病毒和木馬都是通過加載系統啟動項來運行的，也有一些是註冊成為系統服務來啟動，他們主要通過修改註冊表來實現這個目的，主要有以下幾個方面：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows\AppInit_DLLs
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce
更多啟動項請參考：系統啟動時所有可能加載啟動程序的方式&&&系統加載方式一文。

##CONTINUE##
但是與一般的木馬，病毒不同的是，就有一些病毒偏偏不通過這些來加載自己，不隨著系統的啟動運行，而是等到你運行某個特定的程序的時候運行，這也抓住了一些用戶的心理，一般的用戶，只要發覺自己的機子中了病毒，首先要察看的就是系統的加載項，很少有人會想到映像劫持，這也是這種病毒高明的地方。
映像劫持病毒主要通過修改註冊表中的HKEY_LOCAL_MACHINE\ SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution options 項來劫持正常的程序，比如有一個病毒 vires.exe 要劫持 qq 程序，它會在上面註冊表的位置新建一個qq.exe項，再這個項下面新建一個字符串的鍵值 debugger 內容是：C:\WINDOWS\SYSTEM32\VIRES.EXE(這裡是病毒藏身的目錄)即可。當然如果你把該字符串值改為任意的其他值的話，系統就會提示找不到該文件。
映像脅持的基本原理
WINDOWS NT系統在試圖執行一個從命令行調用的可執行文件運行請求時，先會檢查運行程序是不是可執行文件，如果是的話，再檢查格式的，然後就會檢查是否存在。如果不存在的話，它會提示系統找不到文件或者是「指定的路徑不正確等等。把這些鍵刪除後，程序就可以運行！
映像劫持的應用
★ 禁止某些程序的運行
先看一段代碼：
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File
Execution Options\qq.exe]
"Debugger"="123.exe"
把它保存為 norun_qq.reg，雙擊導入註冊表，打開你的QQ看一下效果！
這段代碼的作用是禁止QQ運行，每次雙擊運行QQ的時候，系統都會彈出一個框提示說找不到QQ，原因就是QQ被重定向了。如果要讓QQ繼續運行的話，把123.exe改為其安裝目錄就可以了。
★ 偷樑換柱惡作劇
每次我們按下CTRL+ALT+DEL鍵時，都會彈出任務管理器，想不想在我們按下這些鍵的時候讓它彈出命令提示符窗口，下面就教你怎麼玩：
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File
Execution Options\taskmgr.exe]
"Debugger"="C:\\WINDOWS\\pchealth\\helpctr\\binaries\\msconfig.exe"
將上面的代碼另存為 task_cmd.reg，雙擊導入註冊表。按下那三個鍵看是什麼效果，不用我說了吧，是不是很驚訝啊！精彩的還在後頭呢？
★讓病毒迷失自我
同上面的道理一樣，如果我們把病毒程序給重定向了，是不是病毒就不能運行了，答案是肯定的！下面就自己試著玩吧！
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File
Execution Options\sppoolsv.exe]
"Debugger"="123.exe"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File
Execution Options\logo_1.exe]
"Debugger"="123.exe"
上面的代碼是以金豬報喜病毒和威金病毒為例，這樣即使這些病毒在系統啟動項裡面，即使隨系統運行了，但是由於映像劫持的重定向作用，還是會被系統提示無法找到病毒文件（這裡是 logo_1.exe和sppoolsv.exe）。是不是很過癮啊，想不到病毒也有今天！
當然你也可以把病毒程序重定向到你要啟動的程序中去，如果你想讓QQ開機自啟動，你可以把上面的123.exe改為你QQ的安裝路徑即可，但是前提是這些病毒必須是隨系統的啟動而啟動的。
映像劫持的應用也講了不少了，下面就給大家介紹一下如何防止映像劫持吧！
關於映像劫持的預防，主要通過以下幾個方法來實現：
★權限限制法
如果用戶無權訪問該註冊表項了，它也就無法修改這些東西了。打開註冊表編輯器，進入HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Image File Execution Options ，選中該項，右鍵——>權限——>高級，將administrator 和 system 用戶的權限調低即可（這裡只要把寫入操作給取消就行了）。
★快刀斬亂麻法
打開註冊表編輯器，進入把HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options項，直接刪掉 Image File Execution Options 項即可解決問題。

以上文章轉貼自賽迪網

dbExpress(DBX4) AS400 Driver

在安裝RAD Studio DELPHI 2007後，C:\Documents and Settings\user\My Documents\RAD Studio\5.0\Demos\database\projects\dbx\driver\as400資料夾中有提供連接AS400的Driver。

Installation instructions for dbexpca400 (dbExpress driver)

##CONTINUE##

-----------------------------------------------------------

0) set up your iSeries or AS/400 connection in iSeries Access, for this example the connection is called "MYAS400" (usually this is already configured)

1) copy dbexpca400.dll to a directory that is in your path, make sure only one version of dbexpca400.dll is on your system. The Windows\system or WINNT\system32 directory is a good place for the driver.

(optional) copy dbexpca400.obj and iseriesaccess.obj to $(BCB)\Lib for C++Builder 6 (optional) copy dbexpca400.dcu and iseriesaccess.dcu to $(Delphi)\Lib for Delphi 7 or 6

2) modify dbXDrivers.ini, depending on your Delphi version in

Delphi 2007: %Public%\Documents\RAD Studio\dbexpress Delphi 2005: %CommonProgramFiles%\Borland Shared\BDS\dbExpress Delphi 2006: %ProgramFiles%\BDS\4.0\dbexpress Delphi 6, Delphi 7, C++Builder 6: %CommonProgramFiles%\Borland Shared\DBExpress\

[Installed Drivers] CA400=1

[CA400] GetDriverFunc=getSQLDriverCA400 LibraryName=dbexpca400.dll VendorLib=cwbdb.dll Database=MYAS400 User_Name= Password= ServerCharSet= ErrorResourceFile= LocaleCode=0000 BlobSize=-1 RowsetSize=-1 RoleName= CA400 TransIsolation=DirtyRead CommitRetain=True AutoCommit=True Custom String=/trace=0 Connection Timeout=-1 Trim Char=False

[CA400 TransIsolation] DirtyRead=0 ReadCommited=1 RepeatableRead=2

3) drop a TSQLConnection on a form, double click the TSQLConnection then choose "+ Add Connection", select driver name "CA400" and give your connection a name, for example "MYCA400CONN". Check that Database is set to the connection you defined in iSeries Access (MYAS400)

4) set the "LoginPrompt" property of SQLConnection to false if you don't want to be prompted for a password (the connection security is maintained by iSeries Access)

5) drop a TSQLQuery on your form, set it's SQLConnection property to your SQLConnection. Set the SQL property to for example 'select * from "QIWS"."QCUSTCDT"' (QIWS.QCUSTCDT is a standard table on every iSeries system)

Borland Database Engine (BDE) 移植到DBX4方法

首先下載http://www.bluetrainsoftware.com/developersinc/dbx_bde.zip套件。

解壓縮到目錄，開啟dbx4_bde_wrapper.dproj，先build，然後install。

 

打開目錄中的dbxdrivers.ini，複製下列文字

DBX4BDE=1

[DBX4BDE]
DelegateDriver=False
DriverName=DBX4BDE
DriverUnit=dbx4_bde_wrapper_unit
DriverPackageLoader=TDBX4BDEDriverLoader
DriverPackage=dbx4_bde_wrapper.bpl
Database=DBDEMOS

加到到C:\Documents and Settings\user\My Documents\RAD Studio\dbExpress\的dbxdrivers.ini檔中。

作法：

1. 打開或新增專案，放上BDE的TDatabase元件，設定好參數，name=myDemos。

2. 放上dbExpress的TSQLConnection元件，Edit Connection Properties，Add Connection。

3. Driver Name = DBX4BDE，Connection Name 自行命名。

4. Connection Setting的Database = myDemos。

5. 按Test Connection，Successfully Connectioned。

完成。

 

Demo Video參考連結：http://www.bluetrainsoftware.com/developersinc/DBXBDEDemo/dbx_bde_project.html

如何在Data Explorer建立Blackfishsql新資料庫?

如何在新DBX_DEMO_JDS connection建立bfdmeo.JDS：

打開Data Explorer, 選擇dbExpress | BlackfishSql | 右鍵 | Add New Connection

輸入 connection name, 例如: "dbx_demo_jds" 按 "Ok"

在這新的 connection 按右鍵, 選擇 "Modify Connection"

打開Connection對話方塊

輸入新的database參數：

• the server name : localhost
• the database name: 資料庫完整路徑名稱, 例：

    C:\programs\us\db\blackfishsql\data\bfdemo.jds

• the user name : SYSDBA
• the password : masterkey

按 "Advanced" 按鈕打開進階參數設定, 將 "Create" 設成 True:

按 "Ok"

按 "Test Connection"

顯示 "Connection Succeeds" 
按 "Ok"
新的database 成功建立完成.

Delphi Vcl for Web(intraweb)由StandAlone改為ISAPI

Library Project1; //Program 改為 Library uses Forms, IWMain, ISAPIApp, //增加 IWInitISAPI, //增加 main in 'main.pas' {IWForm2: TIWAppForm}, ServerController in 'ServerController.pas' {IWServerController: TIWServerControllerBase}, UserSessionUnit in 'UserSessionUnit.pas' {IWUserSession: TIWUserSessionBase}; {$R *.res} { begin Application.Initialize; Application.CreateForm(TformIWMain, formIWMain); Application.Run; end. } //改成下面語法 exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; begin IWRun; end.

Delphi中建議使用的寫法

{ No.1 判斷邏輯類型} var B: Boolean; begin B := Boolean(2); //這樣只是為了調試//B := True; if B = True then ShowMessage('B = True'); //不建議//不安全 /////// if B then ShowMessage('B'); //建議//簡短 end; var B: Boolean; begin if Edit1.Text = '是' then //不建議//煩瑣 B := True else B := False; /////// B := Edit1.Text = '是'; //建議//簡短 end; { No.2 臨時SQL查詢 } begin QueryTemp.Close; QueryTemp.SQL.Text := 'SELECT SUM(金額) AS 合計 FROM 銷售表'; QueryTemp.Open; //不建議, 數據沒有關閉造成資源浪費 ShowMessage(Query1.FieldByName('合計').AsString); ///// QueryTemp.SQL.Text := 'SELECT SUM(金額) AS 合計 FROM 銷售表'; QueryTemp.Open; ShowMessage(Query1.FieldByName('合計').AsString); QueryTemp.Close; //建議用,使用完就關閉 end; { No.3 字段賦值 } begin Table1.Edit; Table1.FieldByName('姓名').AsString := Edit1.Text; //不建議 Table1.FieldByName('日期').AsDateTime := Date; ///// Table1['姓名'] := Edit1.Text; //建議, 簡短、擴充性好 //Table1.Fieldvalues['姓名'] := Edit1.Text; //Borland建議的方法。以及Paramvalues[] Table1['日期'] := Date; end; { No.4 使用Self指針 } begin Edit1.Parent := Form1; //不建議//Form1只是一個變量//如果沒有分配資源怎麼辦？ /////// Edit1.Parent := Self; //建議 end; { No.5 利用Sender參數，使代碼通用 } procedure TForm1.Edit1Change(Sender: TObject); begin if Edit1.Text = '' then //不建議 Edit1.Color := clRed; /////// if TEdit(Sender).Text = '' then //建議, 複製到EditXChange中很方便 TEdit(Sender).Color := clRed; end; { No.6 遍歷數組 } var I: Integer; A: array[0..9] of Integer; begin for I := 0 to 9 do //不建議 A[I] := I; /////// for I := Low(A) to High(A) do //建議//擴充性好 A[I] := I; end; { No.7 利用MaxInt常量 } begin Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); //不建議 /////// Caption := Copy(Edit1.Text, 3, MaxInt); //建議//嘻嘻，少計算一次 end; { No.8 必須執行的代碼、使用try … finally … end語句 } var vStringList: TStringList; begin vStringList := TStringList.Create; vStringList.LoadFromFile('c:\temp.txt'); ShowMessage(vStringList.Text); vStringList.Free; //不建議//如果出現異常資源將無法釋放 /////// vStringList := TStringList.Create; try vStringList.LoadFromFile('c:\temp.txt'); ShowMessage(vStringList.Text); finally //建議//即使出現Exit都會執行 vStringList.Free; end; end; //其他情況1 begin Screen.Cursor := crHourGlass; try { 耗時操作 } finally Screen.Cursor := crDefault; end; end; //其他情況2 begin Query1.DisableControls; try { 操作數據集 } finally Query1.EnableControls; end; end;

計算你的網站排放了多少二氧化碳

根據統計，每年光是網際網路就排放了 1000 億磅的二氧化碳，所以哈佛和耶魯的學生做出了可以計算網站二氧化碳排放量的免費 widget，雖然不知道它是怎麼算出來的，不過蠻有趣，而且又有環保概念，所以快去把官網或下面的程式碼貼在你的網站上，看看你的網站是不是綠色網站。

<a href=http://www.co2stats.com/?rs=4850><img src=http://www.co2stats.com/widget.php?s=4850 border="0"></a>

 

修復Windows工作列按鈕消失

- 啟動登錄編輯程式 :

至 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

DWORD parameter NoToolbarsOnTaskbar

- 設定 1

- 重開機, 所有工作列會被清除

- 再設定 NoToolbarsOnTaskbar 0

- 重開機

如何正確測量體脂肪？

作者﹕文／臺北榮民總醫院營養部營養師林明潔

體重是由骨骼、肌肉、內臟、體液及體脂肪的總和。隨著個人成長、生育或活動量等不同，有部分體組成產生量的變化。以體液為例，它佔總體重60-65%，若身體發生脫水現象，體重變化可能差異數公斤之多。事實上，體重增減，主要與脂肪細胞大小變化有關。若體內儲存過多脂肪，即稱為「肥胖症」(Obesity)。

以20-24歲，身高174公分高，體重70公斤之正常年輕外國男性為例，體內之總脂肪量約佔總體重的10.5公斤(15%)，其中約2.1公斤(3%)是必需脂肪，以保護內臟，或維持神經系統正常功能。另外，8.4公斤(12%)是儲存型之脂肪，它是堆積在皮膚下層，或包圍在各內臟間，以行保護作用。同樣地，以20-24歲，身高164公分高，體重57公斤之正常年輕外國女性為例，體內之總脂肪量約佔總體重的14.3公斤(25%)，其中約6.8公斤(12%)是必需脂肪，又其中5-9%的脂肪分佈在胸部、臀部和大腿。另外，7.4公斤(13%)是儲存型之脂肪。由此可知，男性體脂肪含量比女性少。

因此，以體脂肪來做肥胖指標時，正常年輕男性體脂肪為體重15%，若大於20%，視為體脂肪過多。而年齡大於50歲之男性，體脂肪平均為體重的25%，大於30%時可稱為「肥胖症」。正常年輕女性體脂肪為體重25%，若大於體重30%，則視為體脂肪過多，中年以上之婦女，體脂肪大於體重37%則嫌太胖。 ##CONTINUE##

體脂肪的測量法有五種，以下分別述說其原理及實用性：
一、水中稱重法：是利用阿基米德原理—物體在水中所減少重量(即浮力)等於物體在水中所佔同體積水重。在陸地上稱好體重，然後沈入水中作最大呼氣後再稱一次體重，根據這兩項的體重差異，代入公式求體脂肪百分比，此方法最準確，但是受限於需要使用特殊儀器與設備。
二、皮下脂肪測量法：是利用特殊的皮下脂肪測量器在特定身體部位，測量皮下脂肪的厚度，最常用測量的部位有下列五處：1.上臂三頭肌的背部；2.肩胛骨下方；3.腸骨的上方腹面；4.肚臍旁的腹部；5.大腿的上方前面。再根據這五處皮下脂肪的厚度總和來衡量體脂肪的多寡。此方法適用於運動員或接受運動訓練或重量訓練數年者。
三、體圍測量法：是在身體特定的部位以軟尺測量其周長的方法，常用來測量的部位包括：1.腹部(肚臍上方2.5公分處)；2.臀部(兩腳靠攏時臀部最突出處)；3.右大腿(臀部下方處)；4.右上臂(在手臂向前伸直且手掌朝上時量肩與肘的中點)；5.右前臂(在手臂向前伸直且手掌朝上時量右前臂最粗大處)；6.右小腿(膝與踝之間最粗大處)，此方法適合非運動員。
四、脂肪細胞檢查法：直接測量脂肪細胞的大小及數目。此法必需取出一塊體脂肪，然後以化學方法將脂肪細胞分離，再用顯微照相法等求脂肪細胞量。
五、生物電阻測量法：利用脂肪與水分導電率不同的原理，藉由電流通過測試者之兩極肢體，來測量體內脂肪比率。這是目前市售體脂機最常見測量原理，但當膀胱沒排空、胃有食物、排便未乾淨等情形，都會造成估計錯誤。

體重扣除體脂肪後所得的重量，稱「非體脂肪組織」(Lean Body Mass;LBM)，可因運動量增加而增加。相對地，就是減少體脂肪量，以舉重選手為例，體脂肪大多控制在20%左右，那是因為有運動之故，所以看起來胖的人，不一定脂肪率高。然而，過高的體脂肪是各種慢性疾病的主要導火線，建議您，一旦發現脂肪率偏高，就必須檢測血壓、血糖等情況，瞭解是否潛藏危害健康因數，待找出肥胖原因後，再請營養師設計合適的健康餐飲、配合運動及改變生活方式。

變更 Windows XP / 2003 產品金鑰

變更步驟如下：

1. 按一下 [開始]，然後按一下 [執行]。

2. 在 [開啟] 方塊中，輸入 regedit，然後按一下 [確定]。

3. 在左邊窗格中，找出並按一下下列登錄機碼： HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\Current Version\WPAEvents

4. 在右邊窗格中，用滑鼠右鍵按一下 [OOBETimer]，然後按一下 [修改]。

5. 至少變更這個數值的其中一個數字，來停用 Windows。

6. 按一下 [開始]，然後按一下 [執行]。

7. 在 [開啟] 方塊中，輸入下列命令，然後按一下 [確定]。 %systemroot%\system32\oobe\msoobe.exe /a

8. 按一下 [是，我想要打電話給客戶服務代表來啟用 Windows]，再按 [下一步]。

9. 按一下 [變更產品金鑰]。

10. 在 [新金鑰] 方塊中輸入新的產品金鑰，再按一下 [更新]。 如果您返回到前一個視窗，按一下 [以後提醒我]，然後重新啟動電腦。

11. 重複執行步驟 6 和 7，以確認是否已啟用 Windows。您會收到下列訊息： Windows 已經啟用。請按 [確定] 結束。

Dead Fantasy 1

當太空戰士遇上生死格鬥

家具家飾-如何挑選沙發？

Yahoo!奇摩房地產2007年全台房屋大賞

家具家飾-如何挑選沙發？

(2007-09-26)

沙發是客廳的靈魂，該如何挑一張好沙發？又絃設計事務所設計師鄧世宏建議可從三個角度著手：布料、顏色與材質。裝修時利用沙發搭配色系，布料選好保養的，至於材質，至少要使用高密度泡棉的坐墊。

鄧世宏說，沙發可搭配客廳顏，可考慮選擇與原色系相似或對比的色系，前者讓沙發融入客廳，後者讓沙發成為客廳裡的主角。

至於該選布沙發或皮沙發，設計師建議看個人使用習慣，至於價格方面，皮沙發隨著皮的級數和品牌而有不同的價位，頂級的皮沙發使用的是不必保養的真牛皮，其次是要保養的牛皮，塑膠皮最差，不過市面上有混充真皮沙發的店家，消費者要留意。

布沙發的價錢取決於布的選擇，大陸布最便宜，台灣布其次，歐洲進口布較貴，有的店家會以大陸布混充進口布抬高價錢。布沙發即使是全拆式的，仍不宜水洗，否則會縮水而套不回去。

鄧世宏建議，消費者可選擇比較好保養的材質，中價位的可選擇半皮沙發，現在流行的是防水的雞皮絨，有點亮度，又好保養，但價格偏中上，三人座的沙發行情約三萬元。

至於沙發的「內在美」，反而是消費者最常忽略的重點，不過由於坐墊攸關座椅的舒適度，設計師建議一可以從品牌做判斷，二是問清楚使用材質，至少要是高密度泡棉的材質，坐起來才會舒服。

世界首款，ELAC水晶錐形音箱

世界首款，ELAC水晶錐形音箱 - Engadget 癮科技

世界首款，ELAC水晶錐形音箱

Posted Sep 3rd 2007 8:00PM by Atticus Wu
分類: 家庭娛樂

古怪的音箱設計並不少見，ELAC 240系列另闢蹊徑，打出了「水晶錐形音箱」的旗號。ELAC聲稱，這樣的晶狀隔膜能提供均勻的頻率回應，不過具體效果如何，還是要親耳聆聽過才知道。

ELAC 240系列從新台幣 21,000 元的BS 243書架型到最高階新台幣 87,000元的BS 249落地型都有，幾乎涵蓋了所有類型和價位的音箱。本周的IFA大展上ELAC會展出該系列，如果主站小編們能有幸聆聽到這美妙的音響效果，我們一定會忠實地將他們的感受傳達給各位癮科技讀者的。

商業手腕

一位優秀的商人傑克，有一天告訴他的兒子
傑克：我已經決定好了一個女孩子，我要你娶她

兒子：我自己要娶的新娘我自己會決定

傑克：但我說的這女孩可是比爾蓋玆的女兒喔

兒子：哇！那這樣的話............

在一個聚會中，傑克走向比爾蓋玆 ....

傑克：我來幫你女兒介紹個好丈夫

比爾：我女兒還沒想嫁人呢

傑克：但我說的這年輕人可是世界銀行的副總裁喔

比爾：哇！那這樣的話 ....... 

接著，傑克去見世界銀行的總裁
傑克：我想介紹一位年輕人來當貴行的副總裁

總裁：我們已經有很多位副總裁，夠多了

傑克：但我說的這年輕人可是比爾蓋玆的女婿喔

總裁：哇！那這樣的話 ........ 

最後，傑克的兒子娶了比爾蓋玆的女兒，又當上世界銀行的副總裁
知道嗎，生意通常都是這樣談成的

Infinity 及 JBL 聯合推出 PS212W 和 CSS10W 音箱

無線新境界：Infinity 及 JBL 聯合推出 PS212W 和 CSS10W 音箱

來自 Engadget 癮科技 Atticus Wu 著

Filed under: 無線相關

大家知道音箱通常是有線的，尤其是重低音炮，可以大大提升音質和現場感，以前的無線技術應用到音箱一直是個技術瓶頸。

現在兩個大廠，Infinity及JBL聯合解決了這個問題，推出了兩款PS212W和CSS10W 無線音箱，搭載無線發射和接收器，採用的是2.4GHz無線傳輸，PS212W是12吋400瓦的規格，價格$679；而CSS10W的要小一點，適合家庭小型影院，10吋300瓦，價格在$559美金，在明年的一月份上市！

使用ADO連接dBase資料庫

ADOConnection1.ConnectionString= Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dbf檔案路徑;Extended Properties=dbase 5.0;Persist Security Info=False

就這麼簡單.

Delphi ActiveX 元件安裝

新增一個Package 並儲存 New->Package -Delphi for Win32 Component -> Import Component... 會開一視窗

選 Import ActiveX Control -->Next

選 MS Comm Control 6.0 -->Next

選 要存放的目錄 專案位置 ->Next

選 Add Unit TO Package1.bdsproj project .. -> Finish

安裝 Package - Install 新增專案 For Win32

就可以在 ActiveX 內看到 MSComm 了

豬仔父子對話

尋找進程

function FindProcWnd(exename: string): boolean; var hSS: THandle; ppp: TProcessEntry32; dwPID: DWORD; msl: string; mrest: boolean; i: integer; begin mrest := False; GetWindowThreadProcessID(0, @dwPID); hSS := CreateToolhelp32Snapshot(TH32CS_SNAPProcess, dwPID); if Process32First(hSS, ppp) then begin while Process32Next(hSS, ppp) do begin msl := AnsiUppercase(strpas(ppp.szExeFile)); if msl = AnsiUppercase(exename) then begin mrest := True; break; end; end; end; closeHandle(hSS); result := mrest; end;

設定系統日期時間

function ChangeSystemDateTime(dtNeeded: TDateTime): Boolean; var tzi: TTimeZoneInformation; dtSystem: TSystemTime; begin GetTimeZoneInformation(tzi); dtNeeded := dtNeeded + tzi.Bias / 1440; with dtSystem do begin wYear := StrToInt(FormatDateTime('yyyy', dtNeeded)); wMonth := StrToInt(FormatDateTime('mm', dtNeeded)); wDay := StrToInt(FormatDateTime('dd', dtNeeded)); wHour := StrToInt(FormatDateTime('hh', dtNeeded)); wMinute := StrToInt(FormatDateTime('nn', dtNeeded)); wSecond := StrToInt(FormatDateTime('ss', dtNeeded)); wMilliseconds := 0; end; Result := SetSystemTime(dtSystem); end;

現在8年級生的中文造詣!!!

我家境小開 (是小康吧?!)
爸媽很辛苦，我要照顧他們的「下半身」（無言）
最辛苦的人是「藝」工媽媽（那個學校有表演團體？）義工 ??
現在的小孩已經不再是小孩（那是什麼呢？）
很多父母在幫我(你有多少父母呀?)
媽媽說：「以後我(主詞是媽媽還是你?)嫁出門時，要你爸爸請菲傭跟我一起出嫁。」（到底在寫什麼？）
我要用盡心機報答爸媽，用花言巧語報答爸媽(用盡心機?花言巧言?真夠狠了!)
我最尊敬的爸爸是位會計師（不尊敬的爸爸是做什麼的？）
清道夫不求回抱的行為令人拍手叫我（無言）
親長做錯事情我會用慈悲心糾正他（好慈悲啊）
人生這條路我走過幾十年的風花雪月（這個孩子人生好不同！）
清道夫很辛苦，全身都是臭水溝（無言）
##CONTINUE##
打從一出生我什麼也沒有，是爸媽給我這個身體，媽媽供我養分（這孩子生物讀真好）
客人將孩子留給我「保管」(保管?)
人都需要彼此相互照映（你是電燈泡嗎？）
這個社會感恩跟寬容都被漠落了（？？？）
我從出生在一個家庭中（不然？）
當爸媽把我生下來那一刻，我感到非常高興（這麼早就有知覺？）
每一個人都是媽媽所生下的（不然勒？有爸爸生嗎?）
清道夫是一個渺小的偉大啊（！？）
我的全力大一點，要養父母（只要長大就可以了，不用權力）
父母的心我們要寬容啊（是體諒吧？）
我要把飯菜啃食乾淨(你是蠶寶寶嗎?!)
我一生下來，就很多人幫我，醫生幫我接生，母親用力把我送出來（好寫實啊）
媽媽背著九個月如巨石般的肚子，為神麼他要這麼拼命呢？（答： "巨石般"的肚子在背上，真的要很拼命... 而且是為什麼吧!）
喜怒「衰」樂「粉粉」湧上心頭(哀 !紛紛?!)
在我的「映」象裡（你是電視機嗎？）
謝謝你們，不然我也不會有成功的一天（你已經成功了嗎？）
為什麼要我體諒別人，別人都不會體諒我，幹 （這個人零分）
為了不讓父母傷心，所以我在母親節買了蛋糕（？！父母也會哭鬧要蛋糕嗎 ?）
我學爸爸打了妹妹一個熱烈的耳光（不是通常是熱烈掌聲嗎？）
俗語說：祝人為快樂之本(你用嘴巴"祝" 人唷?!助人吧?!)
有句俗語是這樣說的：「即時行孝，即時孝」（這是誰說的？）
我的筆被用壞了，我同學跟我講，用火燒會變好，我做了，結果筆不聽使喚，也沒有甦醒
(這跟作文題目有關嗎 ??)
家裡很窮，爸媽很幸苦，為了回報他們，我要給他們生活費。（你哪裡來的錢？）
每次媽媽做這些事，所雖很辛苦，但是媽媽一點悔意也沒有。（是無怨無悔吧？還所雖咧!）
假如你幫一位窮人，送他魚吃，也教他釣魚，那下次他就送你一台漁船（有這麼好的事 ?!）
一杯不起眼的牛奶，每滴都滴需要乳牛，用500公克的血製造；(這隻乳牛得要很有血才行!)
一片可口的燒肉，是一隻豬提供自己的身體（幻想力豐富~衝啊 !光榮燒肉之路~）
根據調查，學生感謝爸媽最常說的就是好好讀書，第二名是幫爸媽按摩，有個學生寫：
爸爸很辛苦，我每次都幫爸爸按摩，都會摸到硬硬的（驚嚇！！不過應該是指肌肉僵硬）
我有天，遭到天外去，爸媽安慰我，我變的有如睛天劈瀝。（不知寫什麼？！）
受人點水，要擁泉以報（擁？抱口井來報恩嗎?!）
我是媽媽一手帶大的，媽媽一個禮拜回家一次（那剩下時間勒？）
努果（看半天，原來是鼻音很重的如果 &lt;---這個比 "偶素鞋猴的"好笑~）
每個人幾乎都是父母養大的（我懂你意思,泰山應該是例外了!）
爸媽一借一借的辛勞，我感到很深(完全看不懂寫啥?!)
爸媽從小飼養我(把你當寵物養囉?!)
我從小就有兩個人服侍我，沒錯，就是我的爸媽！（不肖子! 服侍咧!）
媽媽晚上很辛苦，我看著這樣堅酸刻薄的畫面，流下眼淚（意思用錯又寫錯字）
我默許自己要好好孝順父母（是默默許下諾言嗎？）
我要爸爸帶我出去玩，爸爸說：「你爸今哪裡沒瑩啊！」（好寫實的音譯）
我以前亂丟垃圾，自從我當了一日清道夫之後，我以後不會亂丟垃圾了，這就是所謂的「養兒方知父母恩」(請問你爸媽是清道夫嗎??)

巴菲特專訪 (不看可惜) - 世界第二富者

巴菲特的建言(不看可惜)

(以下摘錄自CNBC電視台對世界排名第二的富豪華倫巴菲特所做的一小時專訪,巴菲特目前已經捐310億美元給慈善機構,他對於人生的一些見解非常有趣)

##CONTINUE##

1.(他11歲開始買了第一張股票,但現在還是很後悔說他太晚買了!)

2.(他14歲時,就用他從小時候送報紙所賺的錢,買了一個小農場.)

3.(他雖然富甲一方,卻仍然住在奧瑪哈小鎮的一棟三房小屋內,那是他結婚50週年後所買的房子.他說他們家什麼都有了啊 ! 他家甚至連圍牆或籬笆都沒有!)

4.(他都自己開車出門,也沒有請司機或保全人員跟著他.)

5.(他雖然是世界最大的私人噴射客機公司的老闆,但卻從來沒有搭私人飛機旅行過.)

6.(他公司 Berkshire Hathaway,旗下擁有63家企業.他每年只寫一封信給這些企業的總裁,把今年的營運目標告訴他們.他從來不曾定期主持或召開會議,他給這些總裁們的守則只有以下兩條 (守則一:不要讓公司的投資人虧錢) (守則二: 不要忘記守則一)

7.(他不太跟群眾交際應酬.下班後主要活動就是弄一點爆米花來吃吃,跟看看電視.)

8.(五年前世界首富比爾蓋茲第一次跟巴菲特見面,他覺得他跟巴菲特根本沒有什麼共同點,所以他只排了半個小時跟巴菲特會談.但當他們見面後,一共談了10個小時,從此之後,比爾蓋茲開始變成巴菲特的忠實信徒,獻身慈善事業.)

9.(巴菲特不帶手機,桌上有沒電腦.) 他給時下年輕人的建議是「遠離信用卡的物慾, 多投資自己並且牢記」

 

A(錢是人創造出來的,但是錢不會創造人.)

B.(過你自己想過的簡單生活吧!)

C.(別人說的話聽聽可以,但不一定要照做,做你自己覺得很棒的事.)

D.(別走入名牌的迷思,穿你覺得舒服的服飾即可.)

E.(與其把錢花在不必要的事情上,倒不如把錢花在真正需要的地方.)

F.(總而言之,這是你的人生,幹嘛讓其他人來指揮你的人生呢?)

丁丁之歌

就是死不了的~約翰麥克連

就是死不了的~約翰麥克連

無法顯示隱藏檔、kavo病毒(taso變種)解決之道！

無法顯示隱藏檔、kavo病毒解決之道！

1. 重新啟動電腦，按F8進入安全模式。

(刪除 c:windowssystem32kav*的檔案。)

2. 開始-執行：regedit(登錄編輯程式)。

3. 移至HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun，刪除名稱為kav*(tas*)的名稱。

開啟無法勾選顯示隱藏檔

4. 再移至HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderHiddenSHOWALL，將CheckedValue的數值資料改為1。

5. 開啟我的電腦，工具-資料夾選項：顯示(系統)所有檔案和資料夾打勾，隱藏保護取消。

刪除autorun.inf

6. 利用檔案總管到C、D和隨身碟等外接裝置，刪除autorun.inf檔及ntdelete.com。

解決磁碟機無法點二下開啟

7. 再到登錄編輯程式，HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerMountPoints2，檢查下層機碼，展開shell看到有Autorun即將它刪除。

8. 重新正常開機。

9. 刪除cookies，再次掃描病毒。

Outlook自動回覆郵件

電腦可不關機或每天開關一次，但一定要記得，outlook 要打開啊，不然就白忙了。

步驟:

1. 新增郵件，主旨內容打上自動回覆或你想表達的文字。

2. 另存新檔，檔案類型選 outlook 範本(*.oft)。

3. 若發現沒有outlook 範本(*.oft)，則你是用word編輯郵件。接下一步，否則到5.。

4. 到工具-選項-郵件格式，把使用word 編輯電子郵件取消，重新到步驟1。

5. 真正設定從此步開始，到規則及通知，想必你很清楚了。

6. 新增規則，空白規則，當郵件送達後進行檢查。下一步。

7. □經 已指定 帳號打勾，點擊步驟2的已指定，選取帳號。下一步。

8. □使用 特定的範本 回覆打勾，點擊步驟2的特定的範本。

9. 查詢，下拉選擇：檔案系統中的使用者範本，選取你之前儲存的範本。開啟。

10. 完成了，可找人測試一下。

PS.測試完，記得把規則□取消勾選，否則每封信都會被自動回覆，出差前一天記得要打勾，不然就白忙一場了。

Windows Live Write 安裝試用

Blogger文章排版真有點不方便，

今天下載了Windows Live Write來編輯blog文章看看...

插入圖片

插入地圖

第三方元件安裝方法(新)

安裝方法：就目前常見的各種形式的元件的安裝方法介紹一下。方法如下：用File菜單下的OPEN打開dclusr40.dpk檔，單擊ADD按鈕，在打開的對話方塊中選擇ADD UNIT頁面，按Unit file name後的"Browse"按鈕打開元件單元檔，OK即可，用此種方法這樣可添加多個元件的單元檔，添加完畢，按一下編譯按鈕，然後再按Install按鈕即可，如果單元檔是編譯好的（DCU）可以直接按安裝按鈕。

Full HD 投影機

1080P等級20萬元以上,DLP與反射式液晶：

DLP:

Sharp Z20000---12000:1 $288,000 $2X0,000(音旋)

Marantz 11S1---6500:1

Sim2 HT3000---5000:1

Sim2 D80---4000:1 反射式液晶:

Sony VW100---15000:1 $339,000 $3X0,000(音旋)

JVC HD11---2500:1

 

1080P等級20~10萬元:

DLP:

BenQ W10000---10000:1 $149,900

BenQ W9000---8500:1 $129,900

Optoma HD81---12000:1 $199,000

Optoma HD80---10000:1 $118,900(送PS3)

反射式液晶:

Sony Bravia VPL-VW60---35000:1 $139,000

JVC DLA-HD1---15000:1 $198,000(統元)

Cinetron HD900---6000:1

穿透式液晶:

Epson-TW1000---12000:1 $115,000(PChome)

Panasonic PT-AE1000U---11000:1 $122,000 (音旋)$11,X000(統元)

Mitsubishi LVP HC5000---10000:1 $103,000 (音旋)$9X,000(聯揚) $9X,XXX(統元)$111,000(PcHome)

無法開啟C、D碟或隨身碟

HKEY_CURRENT_USER\software\microsoft\windows\currentversion\explorer\ mountpoints2\{......}\shell，刪除shell下的autorun鍵值，重新開機以後，此時就應 該可以打開了。

My YouTube Video

正確的跑步姿勢

正確的跑步姿勢(一)

現時很多人開始意識到運動的重要性，所以多了人進行不同的運動項目，以達到健康的目的，而跑步便是一個不錯的選擇，但你會否知道，你現在的跑步方式，是否正確，會否其實正是令你身體肌肉受傷的源頭呢？
或者可以按照以下介紹，看看你是否使用著正確的跑步姿勢：
##CONTINUE##
頭部：不要在跑步時左顧右盼，筆者經常看見跑步人士，一邊跑步一邊四處張望，這是得容易令你失去重心，從而受傷。另外請不要合上你的眼睛，不知為何，就是見過一些人士，跑步時會間歇地合上眼睛，這除了會有機會跌倒外、更大機會是外來危險發生時，你未必能即是發現。

正確的跑步姿勢(二)

跑步時雙肩的擺動有助保持身體平衡、而雙臂的擺動方式亦會影響到跑步的進程。
無論是慢跑（耐力）或是快跑（爆炸力），跑步時上臂的運動方式，應是發力點為肩膀，不是握緊拳頭用拳頭發力牽引上身。手肘部位應成直角，擺動軋跡，慢跑時可上至胸部，下至腰間便可，若是快跑則向前時擺動時讓前臂與地面成直角，向後時盡量後伸，但需盡力保持為手肘位置仍然是直角。
手掌部份，如屬慢跑時，只需鬆開拳頭便可，若是快跑時，則應將手掌伸直。

正確的跑步姿勢(三)

將雙肩放鬆，不要縮起雙肩，筆者觀察所見，很多業餘跑者，跑時都會不自覺地將雙肩隨著步伐而縮起，此舉可有機會讓頸旁肌肉過份緊張，因而發生頭痛。而雙眼應望向前方，很多跑步人士卻習慣了只望向雙腳前方數尺距離，這樣將會使我們較易發生向前仆之意外。
應將下腹崩緊，將肚臍向後推向背部脊椎，讓深層肌肉（核心肌群）得以發揮。
跑步者應適當地使用臀肌、四頭肌等發力，可使臀部線條得到適當的改善。
腳跟著地、重心由腳跟推前、向前蹬出、腳趾撐起，這為跑步基本遁環，但在某類特別訓練項目、或訓練目的下，有機會會像衝刺般，只使用前腳掌著地及發力，這特種訓練方式需要向你的教練查詢！


要如何順利的換吐氣?

長跑：
軀幹可以略直立 . 或略向前 . 若軀幹過分向前傾 . 必增大下肢負擔 .
重心不應有太大的起伏而浪費體力 . 接近水平線移動較為省力 .
鼻吸氣 . 口吐氣 . 並採"腹式呼吸" . 肋骨與胸骨不動 . 以橫隔膜下縮造成胸腔擴張 (腹部突起) . 以增加呼吸深度 .

跑步10錯 請勿涉足

從事路跑要能持久，培養興趣之外，尤需避免受傷。以下是NIKE體適能大使索南東珠（Sonam）提出的「跑步十大錯誤」，供跑友自我檢視，避免犯錯。

呼吸太淺：節奏平穩、輕鬆的呼吸可以提升運動表現。宜採腹式呼吸，跑步時一定要保持深呼吸，建議最好用鼻子吸氣，吸到腹部再用嘴巴慢慢吐氣。

臀部擺動太大：進行任何運動，都應將臀部位置儘可能居中穩定，防止身體中心線過度扭曲，避免浪費能量在不必要的擺動上。

膝關節受壓太大：跑步時膝關節受到衝擊及壓迫最大，所以要特別注意。最簡單的方式就是觀察膝關節正面所指方向，膝蓋、腳尖向前，不能將膝關節打直或鎖死。

腳抬太高：每踏一步身體的衝擊力非常大，腳抬太高，衝擊力相對增加，長跑時必須將此衝擊力降到最低。建議在跑步時只要將腳輕鬆抬起，接近地面的滑送出去即可。

腳與地接觸點不對：每次跨步時一定是腳跟第一個接觸地面，感到體重位於腳跟後，經過足弓移到腳尖，再順暢的換腳。

肩膀（上半身）太僵硬：上半身太僵硬或不自然，整個過程會變得吃力。建議在鏡子前練習，改善身體僵硬、緊張或不對稱等問題。

手臂（肩關節）活動太多：長跑時應將身體阻力及緊張降到最低。過度擺動手臂是最常犯的錯誤，浪費體力之外，也會增加阻力及肩關節的不適。手肘保持微彎，手腕位於手肘上方並將臂輕靠身體，不需要任何擺動動作，並避免手臂隨著身體左右晃動。

身體上下擺動太大：跑步是向前的直線運動，上下擺動太大會浪費體力，使肌肉很快疲勞，也會導致膝、踝關節不適，影響成績及心情。
鞋子太緊：選擇適當鞋子的重要原則是寧可大一號，絕對不能小一號。選購時間最好是下午或傍晚。

跑步一開始太快：不論練習或比賽，一開始快跑會讓身體無法有效調節能量，快速導致肌肉疲勞及痠痛。建議漸漸增加速度，讓身體有充分時間熱身，降低運動傷害，避免肌肉酸痛，也可以較有效的燃燒脂肪能量，達到塑身效果。

我的DVD

Atlantic Technology 4.5

HomeTheater

電腦自動關機的原因

電腦自動關機的原因

一、軟體 　　1．病毒破壞 　　自從有了電腦以後不久，電腦病毒也應運而生。當網路成為當今社會的資訊大動脈後，病毒的傳播更加方便，所以也時不時的干擾和破壞我們的正常工作。比較典型的就是前一段時間對全球電腦造成嚴重破壞的“衝擊波”病毒，發作時還會提示系統將在60秒後自動啟動。其實，早在DOS時代就有不少病毒能夠自動重啟你的電腦。 ##CONTINUE## 　　對於是否屬於病毒破壞，我們可以使用最新版的殺毒軟體進行殺毒，一般都會發現病毒存在。當然，還有一種可能是當你上網時被人惡意侵入了你的電腦，並放置了木馬程式。這樣對方能夠從遠端控制你電腦的一切活動，當然也包括讓你的電腦重新啟動。對於有些木馬，不容易清除，最好重新安裝作業系統。 　　2．系統檔損壞 　　當系統檔被破壞時，如Win2K下的KERNEL32.DLL，Win98 FONTS目錄下面的字體等系統運行時基本的檔被破壞，系統在啟動時會因此無法完成初始化而強迫重新啟動。你可以做個試驗，把WIN98目錄下的字形檔“FONTS”改名試一試。當你再次開機時，我們的電腦就會不斷的重複啟動。 　　對於這種故障，因為無法進入正常的桌面，只能覆蓋安裝或重新安裝。 　　3．定時軟體或計畫任務軟體起作用 　　如果你在“計畫任務欄”裏設置了重新啟動或載入某些工作程式時，當定時時刻到來時，電腦也會再次啟動。對於這種情況，我們可以打開“啟動”項，檢查裏面有沒有自己不熟悉的執行檔或其他定時工作程式，將其遮罩後再開機檢查。當然，我們也可以在“運行”裏面直接輸入“Msconfig”命令選擇啟動 二、硬體 　　1．市電電壓不穩 　　一般家用電腦的開關電源工作電壓範圍為170V－240V，當市電電壓低於170V時，電腦就會自動重啟或關機。因為市電電壓的波動我們有時感覺不到，所以就會誤認為電腦莫名其妙的自動重啟了。 　　解決方法：對於經常性供電不穩的地區，我們可以購置UPS電源或130－260V的寬幅開關電源來保證電腦穩定工作。 　　2．插排或電源插座的品質差，接觸不良 　　市面上的電源插排多數品質不好，內部的接點都是採用手工焊接，並且常採用酸性助焊劑，這樣容易導致在以後的使用中焊點氧化引起斷路或者火線和零線之間漏電。因為手工焊接，同時因為採用的磷黃銅片彈性差，用不了多長時間就容易失去彈性，致使與主機或顯示器的電源插頭接觸不良而產生較大的接觸電阻，在長時間工作時就會大量發熱而導致虛接，這時就會表現為主機重新啟動或顯示器黑屏閃爍。 　　還有一個可能是我們家裏使用的牆壁插座，多數牆壁插座的安裝都不是使用專業人員，所以插座內部的接線非常的不標準，特別這些插座如果我們經常使用大功率的電暖器時就很容易導致內部發熱氧化虛接而形成間歇性的斷電，引起電腦重啟或顯示器眨眼現象。 　　解決方法： 　　① 不要圖省錢而購買價廉不物美的電源排插，購買一些名牌的電源插排，因為其內部都是機器自動安裝壓接的，沒有採用手工焊接。 　　② 對於是否屬於牆壁插座內部虛接的問題，我們可以把主機換一個牆壁插座試一試，看是否存在同樣的自動重啟問題。 3．電腦電源的功率不足或性能差 　　這種情況也比較常見，特別是當我們為自己主機增添了新的設備後，如更換了高檔的顯卡，增加了燒錄機，添加了硬碟後，就很容易出現。當主機全速工作，比如運行大型的3D遊戲，進行高速刻錄或準備讀取光碟，剛剛啟動時，雙硬碟對拷資料，就可能會因為暫態電源功率不足而引起電源保護而停止輸出，但由於當電源停止輸出後，負載減輕，這時電源再次啟動。因為保護後的恢復時間很短，所以給我們的表現就是主機自動重啟。 　　還有一種情況，是主機開關電源性能差，雖然電壓是穩定的也在正常允許範圍之內，但因為其輸出電源中諧波含量過大，也會導致主機經常性的死機或重啟。對於這種情況我們使用萬用表測試其電壓時是正常的，最好更換一台優良的電源進行替換排除。 　　解決方法：現換高品質大功率電腦電源。 　　4．主機開關電源的市電插頭鬆動，接觸不良，沒有插緊 　　這種情況，多數都會出現在DIY機器上，主機電源所配的電源線沒有經過3C認證，與電源插座不配套。當我們晃動桌子或觸摸主機時就會出現主機自動重啟，一般還會伴有輕微的電打火的“啪啪”聲。 　　解決方法：更換優質的3C認證電源線。 　　5．主板的電源ATX20插座有虛焊，接觸不良 　　這種故障不常見，但的確存在，主要是在主機正常工作時，左右移動ATX20針插頭，看主機是否會自動重啟。同時還要檢查20針的電源插頭內部的簧片是否有氧化現象，這也很容易導致接觸電阻大，接觸不良，引起主機死機或重啟。有時還需要檢查20針插頭尾部的連接線，是否都牢靠。 　　解決方法： 　　① 如果是主板焊點虛焊，直接用電烙鐵補焊就可以了。注意：在對主板、硬碟、顯卡等電腦板卡焊接時，一定要將電烙鐵良好接地，或者在焊接時拔下電源插頭。 　　② 如果是電源的問題，最好是更換一台好的電源。 　　6．CPU問題 　　CPU內部部分功能電路損壞，二級緩存損壞時，電腦也能啟動，甚至還會進入正常的桌面進行正常操作，但當進行某一特殊功能時就會重啟或死機，如畫表，播放VCD，玩遊戲等。 　　解決辦法：試著在CMOS中遮罩二級緩存（L2）或一級緩存（L1），看主機是否能夠正常運行；再不就是直接用好的CPU進行替換排除。如果遮罩後能夠正常運行，還是可以湊合著使用，雖然速度慢些，但必竟省錢了。 　　7．記憶體問題 　　記憶體條上如果某個晶片不完全損壞時，很有可能會通過自檢（必竟多數都設置了POST），但是在運行時就會因為記憶體發熱量大而導致功能失效而意外重啟。多數時候記憶體損壞時開機會報警，但記憶體損壞後不報警，不加電的故障都還是有的。最好使用排除法，能夠快速確定故障部位。 　　8．光碟機問題 　　如果光碟機內部損壞時，也會導致主機啟動緩慢或不能通過自檢，也可能是在工作過程中突然重啟。對於後一種情況如果是我們更換了光碟機後出現的，很有可能是光碟機的耗電量不同而引起的。大家需要瞭解的是，雖然光碟機的ATPI介面相同，但不同生產廠家其引腳定義是不相同的，如果我們的硬碟線有問題時，就可能產生對某一牌子光碟機使用沒有問題，但對其他牌子光碟機就無法工作的情況，這需要大家注意。 　　9．RESET鍵品質有問題 　　如果RESET開關損壞，內部簧片始終處於短接的位置時，主機就無法加電自檢。但是當RESET開關彈性減弱或機箱上的按鈕按下去不易彈起時，就會出現在使用過程中，因為偶爾的觸碰機箱或者在正常使用狀態下而主機突然重啟。所以，當RESET開關不能按動自如時，我們一定要仔細檢查，最好更換新的RESET按鈕開關或對機箱的外部按鈕進行加油潤滑處理。 　　還有一種情況，是因為機箱內的RESET開關引線在焊接時絕緣層剝離過多，再加上使用過程中多次拆箱就會造成RESET開關線距離過近而引起碰撞，導致主機自動重啟。 　　10．接入網卡或並口、串口、USB介面接入外部設備時自動重啟 　　這種情況一般是因為外設有故障，比如印表機的並口損壞，某一腳對地短路，USB設備損壞對地短路，網卡做工不標準等，當我們使用這些設備時，就會因為突然的電源短路而引起電腦重啟。 三、其他原因 　　1．散熱不良或測溫失靈 　　CPU散熱不良，經常出現的問題就是CPU的散熱器固定卡子脫落，CPU散熱器與CPU接觸之間有異物，CPU風扇長時間使用後散熱器積塵太多，這些情況都會導致CPU散熱不良，積聚溫度過高而自動重啟。 　　還有就是CPU下面的測溫探頭損壞或P4 CPU內部的測溫電路損壞，主板上的BIOS有BUG在某一特殊條件下測溫不准，這些都會引起主機在工作過程中自動保護性重啟。 　　最後就是我們在CMOS中設置的CPU保護溫度過低也會引起主機自動重啟。 　　2．風扇測速失靈 　　當CPU風扇的測速電路損壞或測速線間歇性斷路時，因為主板檢測不到風扇的轉速就會誤以為風扇停轉而自動關機或重啟，但我們檢查時可能看到CPU風扇轉動正常，並且測速也正常。 　　3．強磁干擾 　　不要小看電磁干擾，許多時候我們的電腦死機和重啟也是因為干擾造成的，這些干擾既有來自機箱內部CPU風扇、機箱風扇、顯卡風扇、顯卡、主板、硬碟的干擾，也有來自外部的動力線，變頻空調甚至汽車等大型設備的干擾。如果我們主機的搞干擾性能差或遮罩不良，就會出現主機意外重啟或頻繁死機的現象。

解決trayicon類似控制項等，導致無法關機，登出和重啟問題

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if NowIsShow then begin TrayIcon1.MinimizeApp; CanClose := False end else CanClose := True; //引起問題的程式: // CanClose := false; // TrayIcon1.MinimizeApp; //目的是當使用者點擊視窗上的關閉的時候，系統不關閉而是以圖示的形式在後臺繼續運行 //導致的結果是：導致作業系統無法關機，登出和重啟。因為這個程式一直在運行關閉不了 //同時要注意在此類事件不要寫關閉前的資訊提示，例如（這樣也會帶來同樣的問題） ： if Application.MessageBox('是否真的要【退出】?','資訊提示', MB_YESNO + MB_ICONINFORMATION) = IDYES then begin Application.Terminate; end;

程式設計師會告訴你為何程式不會動的二十個理由

哈，下面二十個答案屬於專業的笑話，如果有冷到你的話，先跟你聲抱歉，不過程式設計師看了應該都會會心一笑吧：

20. 呃..好怪喔!（我常常說這句話><）
19. 嗯...之前好像不會這樣呢。
18. 它昨天還能動丫。
17. 這怎麼可能?
16. 這可能是硬體的問題。（反正跟我寫的程式無關）
15. 你到底是按到什麼鍵才會這樣。（把問題推給別人）
14. 呃...是你的資料本身就有問題吧。（千錯萬錯不是我錯）
13. 我已經好幾個星期沒碰過那個程式了。
12. 你一定是用舊版的軟體才會這樣。
11. 這一切都是巧合，誰叫你那麼"雖小"。
10. 我沒辦法測試所有的問題，不可能沒有bug。
09. 這個絕對不是那個的原始碼。
(原文是：THIS can't be the source of THAT，不知道有沒有翻錯呢？)
08. 這個程式是ok的，只是我寫好的時候沒測試而已。
07. 一定是有人改了我的程式才會這樣。（鬼嗎？）
06. 你確定你的電腦沒中毒嗎？
05. 雖然程式不能動，不過它還是很不錯的，你不覺得嗎？（非常自以為是的想法，哈）
04. 你的系統不可以用那個版本啦!
03. 為啥你要這樣做?（開始責備別人了）
02. 程式出錯時，你人在那？（意思就是為什麼你不在，都是你沒顧好才會出錯的）

01. 明明在我的電腦就可以跑！（哈，這個我最常說的。）

 

中國字的趣味

晶對品說 :「你們家難道沒有裝修 ?」
呂對昌說 :「和你相比 , 我家徒四壁 .」
由對甲說 :「你什麼時候學會倒立了 ?」
夫對天說 :「我總算盼到了出頭之日 .」
屎對尿說 :「乾的和稀的就是不一樣 .」
也對她說 :「當老板了 , 出門還帶祕書?」
木對束說 :「別以為穿上馬甲我就不認得你了 !」
丙對兩說 :「你家什麼時候多了一個人 , 結婚了 ?」
非對韭說 :「我們蜈蚣也會走鋼絲呀 ?」
日對旦說 :「你什麼時候學會玩滑板了 ?」
大對爽說 :「就四道題 , 你怎麼全做錯了 ?」
卓對罩說 :「戴什麼頭巾 , 想裝賓拉登啊 ?」
女對子說 :「我們結婚吧 , 那樣才『好』!」
乒對乓說 :「你我都一樣 , 一等殘廢軍人 .」
兵對丘說 :「看看戰爭有多殘酷 , 兩條腿都炸飛了 !」
弋對戈說 :「別以為你帶了一把劍我就怕你 , 有種單挑 !」
長對張說 :「你以為你是后羿啊 , 沒事整天背著弓幹嘛 ?」

鍛煉的最佳時間

傍晚時鍛煉身體是最好的，
因為人的各種活動都受"生物鐘"的影響，
無論是身體的適應或體力的發揮都在下午近傍晚時分最佳，
早上則反之，
運動時的血壓和心率都較傍晚時高，
對人體有害。

運動的最佳時間

在早晨的時候出去散步是運動最好的時機，
因為早晨的空氣是最新鮮的，
在散步時多呼吸些清新的空氣，
不僅可以提神，
對身體又很有幫助，
但不要做劇烈運動!

可輸入文字的對話方塊

InputQuery:
按OK回傳true，Cancel傳回false。 uses Dialogs; ... var s, name : string; r:boolean; s := 'default name'; r := InputQuery('Name input', 'Please enter your name', s); if r then Showmessage('Your name is: ' + s) else ShowMessage('User canceled the input!'); InputBox:
按OK回傳輸入字串，Cancel傳回預設字串。 uses Dialogs; ... var s, name : string; s:='default name'; name:=InputBox('Name input', 'Please enter your name', s)

三國無雙-隱藏人物

綠軍-關魚

神人英姿

小兵還滿血勒，誰來清一下?!

戰鬥!! 殺啊!!

大絕招啦!!

勝利!!-

上班族 語言.........爆笑

上班的意義是...

昧著良心說些口是心非的話
，當工作壓力過大，大到壓得你透不過氣，情緒難免不穩定，不僅整個人變得暴躁易怒，連說出口的話語也顯得不夠文雅得體。但是工作中又不免必須與同事們協調溝通，為了避免在情緒欠佳的狀態下，不小心冒犯上司或同事， 提供你一些較為適當辦公室談吐方式，建議您不妨參考參考：

要說	也許我可以加班把事情做完	千萬別說	你他媽的要我做到幾點鐘？
要說	我不確定這樣是不是能夠實行	千萬別說	這根本狗屁不通
要說	真的嗎？	千萬別說	放你的屁！
要說	或許你可以去詢問一下別人的看法	千萬別說	你等著看誰會鳥你！
要說	我當然也很關心	千萬別說	誰有空甩你啊？
要說	不好意思，我並沒有參與這項計劃	千萬別說	我拷！這件事跟我有什麼關係？
要說	嗯，這很有意思	千萬別說	這是啥狗屁東西？
要說	我會試著把這件事情插進工作進度中	千萬別說	你他媽的怎麼不早一點兒交代？
要說	他可能不太熟悉這件事情	千萬別說	他腦袋裡面裝的是大便！
要說	所以你不太滿意這件作品？	千萬別說	SHIT！你又想挑剔什麼？
要說	我手邊的工作量可能有一點過重了	千萬別說	他媽的，我就領這一點兒薪水，你想操死我啊？
要說	我喜歡接受挑戰	千萬別說	這又干俺啥屁事？
要說	你可能還不太了解	千萬別說	你腦袋裡裝的是正露丸嗎？
要說	我了解	千萬別說	王八蛋！
要說	是，我們是應該討論一下	千萬別說	奶奶個熊，又要開什麼白痴會議

 

DELPHI第三方元件的簡單安裝方法

DELPHI安裝第三方元件，可以按照元件提供的檔類型對號入座進行安裝：
1、DCU檔——DCU檔是作者已編譯好的單元檔，是沒有元件的原始碼。安裝時注意版本要和DELPHI一致。
方法：點擊Component，選擇install component，在對話方塊"into existing package"頁中，單擊“Unit file name”後的“Browse”按扭，在打開的文件對話方塊中，將“文件類型”設定為*.dcu，找到要安裝的DCU檔，按OK按鈕返回"into existing package"頁後再按OK按鈕就可以安裝了。
此時Delphi會提示dclusr.dpk將被重建，是否繼續，這裏是將這個元件安裝到dclusr.dpk包中，（此包是用戶自定義元件包，當然我們也可以選擇安裝到一個新的包中），點OK即可。
安裝完畢會有已經將元件註冊完的提示資訊以及安裝到哪個元件頁中的資訊等，到元件面板上看看，一般會出現一個新的元件頁，其中有剛安裝的元件。
##CONTINUE##
2、PAS檔——這是元件的原始碼。
方法：跟1類似，只需要將“檔類型”設定為*.pas 即可。
3、DBK元件包——一般是由多個元件構成的，也就是說安裝後會有多個元件供使用。
方法：一般給元件包都有提供安裝說明，仔細看說明按步驟安裝即可。
如果沒有安裝說明也可以按下面步驟安裝在File功能表下，選擇”OPEN…”打開dpk文件(文件類型列表框中選*.dpk)，在出現的Package視窗中，工具欄上有Install按鈕，按此按鈕即可進行安裝。如果Install按鈕處於無效狀態，那麼先按Compile按鈕編譯，一般來說編譯之後Install按鈕就會處於有效狀態，此時再按Install按鈕就可以了。
4、BPL元件包——一般來說這也是由多種元件構成的元件包，它其實是一個動態連接庫檔（DLL）。
方法：點擊Component，選擇install packages，然後單擊Add按鈕，在打開的檔對話方塊中找到相應的bpl文件打開返回後，再單擊Ok按鈕就可以了。
5、ActiveX控制項
方法：安裝這類控制項，需要先用regsvr32.exe註冊，然後點擊Component，選擇Import ActiveX Control項。在Import ActiveX Control打開的視窗中，只有已經註冊的ActiveX控制項才出現在列表中，選中一個然後按Install按鈕就可以安裝了。如果事先沒有用regsvr32.exe註冊也可以按ADD按鈕找到OCX檔即時註冊，註冊後再進行安裝。
隨便提下元件的刪除方法：點擊Component，選擇install packages，在列表中找到安裝所在的Bpl，按Remove按鈕，最後再把電腦中對應的Bpl檔刪掉就OK。

將數字轉為英文貨幣表示

package com.fh.dp; import java.text.DecimalFormat; public class dpjcMoney { private double dMoney; public dpjcMoney(double money){ dMoney=money; } public String getMoney(){ return ConvertNum2US(dMoney); } protected static String getOneUnit(int i){ String rs=""; switch(i) { case 0: rs=""; break; case 1: rs= "ONE";break; case 2: rs= "TWO";break; case 3: rs= "THREE";break; case 4: rs= "FOUR";break; case 5: rs= "FIVE";break; case 6: rs= "SIX";break; case 7: rs= "SEVEN"; break; case 8: rs= "EIGHT";break; case 9: rs= "NINE"; } return rs; } protected static String getTenUnit(int i){ String rs=""; switch (i) { case 10: rs = "TEN";break; case 11: rs = "ELEVEN";break; case 12: rs = "TWELVE";break; case 13: rs = "THIRTEEN";break; case 14: rs = "FOURTEEN";break; case 15: rs = "FIFTEEN";break; case 16: rs = "SIXTEEN";break; case 17: rs = "SEVENTEEN";break; case 18: rs = "EIGHTEEN";break; case 19: rs = "NINETEEN";break; } return rs; } protected static String getTwoUnit(int i){ String s,rs; int d1,d2; s = String.valueOf(i); d1=Integer.parseInt(s.substring(0,1)); d2=Integer.parseInt(s.substring(1,2)); switch (d1){ case 2: rs = "TWENTY";break; case 3: rs = "THIRTY";break; case 4: rs = "FORTY";break; case 5: rs = "FIFTY";break; case 6: rs = "SIXTY";break; case 7: rs = "SEVENTY";break; case 8: rs = "EIGHTY";break; default : rs = "NINETY";break; } return rs + " " + getOneUnit(d2); } protected static String getMoneyUnit(int digit){ String rs=""; if ((digit>=3)&&(digit<=17)) { if(digit%3==0){ rs = " HUNDRED "; } if((digit==4)||(digit==5)){ rs = " THOUSAND "; } if((digit==7)||(digit==8)){ rs = " MILLION "; } if((digit==10)||(digit==11)){ rs = " BILLION "; } if((digit==13)||(digit==14)){ rs = " TRILLION "; } if((digit==16)||(digit==17)){ rs = " QUADRILLION "; } } return rs; } // 將數字轉為英文貨幣表示 protected String ConvertNum2US(double Num){ int i, lenInt; long integral; long decimal; String strInt, strDecimal; String strFull; String[] saInt;; String dollar="", cent; integral = (int)Num; //取得整數 DecimalFormat df=new DecimalFormat("0.00"); // System.out.println("df.format(Num) "+df.format(Num)); strDecimal=df.format(Num).substring(String.valueOf(integral).length()+1); decimal=Integer.parseInt(strDecimal); //取得小數 // System.out.println("strDecimal "+strDecimal); // System.out.println("decimal "+decimal); if (integral<10){ strInt = String.valueOf(integral+100).substring(1); //整數位轉為字串不足兩位前補零 }else{ strInt=String.valueOf(integral); } lenInt = strInt.length(); saInt=new String[lenInt]; strFull = strInt + '.' + strDecimal; for (i=0;i＜lenInt;i++){ saInt[i] = String.valueOf(strInt.charAt(i)); } switch (lenInt){ case 1: case 2: switch (Integer.parseInt(saInt[0])){ case 0: dollar = getOneUnit(Integer.parseInt(saInt[1]));break; case 1: dollar = getTenUnit((int)integral);break; default: dollar = getTwoUnit((int)integral);break; } //--- 小數部分 switch (Integer.parseInt((strDecimal.substring(0,1)))){ case 0: cent = getOneUnit(Integer.parseInt(strDecimal.substring(1, 2)));break; case 1: cent = getTenUnit((int)decimal);break; default: cent = getTwoUnit((int)decimal);break; } if (cent !="") { if (dollar !="") cent = "AND " + cent; if (decimal == 1) cent = cent + " CENT"; else cent = cent + " CENTS"; } if (dollar == "") { dollar = cent; } else{ if (integral == 1) dollar = dollar + " DOLLAR " + cent + " ONLY"; else dollar = dollar + " DOLLARS " + cent + " ONLY"; } //--- break; case 3: case 4: case 6: case 7: case 9:case 10:case 12:case 13:case 15:case 16: dollar = getOneUnit(Integer.parseInt(saInt[0])); dollar = dollar + getMoneyUnit(lenInt) + ConvertNum2US(Double.parseDouble(strFull.substring(1))); break; case 5:case 8:case 11:case 14:case 17: switch (Integer.parseInt(saInt[0])){ case 1: dollar = getTenUnit(Integer.parseInt(saInt[0] + saInt[1]));break; default: dollar = getTwoUnit(Integer.parseInt(saInt[0] + saInt[1]));break; } dollar = dollar + getMoneyUnit(lenInt) + ConvertNum2US(Double.parseDouble(strFull.substring(2)));break; } return dollar; } }

顯示出被隱藏的系統檔

選擇“顯示隱藏檔”這一選項後，發現隱藏檔閃出來一下就馬上又消失了，而再打開資料夾選項時，發現仍就是“不顯示隱藏檔”這一選項。 開始—>執行—>regedit HKEY_LOCAL_MACHINE\Software\Microsoft\windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL 刪除CheckedValue鍵值，單擊右鍵 新建—>Dword值—>命名為CheckedValue，然後修改它的鍵值為1，這樣就可以選擇“顯示所有隱藏檔”和“顯示系統檔”

將數字轉為英文貨幣表示

function ConvertNum2US(Num: Extended): string; //將數字轉為英文貨幣表示 var i, lenInt: integer; integral: int64; decimal: int64; strInt, strDecimal: string; strFull: string; saInt: array of string; dollar, cent: string; begin integral := Trunc(Num); //取得整數 decimal := Round((Num - integral) * 100); //取得小數 strInt := btInsZeno(integral, 2); strDecimal := btInsZeno(decimal, 2); strFull := strInt + '.' + strDecimal; lenInt := Length(strInt); SetLength(saInt, lenInt); for i := 0 to lenInt - 1 do saInt[i] := strInt[i + 1]; case lenInt of 1..2: begin case StrToInt(saInt[0]) of 0: dollar := getOneUnit(StrToInt(saInt[1])); 1: dollar := getTenUnit(integral); 2..9: dollar := getTwoUnit(integral); end; //--- 小數部分 case StrToInt(LeftStr(strDecimal, 1)) of 0: cent := getOneUnit(StrToInt(RightStr(strDecimal, 1))); 1: cent := getTenUnit(decimal); 2..9: cent := getTwoUnit(decimal); end; if cent <> '' then begin if dollar <> '' then cent := ' AND ' + cent; if decimal = 1 then cent := cent + ' CENT' else cent := cent + ' CENTS'; end; if dollar = '' then dollar := cent else begin if integral = 1 then dollar := dollar + ' DOLLAR ' + cent + ' ONLY' else dollar := dollar + ' DOLLARS ' + cent + ' ONLY'; end; //--- end; 3, 4, 6, 7, 9, 10, 12, 13, 15, 16: begin dollar := getOneUnit(StrToInt(saInt[0])); dollar := dollar + getMoneyUnit(lenInt) + ConvertNum2US(StrToFloat(btCutStr(2, strFull))); end; 5, 8, 11, 14, 17: begin case strtoint(saInt[0]) of 1: dollar := getTenUnit(strToInt(saInt[0] + saInt[1])); 2..9: dollar := getTwoUnit(strToInt(saInt[0] + saInt[1])); end; dollar := dollar + getMoneyUnit(lenInt) + ConvertNum2US(StrToFloat(btCutStr(3, strFull))); end; end; Result := dollar; end;

模擬點滑鼠

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,GetMessageExtraInfo()); mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,GetMessageExtraInfo ());

Windows XP Repaire

在第一部分中，您會啟動「修復主控台」，並建立暫存資料夾，再將現有的登錄檔案備份到新的位置，然後刪除現有位置上的登錄檔案，再從修復 (Repair) 資料夾中將登錄檔案複製到 System32Config 資料夾。完成這個程序時，您就建立了可以用來啟動 Windows XP 的登錄。這個登錄原本是在 Windows XP 的初始安裝期間所建立並儲存的 因此，在安裝程式完成之後所進行的任何變更及設定都會遺失。。##CONTINUE##

請依照下列步驟執行，完成第一部分： 1. 將 Windows XP 開機磁片插入軟碟機，或將 Windows XP 光碟插入光碟機，然後重新啟動電腦。
如果出現提示，請選取從光碟機啟動電腦所需要的任何選項。
2. 出現「歡迎使用安裝程式」畫面時，請按 R，啟動「修復主控台」。
3. 如果您的電腦使用雙開機方式或多開機方式，請從「修復主控台」選取您必須使用的安裝。
4. 出現提示時，請輸入系統管理員的密碼。如果系統管理員密碼是空白，請按下 ENTER。
5. 在「修復主控台」的命令提示字元中，輸入下列命令列，並在每一行之後按下 ENTER：
md tmp
copy c:windowssystem32configsystem c:windowstmpsystem.bak
copy c:windowssystem32configsoftware c:windowstmpsoftware.bak
copy c:windowssystem32configsam c:windowstmpsam.bak
copy c:windowssystem32configsecurity c:windowstmpsecurity.bak
copy c:windowssystem32configdefault c:windowstmpdefault.bak

delete c:windowssystem32configsystem
delete c:windowssystem32configsoftware
delete c:windowssystem32configsam
delete c:windowssystem32configsecurity
delete c:windowssystem32configdefault

copy c:windowsrepairsystem c:windowssystem32configsystem
copy c:windowsrepairsoftware c:windowssystem32configsoftware
copy c:windowsrepairsam c:windowssystem32configsam
copy c:windowsrepairsecurity c:windowssystem32configsecurity
copy c:windowsrepairdefault c:windowssystem32configdefault

6. 輸入 exit 以結束「修復主控台」。您的電腦會重新啟動。
注意 這項程序假設您將 Windows XP 安裝在 C:Windows 資料夾中。如果是不同位置的話，請務必將 C:Windows 切換至適當的 windows_folder。

如果您能夠存取另一部電腦，則可以將步驟 2 中的文字複製下來，並建立名為 Regcopy1.txt (建議名稱) 的文字檔案，以節省時間。如果要建立這個檔案，請在啟動「修復主控台」之後執行下列命令：
batch regcopy1.txt
「修復主控台」中的 batch 命令可以讓您依序執行文字檔案中的所有命令。您只要使用 batch 命令，就可以不用手動輸入每一道命令。

DBGrid滑鼠滾輪定位

procedure TfmPors.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var i: SmallInt; begin if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam) ; if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; end;

Delphi Form移到視窗邊緣自動隱藏

private FAnchors: TAnchors; procedure WMMOVING(var Msg: TMessage); message WM_MOVING; procedure TfmMain.FormCreate(Sender: TObject); begin Timer1.Enabled := False; Timer1.Interval := 200; FormStyle := fsStayOnTop; Top:=0; Top := Min(Max(0, Top), Screen.Height - Height); if Top = 0 then Include(FAnchors, akTop); Timer1.Enabled := FAnchors <> []; end; procedure TfmMain.WMMOVING(var Msg: TMessage); begin inherited; with PRect(Msg.LParam)^ do begin Left := Min(Max(0, Left), Screen.Width - Width); Top := Min(Max(0, Top), Screen.Height - Height); Right := Min(Max(Width, Right), Screen.Width); Bottom := Min(Max(Height, Bottom), Screen.Height); FAnchors := []; if Left = 0 then Include(FAnchors, akLeft); if Right = Screen.Width then Include(FAnchors, akRight); if Top = 0 then Include(FAnchors, akTop); if Bottom = Screen.Height then Include(FAnchors, akBottom); Timer1.Enabled := FAnchors <> []; end; end; procedure TfmMain.Timer1Timer(Sender: TObject); const cOffset = 2; var vHandle: THandle; begin vHandle := WindowFromPoint(Mouse.CursorPos); while (vHandle <> 0) and (vHandle <> Handle) do vHandle := GetParent(vHandle); if vHandle = Handle then begin if akLeft in FAnchors then Left := 0; 　 if akTop in FAnchors then Top := 0; 　 if akRight in FAnchors then Left := Screen.Width - Width; 　 if akBottom in FAnchors then Top := Screen.Height - Height; end else begin if akLeft in FAnchors then Left := -Width + cOffset; if akTop in FAnchors then Top := -Height + cOffset; if akRight in FAnchors then 　 Left := Screen.Width - cOffset; if akBottom in FAnchors then 　 Top := Screen.Height - cOffset; end; end;