Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Системный реестр! Помогите-е-е-е! [D5, D6, Win95/98]

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

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

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

DC-AC (2002-08-01 14:22:00) [1]
Значит, если это действительно нужно для защиты программы, это была изначально плохая затея...

Nalsur (2002-08-01 14:13:00) [2]
Последний совет конечно хорош! Но прогу здать я должен уже на этой неделе! А MSystemInfo кстати, процессор неправельно определяет, вместо Celeron 600 пишет Pentium III 600.

DC-AC (2002-07-30 14:56:00) [3]
Плюнь на всё и иди пить пиво ;-) А пока пьёшь, почитай про аппаратные ключи защиты программ (COM,LPT,USB)...

Nalsur (2002-07-30 13:34:00) [4]
Просто использовать не получается - постоянно ошибки выдает, а разобраться - уже голова опухает!

Nalsur (2002-07-29 11:11:00) [5]
Zev, Bytebutcher, ASK Огромнейшее СПАСИБО!!!!!!!!!!!!

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

ASK (2002-07-29 07:54:00) [6]
MSystemInfo дороговата. См. http://goldenask.narod.ru(ASK Tools)

bytebutcher (2002-07-28 08:34:00) [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

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

Zev (2002-07-27 09:08:00) [8]
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;
}

Poirot (2002-07-24 02:35:00) [9]
А самому лень посмотреть...

Nalsur (2002-07-23 10:37:00) [10]
Toloc-F а параметры не скажешь?

Tolic-F (2002-07-23 10:05:00) [11]
Чтоб не мучиться с реестром есть оличный компонент MSystemIfo, возращает любые сведения о железе, Windows"е и DirectX"е.

Kirill_ (2002-07-18 15:41:00) [12]
HKEY_LOCAL_MACHINE\Enum\*(Список всех устройств установленных в с-ме и параметры к ним + названия как ты видишь их в списке устройств)

SemFLY (2002-07-17 15:11:00) [13]
Тут все устройства
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class
и плюс с параметрами к ним.

Удачи ! :))

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »