小弟一星期前在貴板上已經學會了之前困擾小弟已久的FindWindows問題， 但是小弟現在發現了另外一個有趣的問題!那就是：如何知道Windows系統中所有 已安裝的應用程式呢??這個問題困擾小弟已有一個星期了，希望各路高手幫忙! 好煩哦

這個問題，去年天使大人就已經有寫一個範例囉，請看    ■ 如何列出所有安裝在Windows內的軟體名稱?  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18167    雖然是 Delphi 的 code ，不過，主要就是去讀 Registry ，只要知道是那個 Key 就可以改用 BCB 寫了。    沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

不好意思，小弟目前只學過C,C 之類， 之前那位高手的Delphi小弟有看過，但是小弟沒有學過Delphi， 因此對Delphi的寫法不甚了解 請問一下有沒有BCB的寫法呢????

引言: 不好意思，小弟目前只學過C,C 之類， 之前那位高手的Delphi小弟有看過，但是小弟沒有學過Delphi， 因此對Delphi的寫法不甚了解 請問一下有沒有BCB的寫法呢????

chance 你好: 試試看這樣子寫可不可以呢?? < class="code"> #include "Registry.hpp" void __fastcall TForm1::Button1Click(TObject *Sender) { ListBox1->Items->Clear(); int i=0; AnsiString szVersion; AnsiString szRegKey="Software\\Microsoft\\Windows\\CurrentVersion\\UnInstall"; TStringList *slSW=new TStringList; TRegistry *reg=new TRegistry; try { reg->RootKey=HKEY_LOCAL_MACHINE; if(reg->OpenKeyReadOnly(szRegKey)) { reg->GetKeyNames(slSW); reg->CloseKey(); for(i=0; iCount; i ) { if(reg->OpenKeyReadOnly(szRegKey "\\" slSW->Strings[i])) { if(reg->ValueExists("DisplayVersion")) { szVersion="Version: " reg->ReadString("DisplayVersion"); } else { szVersion=""; } ListBox1->Items->Add(slSW->Strings[i] "\t" szVersion); reg->CloseKey(); } Application->ProcessMessages(); } } } __finally { delete reg; delete slSW; } } -- Enjoy Researching & Developing --

啊!原來是這樣!! 謝謝大大的指導!! 看來我趕緊去學Delphi好了!! 謝謝RaynorPao大大! 您真是太強了!