這個程式最主要目的是用備份你的硬碟資料到別的地方，還沒有完成， 大概完成八成而已，其實功能大概都可以用了，但程式還有非常嚴重 bug 我又查不出來，所以傳上來想看哪位大大能知道問題出在哪？ 因為我之前都是用 BCB，以前完完全全沒寫過任何Delphi程式，這是我 第一次用 Delphi 寫程式，是自己寫來練習的，程式寫的不好處請見諒。 好了，廢話少說..我想詢問的問題是 (1)我的程式再複製檔案時，例如 'F:\備份系統\Backup.~dsk' 要複製到 'C:\WINDOWS\Desktop\test\備份測試\Backup.~dsk' 在我的程式竟然都會 Copy 到目的地上一層的目的，也就是 'C:\WINDOWS\Desktop\test\Backup.~dsk' 這個位置， 這到底怎麼回事？我單獨又用一個 prj 檔測試 CopyFile 函數有很正常， 可以正確 Copy 到正確的位置，偏偏這個程式複製的位置就是錯誤， 都會複製到上一層的目錄內?? ( 這段原始碼的位置在 main.pas 的第338行開始(複製檔案那一段) ) (2)第二個問題是 TShellTreeView、TShellListView 的 bug..就是 (a)當你這兩個元件 AutoReFresh 屬性設為 True 時，當你去點選 印表機、控制台..等等這些非正常目錄的東西，或者在這裡待就一點， 程式就有 Access xxxx 的錯誤訊息發生，所以我只好把 AutoReFresh 設為 False，這個問題要如何解決? (b)一樣..我不想再這些元件顯示 印表機、控制台、資源回收筒..等等這 些非 "正常"目錄的東西，要怎樣拿掉?

附加檔案：64000_備份系統.zip

引言: (1)我的程式再複製檔案時，例如 'F:\備份系統\Backup.~dsk' 要複製到 'C:\WINDOWS\Desktop\test\備份測試\Backup.~dsk' 在我的程式竟然都會 Copy 到目的地上一層的目的，也就是 'C:\WINDOWS\Desktop\test\Backup.~dsk' 這個位置， 這到底怎麼回事？我單獨又用一個 prj 檔測試 CopyFile 函數有很正常， 可以正確 Copy 到正確的位置，偏偏這個程式複製的位置就是錯誤， 都會複製到上一層的目錄內?? ( 這段原始碼的位置在 main.pas 的第338行開始(複製檔案那一段) )

注意看底下的 ListView1 當你加入一個檔案(我們假設是 C:\test.dat) 到指定目錄(我們假設是 C:\Backup) 你會發現，來源位置是 "C:\" 目的位置是 "C:\Backup" 一個有 "\" 一個沒有 "\" 你用 ExtractFilePath 來捉 Path，因為他是用 "\" 來參考的 所以後面的那個 "C:\Backup" 的 Path 就是變成 "C:\" 自然你最後的結果，就是變成 Copy 到上一層目錄去了 至於 (2) 的部份，如果要用 TShellListView/TShellTreeView 可能是無解吧 除非去改這二個元件的 Source，不然就改用 JVCL 的元件看看吧 發表人 - wyndog 於 2005/01/24 15:17:41

TShellTreeView、TShellListView 改用TurboPower ShellShock 一切问题都解决了! 祝你成功! TurboPower的VCL好用,现在公开源程序了. DT520 @>>>-->>---------一路风尘一路歌!!

引言: TShellTreeView、TShellListView 改用TurboPower ShellShock 一切问题都解决了! 祝你成功! TurboPower的VCL好用,现在公开源程序了.

請教一下 TurboPower ShellShock 是什麼，在哪可下載呢? 小弟是第一次聽到這種東西哩 -- http://www.csie.nctu.edu.tw/~chtai/software.php 好用免費軟體的收集網頁，歡迎大家跟我分享或一同推廣免費軟體。 若您覺得這網頁不錯，也歡迎您將它傳出去 :)