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

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

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

получение системной информации для всех виндовых систем [D5, Win95/98, WinME, NT4, Win2k, WinXP]

Mon@rchP © (2002-08-04 12:22:00)
какая команда позволяет получить данный об используемой системе....
к примеру получть вот такую инфу... :
Система: Intel Pentium GenuineIntel x86 Family 5 Model 4 Stepping 3 188 Mhz/138/OS v5.0
Юзер: Raven; Организация: HELL.

Слесарь Матерящийся (2002-08-04 17:34:00) [1]
:-) не знаю! ей-богу!! :o)

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

Mon@rchP (2002-08-04 17:26:00) [2]
:) или я тупой, или спрашиваю не так....
с 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:09:00) [3]
Дык сделали уже -- постинг "Mon@rchP © (04.08.02 15:28)".
Верно. GetComputerName() и GetUserName()!
А про расшифровку флагов из OSVERSIONINFO см. справку по этой структуре.

Mon@rchP (2002-08-04 16:39:00) [4]
а в строку то как преобраховать туже dwOSVersionInfoSize или dwMajorVersion да ваще любой сардинал....

Слесарь Матерящийся (2002-08-04 15:58:00) [5]
LP<на что-то> -- это указатель.

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

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

end;

Mon@rchP (2002-08-04 15:28:00) [6]
справку нашёл.... ! но....
для 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
.... ????

Anatoly Podgoretsky (2002-08-04 14:04:00) [7]
Если не сглупил при установке, то третий пункт меню

Слесарь Матерящийся (2002-08-04 14:03:00) [8]
Поищи в Интернете win32.hlp.
Или сразу на сайт msdn.microsoft.com. Там полная документация

Mon@rchP (2002-08-04 13:53:00) [9]
а где справка API ...?
у меня в делфях в справке тока Delphi Help и Delphi Tools .... :(

Юрий Зотов (2002-08-04 13:43:00) [10]
GetSystemInfo
GetVersionEx
GetUserName
GetComputerName
и т.д. (нажмите кнопку Group в справке API)

Mon@rchP (2002-08-04 12:30:00) [11]
реестр не катит - разные системы - разные пути.... (возможно).... а API это хорошо = поищу..... если кто уже их знает - напишите команды с параметрами.... !

Слесарь Матерящийся (2002-08-04 12:26:00) [12]
Дык то в реестре. Открой regedit и поищи эти строки. Так выйдешь на ключики.

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

Наверх

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