Форум: "Система";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизСистемный реестр! Помогите-е-е-е! Найти похожие ветки
← →
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]Значит, если это действительно нужно для защиты программы, это была изначально плохая затея...
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.012 c