Mik92

Подскажите, как сделать, чтобы в Memo искало все заданные слова?
Допустим, если не найдена строка ‘123’, тогда ищем ‘1234’, если ее нету, то следующий. (читать всё…)

Проблема следующая: есть основная форма (или родительская) на форме расположена кнопка и листбокс. Вопрос: как создать дочерное окно при нажатии на кнопку, а название этого окна занеслось в листбокс, при этом создать на этой форме (дочерной) те компоненты которые необходимы, и количество создаваемых дочерных окон не должно быть ограниченным?
Дальше хуже, надо что бы, если мы закроем созданное окно то при двойном нажатии на его название в листбоксе это окошко опять появлялось….
Подскажите пожалуйста что да как если это возможно. (читать всё…)

Как при запуске приложения мгновенно скрыть его форму? (читать всё…)

(читать всё…)

Как сделать так, что если клавиатура переключен на «Английский язык», то в Edit1 или Memo1 все равно писал на «Русском языке»? (читать всё…)

XE5
Температурные датчики не имеют стандартизации, поэтому и нет универсального способа прочитать температуру ЦП. В программах типа Everest это учтено, программа в начале распознаёт тип железа, а потом применяет алгоритмы чтения датчиков подходящие для данного типа. Если углубиться в этот вопрос, то можно создать универсальный алгоритм, подходящий для любых систем. Подход типа «спрошу на форуме» не катит.

Vapaamies
Заинтересовался, чуток поигрался. MSAcpi_ThermalZoneTemperature показывает температуру, соответствующую строчке THRM в программе HWMonitor. Это та самая странная температура из всех, у меня она в данный момент равна 22 °C.

Скрипт на VBS, которым игрался (административных прав не требует, что странно):

strServer = "." 

Set objWMI = GetObject("winmgmts://" & strServer & "/root\WMI")

Set objInstances = objWMI.InstancesOf("MSAcpi_ThermalZoneTemperature")  
On Error Resume Next

For Each objInstance in objInstances

    With objInstance

        s = "Current CPU Temperature: " & .CurrentTemperature / 10 - 273 & "°C" & chr(10)

        s = s & "Temperature Sampling Period: " & .SamplingPeriod & " seconds" & chr(10)

        s = s & "Active Trip Point Count: " & .ActiveTripPointCount & chr(10)

        WScript.Echo s

    End With

On Error Goto 0

Next

тема на форуме

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

Доброго времени!

Делаю динам. скрытие контента с возможностью возврата старого.

(читать всё…)

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

Доброго времени суток!

Мне нужно узнать DeviceID, PNPDeviceID класса Win32_DiskDrive(или Win32_USBHub) по букве диска. Буква диска есть у Win32_LogicalDisk.
Но чем их связать не нашел, банально нет одинаковых полей в запросе.

Кто с подобным работал?
(читать всё…)

Giovanni

Как изменить год, полученный из системной даты? (читать всё…)

каким образом возможна реализация такой идеи: щелчок по tbutton, и программа открывает браузер, установленный по умолчанию в ОС, и автоматически переходит на интернет-адрес, заданный в коде программистом? (читать всё…)