|
Вопрос # 5 509/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Какой код нужно ввести чтобы при нажатии на Button1 Компьютер Выключился, а Button2 Перезагрузился.
 |
Вопрос задал: NoSleep (статус: Посетитель)
Вопрос отправлен: 18 июля 2011, 14:49
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 31; последнее сообщение — 30 июля 2011, 23:19; участников в обсуждении: 6.
Страницы: [« Предыдущая] [1] [2]
|
|
NoSleep (статус: Посетитель), 29 июля 2011, 09:46 [#21]:
на показ в labelе объем ОЗУ какой код?
|
|
min@y™ (статус: Доктор наук), 29 июля 2011, 11:03 [#22]:
Цитата (NoSleep):
на показ в labelе объем ОЗУ какой код?
Вот кусок моего древнего проекта:
// Информация о памяти.
procedure TSysInfoForm.MemoryInfo;
var
lpMemoryStatus : TMemoryStatus;
RAMTotal, RAMFree, SwapTotal, SwapFree: Real;
begin
lpMemoryStatus.dwLength := SizeOf(lpMemoryStatus);
GlobalMemoryStatus(lpMemoryStatus);
with lpMemoryStatus do
begin
RAMTotal := dwTotalPhys div 1024 / 1024;
RAMFree := dwAvailPhys div 1024 / 1024;
SwapTotal:= dwTotalPageFile div 1024 / 1024;
SwapFree := dwAvailPageFile div 1024 / 1024;
RAMTotalLabel.Caption := Format('%0.0f Мбайт',[RAMTotal]);
RAMFreeLabel.Caption := Format('%0.3f Мбайт',[RAMFree]);
SwapTotalLabel.Caption := Format('%0.0f Мбайт',[SwapTotal]);
SwapFreeLabel.Caption := Format('%0.0f Мбайт',[SwapFree]);
try
RAMGauge.Progress:= Round(100*(RAMTotal-RAMFree)/RAMTotal);
SwapGauge.Progress:= Round(100*(SwapTotal-SwapFree)/SwapTotal);
except
end;
HeartMachine.AddPoint(0,RAMGauge.Progress,'Занято физической памяти');
HeartMachine.AddPoint(1,SwapGauge.Progress,'Занято в файле подкачки');
end;
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
bugmenot (статус: 3-ий класс), 29 июля 2011, 12:08 [#23]:
Цитата (min@y™):
int div 1024 / 1024
мозговзрывательное выражение
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
NoSleep (статус: Посетитель), 29 июля 2011, 12:46 [#24]:
HeartMachine это что?
|
|
|
NoSleep (статус: Посетитель), 29 июля 2011, 13:08 [#25]:
В SwapTotalLabel
SwapFreeLabel
Что указывается ?
|
|
Gooddy (статус: 3-ий класс), 29 июля 2011, 13:13 [#26]:
HeartMachine - какой-то компонент для отображения графика. Тебе он не нужен.
SwapTotalLabel/SwapFreeLabel - всего/свободно от файла подкачки.
Чисти код! Чисти код! Чисти код!
|
|
|
NoSleep (статус: Посетитель), 29 июля 2011, 13:17 [#27]:
У меня файл подкачки 1536, а не
2464 мегабайт.
|
|
|
NoSleep (статус: Посетитель), 29 июля 2011, 13:22 [#28]:
HeartMachine мне нужен.
в какой вкладке он находится.
|
|
|
NoSleep (статус: Посетитель), 29 июля 2011, 13:37 [#29]:
Код на загрузку ЦП?
|
|
|
NoSleep (статус: Посетитель), 30 июля 2011, 12:25 [#30]:
Мне кто-нибудь ответит.
|
|
|
Gooddy (статус: 3-ий класс), 30 июля 2011, 23:19 [#31]:
Компоненто*бы...
Чисти код! Чисти код! Чисти код!
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
