Может быть адреса строк-переменных должны быть выравнены по некоторой границе?
Добавлено спустя 2 минуты 52 секунды:
или стек вызывающей процедуры
Модератор: Модераторы
Kemet писал(а):Может быть адреса строк-переменных должны быть выравнены по некоторой границе?
Добавлено спустя 2 минуты 52 секунды:
или стек вызывающей процедуры
Kemet писал(а):Не понятно, на какой системе запускается программа, разрядность библиотеки
Kemet писал(а):а где для чравнения асм примера последней работающей связки лазарус+fpc и неработающей
Kemet писал(а):вроде как нужно скомпилировать юнит с опцией -a, тогда ассемблерный файл останется и его можно будет посмотреть
var
err_code: integer;
a_s : AnsiString;
begin
a_s := 'A:\';
err_code:=InitKey(Pchar(a_s),'');
pupsik писал(а):gvido вот интересно... вы пробовали нечто такого:Код: Выделить всёvar err_code: integer; a_s : AnsiString;begin a_s := 'A:\'; err_code:=InitKey(Pchar(a_s),'');То что ютф и т.д. вы пробовали - видно, а вот что по поводу простого Ansi скажете.?п.с.Сложность вашей ситуации - доступность самой длл и.... Вот нет у меня желания тащить (покупать) её. И смотреть что да как. А так получается страниц эдак гадания.
err_code:= initKey('F:\','');
?! а он каким боком к взаимодействию с дллманифест windows
pupsik писал(а):?! а он каким боком к взаимодействию с длл
gvido писал(а):Я не знаю
vitaly_l писал(а):А если обратно включить, то dll - перестаёт работать?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6