Вывод информации про ОС в Label

[C4eLoveK]

Вывод информации про ОС в Label...
Типа Версия ОС, оперативная память...и т.д...
Как можно это реализовать?)

[C4eLoveK]

Вот это вот нашёл, он запускается, но не показывает не чего...

Расположите несколько label'ов на форме-заставке или прямо на картинке (в этом случае нужно установить свойство Label.Transparent := true). Следующий код записывает в Label1 информацию о пользователе, на которого зарегистрирована ОС. Этот код нужно расположит в обработчике события OnCreate формы-заставки, так же не забудьте поместить модуль TRegistry в раздел Uses все той же формы-заставки:

var Reg : TRegistry; 

begin 

Reg := TRegistry.Create; 

Reg.RootKey:=HKEY_LOCAL_MACHINE; 

Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False); 

Label1.Caption:=Reg.ReadString('RegisteredOwner'); 

Reg.CloseKey; 

Reg.Free; 

end;

[Аватар]

GetVersionEx
или
Win32MajorVersion Win32MinorVersion Win32BuildNumber в SysUtils

и http://programmersforum.ru/showthread.php?t=165721

[C4eLoveK]

Сообщение от Аватар

GetVersionEx
или
Win32MajorVersion Win32MinorVersion Win32BuildNumber в SysUtils

и http://programmersforum.ru/showthread.php?t=165721

А не могли бы Вы подробнее расписать?)
Или если не затруднит в исходнике выше исправить и скинуть)

[Человек_Борща]

А погуглить? А головой подумать?

[C4eLoveK]

Сообщение от Человек_Борща

А погуглить? А головой подумать?

а помочь?а головой подумать-тебе....раз прошу помощи, значит не получается у меня...Я веб дизайнер, а не программист, просто мне реально нужно это...

[vovken1997]

Напишите в uses, ShellApi.
Например на кнопке напишите :
var
memStat:TMemoryStatus;
buffer:string;
Len: cardinal;
begin
//использование оперативки
memStat.dwLength:=sizeOf(memStat);
GlobalMemoryStatus(memStat);
label1.caption:=intToStr(memStat.dw MemoryLoad;
//имя пользователя
Len:=100;
setlength(buffer,Len);
if getusername(pAnsiChar(buffer),Len)< >false then
label2.caption:=copy(buffer,1,Len);
//имя компьютера
Len:=Max_computername_length+1;
setLength(buffer,Len);
if getcomputerName(PAnsiChar(buffer),L en)<>false then
label3.caption:=copy(buffer,1,Len);
end;

Пишите что конкретно надо.

[vovken1997]

Версия ос, напишите на кнопке:
var
infosversioninfo;
begin
info.dwosversionInfoSize:=sizeof(in fo);
getversionEx(info);
// версия ос
label1.caption:=inttostr(info.dwMaj orVersion)+'.'+inttostr(info.dwmino rVersion);
//номер сборки
label2.caption:=inttostr(info.dwbui ldnumber);
//платформа
case info.dwPlatformId of
ver_platform_win32s:
//эмуляция win32 или 16
label3.caption:='win16';
ver_platform_win32_windows:
//классическая win32: 95,98,me
label3.caption:='win32';
ver_platform_win32_NT:
// ядро NT
label3.caption:='winNT';
end;
//дом.информация
label4.caption:=info.szCSDVersion;
end;

[Пепел Феникса]

vovken1997, на будущее, не плоди несколько постов подрят.
и используй для выделения кода.

[C4eLoveK]

Сообщение от vovken1997

Напишите в uses, ShellApi.
Например на кнопке напишите :

var
memStat:TMemoryStatus;
buffer:string;
Len: cardinal;
begin
//использование оперативки
memStat.dwLength:=sizeOf(memStat);
GlobalMemoryStatus(memStat);
label1.caption:=intToStr(memStat.dwMemoryLoad;
//имя пользователя
Len:=100;
setlength(buffer,Len);
if getusername(pAnsiChar(buffer),Len)<>false then
label2.caption:=copy(buffer,1,Len);
//имя компьютера
 Len:=Max_computername_length+1;
setLength(buffer,Len);
if getcomputerName(PAnsiChar(buffer),Len)<>false then
label3.caption:=copy(buffer,1,Len);
end;

Пишите что конкретно надо.

Короче Я создал заставку при запуске программы своей, и вот хочу чтобы на заставке этой выводилась инфа)