如何列出所有安裝在Windows內的軟體名稱? |
|
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
如何列出所有安裝在Windows內的軟體名稱?
compile in delphi 5.0
有Source & 執行檔
------
~~~Delphi K.Top討論區站長~~~ ![]() |
keny
一般會員 ![]() ![]() 發表:1 回覆:11 積分:2 註冊:2006-08-31 發送簡訊給我 |
|
pcboy
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
輸出 txt 檔案的版本
<textarea class="delphi" rows="10" cols="60" name="code"> unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Registry; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var aList: TStrings; i: Integer; sVersion: string; const sUninstall = 'Software\Microsoft\Windows\CurrentVersion\UnInstall'; begin aList := TStringList.Create; Memo1.Clear; with TRegistry.Create do begin RootKey := HKEY_LOCAL_MACHINE; if OpenKey(sUninstall, False) then begin GetKeyNames(aList); CloseKey; for i := 0 to aList.Count - 1 do begin if OpenKey(sUninstall '\' aList[i], False) then begin if ValueExists('DisplayVersion') then sVersion := 'Version ' ReadString('DisplayVersion') else sVersion := ''; Memo1.Lines.Add(aList[i] ' ' sVersion); CloseKey end; end; end; Free end; aList.Free; Memo1.Lines.SaveToFile('ListSW.txt'); end; end. </textarea>
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
keny
一般會員 ![]() ![]() 發表:1 回覆:11 積分:2 註冊:2006-08-31 發送簡訊給我 |
|
pcboy
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
|
keny
一般會員 ![]() ![]() 發表:1 回覆:11 積分:2 註冊:2006-08-31 發送簡訊給我 |
|
keny
一般會員 ![]() ![]() 發表:1 回覆:11 積分:2 註冊:2006-08-31 發送簡訊給我 |
|
pcboy
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
很多軟體的序號不在 Registry 中, 就算在, 各軟體有各自地方
很多軟體的序號在 Registry 中是經過編碼的, 不同公司 or 同公司不同軟體的編碼方式可能不同 很多軟體是線上啟動, 序號被啟動使用過的, 別人拿到也沒用 您的期待工程浩大, 效益卻極微小 建議您放棄去買正版吧 ===================引 用 文 章=================== 親愛的站長, 不知是否在該程式引用register下, 是否有可以show出各軟體序號的方法? 謝謝!
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
keny
一般會員 ![]() ![]() 發表:1 回覆:11 積分:2 註冊:2006-08-31 發送簡訊給我 |
===================引 用 文 章=================== 很多軟體的序號不在 Registry 中, 就算在, 各軟體有各自地方 很多軟體的序號在 Registry 中是經過編碼的, 不同公司 or 同公司不同軟體的編碼方式可能不同 很多軟體是線上啟動, 序號被啟動使用過的, 別人拿到也沒用 您的期待工程浩大, 效益卻極微小 建議您放棄去買正版吧 ===================引 用 文 章=================== 樓上的大哥, 我也在想, 各軟體有不同的儲存方式, 不過坊間有一些軟體可以查軟硬體規格中, (軟體名稱: EVEREST or AIDA32...) 可以查出已知的授權,(有S/N) 不知在各軟體序號各自儲存的情況下, 它們是如何將序號導出的? 我要查軟體序號,主要是要監管其他人是否有使用盜版序號或非單位授權使用的軟體序號, 並不是要去取用別人的序號, 呵~ 你誤會我的用意了! 正版軟體序號, 本身就在使用,不需使用別人的! (微笑) |
pcboy
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
|
keny
一般會員 ![]() ![]() 發表:1 回覆:11 積分:2 註冊:2006-08-31 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |