Блог GunSmoker-а

Вот же ж блин. Стоило мне только здесь задать вопр...

2022-02-23T14:52:36.651+03:00

Вот же ж блин. Стоило мне только здесь задать вопрос и я почти сразу же и нашёл ответ. Хотя правда и не прямой ответ, а только подсказку, но и этого мне хватило :)
На одном сайте было написано, что в реестре есть такой ключик: HKEY_CLASSES_ROOT\exefile\shell\runas\command и поэтому ShellExecuteEx с "runas" работает именно так.
Для интереса я запустил редактор реестра и обнаружил там кроме ключика "runas" ещё один интересный ключик "runasuser", попробовал его в ShellExecuteEx вместо "runas" - и оно сработало так как мне и нужно было :)
Спасибо за помощь! :)
Впрочем если вы знаете ещё какой-то способ сделать то же самое, то прошу поделиться со мной. Потому что под WinXP запуск ShellExecuteEx с"runasuser" не работает...

Добрый день! Вызов функции ShellExecuteEx с "...

2022-02-23T14:35:23.002+03:00

Добрый день!
Вызов функции ShellExecuteEx с "runas" приводит к появлению диалога ввода логина и пароля для запуска приложения с правами администратора.
Подскажите, пожалуйста, а как можно вызвать диалог ввода логина и пароля для запуска от имени другого пользователя, но без прав администратора?
Ну это как в проводнике нажимаешь на exe-шнике правой кнопкой мыши удерживая кнопку Shift и там кроме пункта "Запуск от имени администратора" появляется ещё пункт "Запуск от имени другого пользователя".
В интернете никак не могу отыскать правильный ответ - везде предлагают запуск от имени другого пользователя, но с повышением прав до администратора...

О, мы как раз с этим столкнулись 2 года назад, и к...

2022-01-14T19:47:12.645+03:00

О, мы как раз с этим столкнулись 2 года назад, и как раз в EurekaLog (модуль EPNG.pas)!
Но только в 64-битном Delphi. 32-битный компилятор нормально работал, не выделял дополнительную память, а Result трактовал как var-параметр.
Почему-то 64-битный компилятор делал именно так, как Вы пишете, создавал временную переменную. Почему так — я не помню уже, 2 года прошло. Видимо, из-за каких-то особенностей вложенных функций в Win64.

Огромное спасибо за ответ! Очень рад, что Вы работ...

2022-01-14T19:24:23.427+03:00

Огромное спасибо за ответ!
Очень рад, что Вы работаете в команде EurekaLog (много лет не заглядывал в Ваш блог, и только сегодня про это узнал).

См. Use safe mode to handle special exceptions. ...

2022-01-14T19:01:34.114+03:00

См. Use safe mode to handle special exceptions.

> в результате повреждения памяти сохранённый пользователем документ может напрочь испортиться и готов нести ответственность за это
Там только не в этом дело. Этот функционал изначально создавался для другого. Ошибка с памятью может быть, если менеджеру памяти пришёл кирдык. Например, баг в коде затёр управляющие структуры. В этом случае попытка как-то обработать исключение приведёт лишь к повторной ошибке памяти. Цикл продолжится до "Приложение выполнило недопустимую операцию и будет закрыто". Результат: недовольные клиенты "EurekaLog не работает". А если учесть, что у нас проверки памяти включены по умолчанию, а в существующих проектах с памятью обычно швах, то и - "приложение вылетает после добавления в него EurekaLog". А вот эта функциональность позволяет EurekaLog даже в таких сложных случаях создать отчёт. Да, не всегда это возможно, но мы, по крайней мере, пытались.

Собственно, основная проблема - нет машины времени. Т.е. имея на руках исключение, нельзя сказать, можно ли его будет успешно обработать или нет. Поэтому приходится включать "безопасный режим" заранее для некоторых типов исключений - в основном это различные проблемы с памятью.

Пользуясь случаем, хотел бы задать вопрос не по те...

2022-01-14T18:50:47.648+03:00

Пользуясь случаем, хотел бы задать вопрос не по теме.
EurekaLog очень не любит ошибок в менеджере памяти.
Настолько не любит, что, например, при повторном вызове FreeMem для уже освобождённого блока памяти врубает "режим паники" и прибивает всё приложение. Да, она показывает перед этим сообщение об ошибке, но это не даёт пользователю возможность хоть как-то продолжить работу и, например, сохранить свой документ на диск. Зачем так жестоко? Нельзя ли как-то отрубить этот функционал?
Да, я, как разработчик, осознаю, что что в результате повреждения памяти сохранённый пользователем документ может напрочь испортиться и готов нести ответственность за это, считая, что в большинстве случаев это меньшее зло, чем невозможность сохраниться. Но EurekaLog не предоставляет такой возможности.

Все антивирусы можно считать мошенниками. Касперск...

2022-01-14T18:38:01.993+03:00

Все антивирусы можно считать мошенниками. Касперского, например. Потому что у всех бывают ложные срабатывания. Особенно у тех, которые хорошо ловят настоящие вирусы (а Касперский, например, хорошо ловит; слишком, чорт бы его побрал, хорошо).
Если клиенты вашего приложения отказываются добавлять его в список исключений (ну там "правила корпоративной безопасности", например, не позволяют), то мне известен только один выход из этой ситуации — покупать Code Signing Certificate для вашей организации и подписывать им свои исполняемые файлы. Это не очень дорого, несколько тыс. руб. в год, но оформление/продление может быть геморройным. Антивирусы отстают (иначе бы им прилетало слишком много претензий от пользователей широко используемого ПО, такого, как Office или AutoCAD).

Забудьте про Virustotal!!! Они предоставляют Медве...

2021-11-07T08:36:33.378+03:00

Забудьте про Virustotal!!! Они предоставляют Медвежьи услуги. Для меня - это мошенники. У них многие дельфовые функции видятся как угрозы. То же самое касается и Norton Antivirus.

Возникла та же проблема. Все компилируется вот оол...

2021-10-01T17:34:18.786+03:00

Возникла та же проблема. Все компилируется вот оолько при запуске ругается на "Resource TfrmFDGUIxFormsError not found".

Delphi 10.3, FireDAC+SQLite, FastReport

Ага, спасибо, исправил.

2021-09-20T18:26:35.467+03:00

Ага, спасибо, исправил.

по всей видимости правильно так: procedure Not...

2021-09-17T16:14:21.671+03:00

по всей видимости правильно так:
procedure NotifyMe(ANotifier: INotify); safecall;
function GetMemory(out ADataSize: DWORD): Pointer; safecall;

в архиве ошибка в SampleDLLHeaders.pas в строке 61...

2021-09-17T16:12:18.141+03:00

в архиве ошибка в SampleDLLHeaders.pas в строке 61 стоит:
procedure NotifyMe(ANotifunction GetMemory(out ADataSize: DWORD): Pointer; safecall;fier: INotify); safecall;

Там была ссылка http://, я изменил на https:// - в...

2021-08-19T09:35:48.509+03:00

Там была ссылка http://, я изменил на https:// - возможно, проблема была в этом? Типа, настройки безопасности браузера, не дают открыть небезопасную ссылку с безопасной страницы?

У меня работает. Может, браузер не понимает, что о...

2021-08-19T09:32:46.919+03:00

У меня работает. Может, браузер не понимает, что от него хотят? Попробуйте открыть новое окно и вставить ссылку вручную: https://files.gunsmoker.ru/files/downloads/SampleDllAPI.zip

почему-то ссылка на архив не работает

2021-08-19T05:56:44.659+03:00

почему-то ссылка на архив не работает

P.S. Например, я в dll написал на ассемблере проце...

2021-08-17T17:23:00.653+03:00

P.S.
Например, я в dll написал на ассемблере процедуру , которая получает и передаёт два числа типа Extended через ST(0), ST(1)
Если я скомпилирую это в 64 разрядной Дельфи и буду использовать эту dll в программе, скомпилированной в 64 разрядном GCC, она будет работать в 64 Windows?
Или та же самая процедура, но с передачей чисел Extended через общий стек:
fstp tbyte prt [esp],
fstp tbyte prt [esp-10]

Если не будет работать, то почему? Если будет работать, то почему 64-компиляторы не используют Extended?

P.P.S.
Мои подобные 32 разрядные dll и exe работают в Windows10x64 без ошибок.
Но у меня нет сейчас возможности проверить это на 64 компиляторах. :)

Что означает: модель диктует? В 32 разрядных почем...

2021-08-17T15:44:11.218+03:00

Что означает: модель диктует? В 32 разрядных почему-то этого нет. Зачем передавать числа с плавающей точкой через SSE, когда для этого есть FPU?
Какое отношение имеет передача чисел SSE к отсутствию поддержки Extended? Ведь поддержка double в FPU есть.
Вы можете привести ссылки на статьи в которых детально расписывается и объясняется эта проблема и как это работает изнутри?

Потому что в 32-х разрядных Delphi (и не только De...

2021-08-17T10:23:37.873+03:00

Потому что в 32-х разрядных Delphi (и не только Delphi) модель вызова диктует, что для передачи чисел с плавающей запятой используются регистры сопроцессора x87: "A real parameter is always passed on the stack. Real results are returned in the floating-point coprocessor's top-of-stack register (ST(0))".

В противоположность этому, модель вызова x86-64 диктует, что для передачи чисел с плавающей запятой используются регистры SSE: "The first four arguments are placed onto the registers. That means ... XMM0, XMM1, XMM2, XMM3 for floating point arguments. Floating point return values are returned in XMM0". Никакого x87 здесь не предусмотрено.

В Linux (и вообще, большинстве Unix-систем, включая MacOS) ситуация полностью аналогичная. Конечно, там используется своё соглашение вызова, но правила там практически те же: "While XMM0, XMM1, XMM2, XMM3, XMM4, XMM5, XMM6 and XMM7 are used for the first floating point arguments. Floating-point return values are similarly stored in XMM0 and XMM1".

"Это требования единой модели вызова x86-64.&...

2021-08-17T05:35:45.473+03:00

"Это требования единой модели вызова x86-64." - А вот это и непонятно.
В 32 разрядных Дельфи в той же 64 разрядной Windows всё работает с типом Extended. И никакая модель вызова не мешает. Почему же такие проблемы возникают в 64 разрядной Дельфи?
Т.е. это ограничение Windows?? Но зачем они это сделали?? Они, вроде, партнёры Интел. Взяли и обрубили их FPU. А SSE - инвалид по сравнению с FPU. Медленно , неудобно и неточно.
И ещё, а вы не знаете в Линукс 64 бит та же история c Extended?
Например, Лазарус64 будет работать в Линукс64 с типом Extended?

Это не совсем от разработчиков Delphi зависит. Это...

2021-08-16T16:22:21.529+03:00

Это не совсем от разработчиков Delphi зависит. Это сделано потому что Extended - это аппаратный тип для сопроцессора x87. В x86-64 сопроцессор x87 не используется, а числа с плавающей запятой реализуются не сопроцессором, а самим центральным процессором - через SSE инструкции. Там такого типа нет, 8-ми байтовый Double - это максимум. Это требования единой модели вызова x86-64.

P.S. Надо ещё заметить, что сам по себе тип Extended - это особенность Delphi. Во многих языках есть только Single и Double даже на x86-32.

P.P.S. Да, в x86-64 всё ещё можно задействовать сопроцессор x87 - на ассемблере. Но тут нужно понимать, что если раньше (в x86-32) все числа с плавающей запятой (single/double/extended) реализовывались только внутри сопроцессора x87, то теперь Single и Double должны быть в регистрах XMM (SSE инструкции), а Extended, если вы захотите его использовать, - в регистрах x87. Т.е. смешанные вычисления уже просто так не сделаешь, нужно гонять данные между двумя процессорами.

Здравствуйте. Вопрос не совсем по теме по задачке,...

2021-08-13T23:58:19.480+03:00

Здравствуйте. Вопрос не совсем по теме по задачке, но близок.
Вы не знаете почему в 64 разрядных Дельфи убрали тип Extended?
Везде куча предположений, но нигде не нашёл точного ответа.
PS
Они этим "эффективным менеджментом" выстрелили себе в ногу, полностью перекрыв для некоторых приложений переход на 64бит версии.
Вопрос, зачем??

Глянул - он там есть и отдельно в секции Downloads...

2021-08-05T18:14:13.075+03:00

Глянул - он там есть и отдельно в секции Downloads: https://devjetsoftware.com/downloads/

Сейчас он уже интегрирован в Documentation Insight...

2021-08-05T18:12:15.500+03:00

Сейчас он уже интегрирован в Documentation Insight, ставьте его.

не скачивается расширенный шаблон https://devjetso...

2021-08-05T15:52:08.145+03:00

не скачивается расширенный шаблон
https://devjetsoftware.com/products/documentation-insight/more-help-insight-customization/

где еще его можно скачать?

Спасибо за интересную статью!

2021-05-25T22:30:21.174+03:00

Спасибо за интересную статью!