delphi xe 通過註冊表到得硬盤型號與序號

代碼如下 var   Form5: TForm5; implementation  uses registry; {$R *.dfm} procedure TForm5.Button2Click(Sender: TObject); var reg:Tregistry; begin memo1.clear; reg:=Tregistry.create; //涉入江湖 reg.RootKey := H

>>阅读原文<<