Форум на Исходниках.RU

//------------------------------------------------------------------------ void btGetBIOSInfoClick() { TRegistry *tReg=(TRegistry *)new TRegistry; tReg->RootKey = HKEY_LOCAL_MACHINE; tReg->LazyWrite = false; tReg->OpenKey("Enum\Root\*PNP0C01\0000", false); AnsiString BiosDate; AnsiString BiosName; AnsiString BiosVer; try { BiosDate = tReg->ReadString("BIOSDate"); } catch (ERegistryException& xcpt) { BiosDate="<Error>"; } try { BiosName = tReg->ReadString("BIOSName"); } catch (ERegistryException& xcpt) { BiosName="<Error>"; } try { BiosVer = tReg->ReadString("BIOSVersion"); } catch (ERegistryException& xcpt) { BiosVer="<Error>"; } delete tReg; AnsiString BIOSInfo="Name : " + BiosName + "\nVersion : " + BiosVer + "\nDate : " + BiosDate; Application->MessageBox(BIOSInfo.c_str(), "BIOS Information", MB_OK); } //----------------------------------------------------------------------------------

//--------------------------------------------------------------------------- AnsiString StrFromPtrA(long lpszA) { char far *Ptr=(char far *)lpszA; int len=lstrlen(Ptr); char *s=new char[len]; AnsiString RetVal; lstrcpy(s, (char *)lpszA); RetVal=AnsiString(s); delete [] s; return RetVal; } //--------------------------------------------------------------------------- AnsiString __fastcall GetRegString(HKEY Reg_key, AnsiString Path, AnsiString Key) { TRegistry *reg=new TRegistry(); TRegDataType rdtKeyDataType; AnsiString Result; bool rescode; reg->Access=KEY_ALL_ACCESS; reg->RootKey = Reg_key; rescode=reg->OpenKey(Path, false); if(!rescode) { reg->CloseKey(); delete reg; return (Result="<Registry Key not found>"); } try { if(reg->ValueExists(Key)) { rdtKeyDataType=reg->GetDataType(Key); if(rdtKeyDataType==rdString || rdtKeyDataType==rdExpandString) Result=reg->ReadString(Key); else if(rdtKeyDataType==rdUnknown) Result="<Unknown Registry value type>"; else Result="<Wrong Registry value type>"; } else { Result="<Registry value not found>"; } } catch(ERegistryException &xcpt) { Application->MessageBox(xcpt.Message.c_str(), "Error reading registry value", MB_OK|MB_ICONEXCLAMATION); Result="<Error>"; } reg->CloseKey(); delete reg; return Result; } //--------------------------------------------------------------------------- AnsiString SystemBiosDate() { AnsiString Result; if(isWinNT()) Result = GetRegString(HKEY_LOCAL_MACHINE, "Hardware\Description\System", "SystemBiosDate"); else//Win9x Result=StrFromPtrA(0xFFFF5); return Result; } //---------------------------------------------------------------------------