получение системной информации для всех виндовых систем

← →
Mon@rchP (2002-08-04 12:22) [0]

какая команда позволяет получить данный об используемой системе....
к примеру получть вот такую инфу... :
Система: Intel Pentium GenuineIntel x86 Family 5 Model 4 Stepping 3 188 Mhz/138/OS v5.0
Юзер: Raven; Организация: HELL.

← →
Слесарь Матерящийся (2002-08-04 12:26) [1]

Дык то в реестре. Открой regedit и поищи эти строки. Так выйдешь на ключики.

Ещё вариант -- в Win32 API есть целая группа ф-й, называется "System Information Functions".
Там погляди. Справочный файл -- Win32 Programmer"s Reference

← →
Mon@rchP (2002-08-04 12:30) [2]

реестр не катит - разные системы - разные пути.... (возможно).... а API это хорошо = поищу..... если кто уже их знает - напишите команды с параметрами.... !

← →
Юрий Зотов (2002-08-04 13:43) [3]

GetSystemInfo
GetVersionEx
GetUserName
GetComputerName
и т.д. (нажмите кнопку Group в справке API)

← →
Mon@rchP (2002-08-04 13:53) [4]

а где справка API ...?
у меня в делфях в справке тока Delphi Help и Delphi Tools .... :(

← →
Слесарь Матерящийся (2002-08-04 14:03) [5]

Поищи в Интернете win32.hlp.
Или сразу на сайт msdn.microsoft.com. Там полная документация

← →
Anatoly Podgoretsky (2002-08-04 14:04) [6]

Если не сглупил при установке, то третий пункт меню

← →
Mon@rchP (2002-08-04 15:28) [7]

справку нашёл.... ! но....
для GetComputerName:
BOOL GetComputerName(
LPTSTR lpBuffer, // address of name buffer
LPDWORD nSize // address of size of name buffer
используем так:
var
ggg:array[0..100] of char;
ccc:cardinal;
sss:string;
...
ccc:=100;
GetComputerName(ggg, ccc);
sss:=string(ggg);

а как быть допустим с GetVersionEx:
BOOL GetVersionEx(
LPOSVERSIONINFO lpVersionInformation // pointer to version information structure
.... ????

← →
Слесарь Матерящийся (2002-08-04 15:58) [8]

LP<на что-то> -- это указатель.

procedure GetOsInfo(<......>);
var osi : OSVERSIONINFO;
begin
osi.dwOSVersionInfoSize := sizeof(osi);
GetVersionEx(osi);

<...> -- и т.д.

end;

← →
Mon@rchP (2002-08-04 16:39) [9]

а в строку то как преобраховать туже dwOSVersionInfoSize или dwMajorVersion да ваще любой сардинал....

← →
Слесарь Матерящийся (2002-08-04 17:09) [10]

Дык сделали уже -- постинг "Mon@rchP © (04.08.02 15:28)".
Верно. GetComputerName() и GetUserName()!
А про расшифровку флагов из OSVERSIONINFO см. справку по этой структуре.

← →
Mon@rchP (2002-08-04 17:26) [11]

:) или я тупой, или спрашиваю не так....
с GetComputerName() дело так:
var
cn:array[0..100] of char;
c: cardinal;
begin
c:=100;
GetComputerName(cn, c);
Label1.Caption:=string(cn);
а cGetVersionEx как быть....?
var
osi : OSVERSIONINFO;
begin
osi.dwOSVersionInfoSize := sizeof(osi);
GetVersionEx(osi);
Label2.Caption:= а тут чё писать ;
(шоб в лэйбл вывести инфу из GetVersionEx)

← →
Слесарь Матерящийся (2002-08-04 17:34) [12]

:-) не знаю! ей-богу!! :o)

зависит от вашего желания.............. извините, моя крыша съех@ла!!!!!!!!!!!!!!

получение системной информации для всех виндовых систем Найти похожие ветки