1. Delphi K.Top 討論區
  2. 週邊設備程式設計討論區(C++Builder)
  3. 從regedit取資料
線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數：1556
推到 Plurk!
推到 Facebook!

從regedit取資料
尚未結案
kraen4468
初階會員


發表：66
回覆：112
積分：35
註冊：2003-12-04

發送簡訊給我
#1 引用回覆 回覆 發表時間：2004-01-14 15:48:07 IP:61.222.xxx.xxx 未訂閱 
 
AnsiString CVersion;
Registry= new TRegistry;
Registry->RootKey=HKEY_LOCAL_MACHINE;
Registry->OpenKey("HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0",false);
CVersion=Registry->ReadString("~MHz");
Label6->Caption =CVersion1;
Registry->Free() ;
我想抓~MHz裡的資料怎麼改才對呢 ~我還在學習狀態希望多多向您學習~
bass15
高階會員


發表：24
回覆：171
積分：119
註冊：2003-10-27

發送簡訊給我
#2 引用回覆 回覆 發表時間：2004-01-15 00:27:43 IP:210.68.xxx.xxx 未訂閱 
AnsiString CVersion;
TRegistry *TRegistryReg= new TRegistry;
Registry->RootKey=HKEY_LOCAL_MACHINE;
Registry->OpenKey("HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0",true);
CVersion=Registry->ReadString("MHz");
Label6->Caption=CVersion;
Registry->Free() ;
kraen4468
初階會員


發表：66
回覆：112
積分：35
註冊：2003-12-04

發送簡訊給我
#3 引用回覆 回覆 發表時間：2004-01-15 10:14:24 IP:61.222.xxx.xxx 未訂閱
還是不形也 ~我還在學習狀態希望多多向您學習~
axsoft
版主


發表：681
回覆：1056
積分：969
註冊：2002-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間：2004-01-15 17:17:13 IP:61.218.xxx.xxx 未訂閱
kraen4468 您好:     修改成這樣應該是你要的    
    #include     void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString CVersion,Freq;
 Freq="~Mhz";
 TRegistry *Reg= new TRegistry;
 Reg->RootKey=HKEY_LOCAL_MACHINE;
 try{
     if(Reg->KeyExists("HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0"))
        {
         Reg->OpenKey("HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0",true);
         CVersion=Reg->ReadInteger(Freq);
         ShowMessage(CVersion   " Mhz");
         Reg->CloseKey();
        }
     else
        {
         ShowMessage("Can not open Registry key .");
         
        }
 }catch(ERegistryException &E) {
     ShowMessage(E.Message);
     }
 delete Reg;    }
//---------------------------------------------------------------------------

/*生活是一種藝術,用心生活才能享受生活*/
發表人 - axsoft 於 2004/01/15 17:21:45
celiamao
一般會員


發表：2
回覆：2
積分：0
註冊：2004-03-30

發送簡訊給我
#5 引用回覆 回覆 發表時間：2004-10-04 17:27:50 IP:220.130.xxx.xxx 未訂閱
您好: 我試了一下,但是.程式都無法開啟該路徑..改成別的路徑也一樣.. 為什麼呢?..    
引言: kraen4468 您好: 修改成這樣應該是你要的 
    #include     void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString CVersion,Freq;
 Freq="~Mhz";
 TRegistry *Reg= new TRegistry;
 Reg->RootKey=HKEY_LOCAL_MACHINE;
 try{
     if(Reg->KeyExists("HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0"))
        {
         Reg->OpenKey("HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0",true);
         CVersion=Reg->ReadInteger(Freq);
         ShowMessage(CVersion   " Mhz");
         Reg->CloseKey();
        }
     else
        {
         ShowMessage("Can not open Registry key .");
         
        }
 }catch(ERegistryException &E) {
     ShowMessage(E.Message);
     }
 delete Reg;    }
//---------------------------------------------------------------------------

/*生活是一種藝術,用心生活才能享受生活*/
發表人 - axsoft 於 2004/01/15 17:21:45
kraen4468
初階會員


發表：66
回覆：112
積分：35
註冊：2003-12-04

發送簡訊給我
#6 引用回覆 回覆 發表時間：2004-10-04 17:35:55 IP:61.222.xxx.xxx 未訂閱
引言: 我試了一下,但是.程式都無法開啟該路徑..改成別的路徑也一樣.. 為什麼呢?..
可以po上你的code嗎? ~我還在學習狀態希望多多向您學習~
系統時間：2024-04-25 22:20:22
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！
5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |