Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2012, 21:35   #1
C4eLoveK
Пользователь
 
Регистрация: 29.02.2012
Сообщений: 49
По умолчанию Вывод информации про ОС в Label

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

Последний раз редактировалось C4eLoveK; 09.04.2012 в 21:59. Причина: добавил исходник
C4eLoveK вне форума Ответить с цитированием
Старый 09.04.2012, 21:51   #2
C4eLoveK
Пользователь
 
Регистрация: 29.02.2012
Сообщений: 49
По умолчанию

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

Код:
Расположите несколько 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;
C4eLoveK вне форума Ответить с цитированием
Старый 09.04.2012, 22:01   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

GetVersionEx
или
Win32MajorVersion Win32MinorVersion Win32BuildNumber в SysUtils

и http://programmersforum.ru/showthread.php?t=165721
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 09.04.2012, 22:03   #4
C4eLoveK
Пользователь
 
Регистрация: 29.02.2012
Сообщений: 49
По умолчанию А не могли бы Вы подробнее расписать?)

Цитата:
Сообщение от Аватар Посмотреть сообщение
GetVersionEx
или
Win32MajorVersion Win32MinorVersion Win32BuildNumber в SysUtils

и http://programmersforum.ru/showthread.php?t=165721
А не могли бы Вы подробнее расписать?)
Или если не затруднит в исходнике выше исправить и скинуть)
C4eLoveK вне форума Ответить с цитированием
Старый 09.04.2012, 22:09   #5
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

А погуглить? А головой подумать?
Человек_Борща вне форума Ответить с цитированием
Старый 09.04.2012, 22:13   #6
C4eLoveK
Пользователь
 
Регистрация: 29.02.2012
Сообщений: 49
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
А погуглить? А головой подумать?
а помочь?а головой подумать-тебе....раз прошу помощи, значит не получается у меня...Я веб дизайнер, а не программист, просто мне реально нужно это...
C4eLoveK вне форума Ответить с цитированием
Старый 09.04.2012, 23:12   #7
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию

Напишите в 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 вне форума Ответить с цитированием
Старый 09.04.2012, 23:29   #8
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию

Версия ос, напишите на кнопке:
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 вне форума Ответить с цитированием
Старый 10.04.2012, 00:06   #9
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

vovken1997, на будущее, не плоди несколько постов подрят.
и используй для выделения кода.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 10.04.2012, 15:11   #10
C4eLoveK
Пользователь
 
Регистрация: 29.02.2012
Сообщений: 49
По умолчанию

Цитата:
Сообщение от 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;
Пишите что конкретно надо.
Короче Я создал заставку при запуске программы своей, и вот хочу чтобы на заставке этой выводилась инфа)
C4eLoveK вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод информации про ОС в Label KnoWabLe Общие вопросы Delphi 5 17.09.2011 00:10
Вывод текста в компонент Label aleksandr278 Помощь студентам 10 20.12.2010 11:50
Вывод результат запроса в label,каким образом? nuevegramodelamor Помощь студентам 1 28.04.2010 16:06
Вывод в Label GrindeX Общие вопросы C/C++ 2 19.11.2009 22:56
Вывод в label forumu Помощь студентам 9 19.11.2007 21:36