Системный реестр! Помогите-е-е-е!

← →
Nalsur (2002-07-17 14:24) [0]

Ну пожалуйста помогите! А то меня мой нач. съест!
Как всетаки вытащить инфо о системе (железо:оперативка, винт,процессор,....; пользователь, операционка,....)

Особенно! как вытащить значения параметров.
И ещебы каким железкам какие параметры относятся.

Заранее благодарен!

← →
SemFLY © (2002-07-17 15:11) [1]

Тут все устройства
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class
и плюс с параметрами к ним.

Удачи ! :))

← →
Kirill_ © (2002-07-18 15:41) [2]

HKEY_LOCAL_MACHINE\Enum\*(Список всех устройств установленных в с-ме и параметры к ним + названия как ты видишь их в списке устройств)

← →
Tolic-F © (2002-07-23 10:05) [3]

Чтоб не мучиться с реестром есть оличный компонент MSystemIfo, возращает любые сведения о железе, Windows"е и DirectX"е.

← →
Nalsur (2002-07-23 10:37) [4]

Toloc-F а параметры не скажешь?

← →
Poirot © (2002-07-24 02:35) [5]

А самому лень посмотреть...

← →
Zev (2002-07-27 09:08) [6]

uses ... , Registry;
//---------------------------------------------------------------
// тип процессора по реестру Win 98 / Win Me / Win 2000
//---------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
R : TRegistry;
begin
R := TRegistry.Create( KEY_READ );
try
R.RootKey := HKEY_LOCAL_MACHINE;
if ( R.OpenKey( "\HardWare\Description\System\CentralProcessor\0" , false ) )
then begin
Memo1.Clear;
Memo1.Lines.Add( R.ReadString( "Identifier" ) );
Memo1.Lines.Add( R.ReadString( "VendorIdentifier" ) );
end;
finally
R.Free;
end;
end;
//---------------------------------------------------------------
// BIOS по реестру ( Win 98 , Win Me ) C++Builder
//---------------------------------------------------------------
#include <Registry.hpp>

AnsiString __fastcall MyBiosRegistry()
{ AnsiString Name = "" ;
TRegistry *R = new TRegistry(KEY_READ);

try
{ R->RootKey = HKEY_LOCAL_MACHINE;
if ( R->OpenKey( "\\Enum\\Root\\*PNP0C01\\0000" , false ) )
{ Name = " Дата : " + R->ReadString( "BIOSDate" ) + char(13)+char(10)+
" Имя : " + R->ReadString( "BIOSName" ) + char(13)+char(10)+
" Версия : " + R->ReadString( "BIOSVersion" ) + char(13)+char(10)+
" BusType : " + R->ReadString( "BusType" ) + char(13)+char(10)+
" CPU : " + R->ReadString( "CPU" ) + char(13)+char(10)+
" Тип ПК : " + R->ReadString( "MachineType" ) ;
}
}
__finally
{
delete R;
}
return Name;
}

← →
bytebutcher © (2002-07-28 08:34) [7]

MiTeC System Information Component 6.2 (с исходниками) http://delphi.mastak.ru/cgi-bin/download.pl?get=1020812496&n=0

MiTeC System Information Component 7.62 (последняя версия)
http://www.torry.net/vcl/system/systeminfo/msysinfo.zip

Хочешь разобраться - см. исходники
либо просто используй

← →
ASK (2002-07-29 07:54) [8]

MSystemInfo дороговата. См. http://goldenask.narod.ru (ASK Tools)

← →
Nalsur (2002-07-29 11:11) [9]

Zev, Bytebutcher, ASK Огромнейшее СПАСИБО!!!!!!!!!!!!

Zev c первого взгляда - то что надо.
Остальные ссылки сейчас просматриваю.

← →
Nalsur (2002-07-30 13:34) [10]

Просто использовать не получается - постоянно ошибки выдает, а разобраться - уже голова опухает!

← →
DC-AC (2002-07-30 14:56) [11]

Плюнь на всё и иди пить пиво ;-) А пока пьёшь, почитай про аппаратные ключи защиты программ (COM,LPT,USB)...

← →
Nalsur (2002-08-01 14:13) [12]

Последний совет конечно хорош! Но прогу здать я должен уже на этой неделе! А MSystemInfo кстати, процессор неправельно определяет, вместо Celeron 600 пишет Pentium III 600.

← →
DC-AC (2002-08-01 14:22) [13]

Значит, если это действительно нужно для защиты программы, это была изначально плохая затея...

Системный реестр! Помогите-е-е-е! Найти похожие ветки