Олег Киреев

Посмотрите видео примера работы. Видео_помощи.mp4 БД графиков v.4.rar БД графиков v.5.rar

СпасиБО. Это работает на Win 10. Пожалуйста напишите то же для Win 7. С Уважением.

Может так подойдёт? : function GetWMIObject(const objectName: String): IDispatch; var chEaten: Integer; BindCtx: IBindCtx; Moniker: IMoniker; begin OleCheck(CreateBindCtx(0, bindCtx)); OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten, Moniker)); OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result)); end; procedure TForm2.SpeedButton1Click(Sender: TObject); var objWMIService : OLEVariant; colItems : OLEVariant; colItem : OLEVariant; oEnum : IEnumvariant; iValue : LongWord; begin objWMIService := GetWMIObject('winmgmts:\\localhost\root\CIMV2'); colItems := objWMIService.ExecQuery('SELECT * FROM Win32_DesktopMonitor','WQL',0); oEnum := IUnknown(colItems._NewEnum) as IEnumVariant; if oEnum.Next(1, colItem, iValue) = 0 then begin Memo1.Lines.Add('Подпись '+(colItem.Caption)); Memo1.Lines.Add('Описание '+(colItem.Description)); Memo1.Lines.Add('Идентификатор устройства '+(colItem.DeviceID)); Memo1.Lines.Add('Manufacturer '+(colItem.MonitorManufacturer)); Memo1.Lines.Add('Тип '+(colItem.MonitorType)); end; end;

Здравствуйте уважаемый antigrav. Я пользовался встраиваемыми компонентами GLScene которые распространяются бесплатно. С Уважением.

Приложение под OS Win для расчёта нагрузок (сил, скоростей угловых и угловых ускорений) от работы карданного вала в зависимости от схемы и имеющихся данных. Перед началом работы необходимо посмотреть файл Help.mp4. Help.mp4 РасНагрКард.rar

Приложение под OS Win для расчёта тяговой динамики транспортного средства (автомобиля, автобуса, троллейбуса, электробуса) с графиками, диаграммами, выводом на печать и базой данных. Просто запустите файл exe. Перед началом пользования посмотрите файл Help.mp4. Приложение работает при 64-битном офисе. ТДР v.46.rar ТДР v.52.rar

Пожалуйста. На здоровье. Хорошо. С Уважением.

Здравствуйте. Пришлите мне на Viber (номер тел указан в приложении) схему и все размеры. Я Вам посчитаю. С Уважением.

Здравствуйте уважаемые. Приложение для OS Android, Delphi 10.3. Подскажите пожалуйста почему при компиляции нового или старого проекта стало появляться непонятное сообщение (см прилагаемый скрин). Может кто сталкивался с этой проблемой. СпасиБО.

Пожалуйста. Рад был помочь. С Уважением.

Здравствуйте. Прилагаю картинку как это сделать. С Уважением.

Здравствуйте Emma. По опыту лучше поместить компонент TChart на форму. Сразу настроить как надо. Там куча настроек. Думаю дело там. Сделать невидимым. А потом на кнопке Vasible Graphic делать видимым. С Уважением.

И на моём запустился и не "упал". С Уважением. Олег.

Да и у меня "падает". С Уважением. Олег Киреев.

И в этой новой версии OS сообщает "В приложении произошёл сбой". С Уважением. Олег.