|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.04.2012, 21:35 | #1 |
Пользователь
Регистрация: 29.02.2012
Сообщений: 49
|
Вывод информации про ОС в Label
Вывод информации про ОС в Label...
Типа Версия ОС, оперативная память...и т.д... Как можно это реализовать?) Последний раз редактировалось C4eLoveK; 09.04.2012 в 21:59. Причина: добавил исходник |
09.04.2012, 21:51 | #2 |
Пользователь
Регистрация: 29.02.2012
Сообщений: 49
|
Вот это вот нашёл, он запускается, но не показывает не чего...
Код:
|
09.04.2012, 22:01 | #3 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
GetVersionEx
или Win32MajorVersion Win32MinorVersion Win32BuildNumber в SysUtils и http://programmersforum.ru/showthread.php?t=165721
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
09.04.2012, 22:03 | #4 | |
Пользователь
Регистрация: 29.02.2012
Сообщений: 49
|
А не могли бы Вы подробнее расписать?)
Цитата:
Или если не затруднит в исходнике выше исправить и скинуть) |
|
09.04.2012, 22:09 | #5 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
А погуглить? А головой подумать?
|
09.04.2012, 22:13 | #6 |
Пользователь
Регистрация: 29.02.2012
Сообщений: 49
|
|
09.04.2012, 23:12 | #7 |
Дружелюбный
Форумчанин
Регистрация: 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; Пишите что конкретно надо. -==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
|
09.04.2012, 23:29 | #8 |
Дружелюбный
Форумчанин
Регистрация: 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; -==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
|
10.04.2012, 00:06 | #9 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
vovken1997, на будущее, не плоди несколько постов подрят.
и используй для выделения кода. Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
10.04.2012, 15:11 | #10 | |
Пользователь
Регистрация: 29.02.2012
Сообщений: 49
|
Цитата:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывод информации про ОС в 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 |