Как импортировать функцию из dll в Pascal?

Обрати внимание:
1.

function CheckValue():boolean;
external 'CheckValue@files:PreCheck.dll  [b]stdcall[/b]';

2. Просто проще

function InitializeSetup(): Boolean;
begin
 Result := CheckValue;
end;

3.Добавь путь относительно скрипта

Source: PATH\PreCheck.dll; Flags: dontcopy

Это возможные места ошибок на уровне Inno. Все остальное - ошибка самой DLL. Так ли написана, тот ли тип данных возвращает и прочее.

1. Путь относительно скрипта - чтобы файл попал в дистрибутив. Если просто
Source: PreCheck.dll
то эта dll должна быть в одной папек со скриптом. Может быть и так. Просто это возможное место ошибки.
2. COM-сервер здесь не причем. Это должна быть обычная dll. Для совместимости в самой dll в определении функции также должна быть директива stdcall. Как это на VB делается я не знаю. Раньше на VB вообще нельзя было dll сделать, теперь наверное можно.
На Pascal такую dll можно написать так

library PreCheck;
uses ....
function CheckValue() : boolean; [b]stdcall[/b];
begin
//Тут код, возвращающий результат
Result:=....
end;
// Обязательно объявление экспортируемых функций
[b]exports[/b]
  CheckValue;
begin
end.

На всякий случай проверить надо, что в VB считается истиной/ложью. Может быть и 1/0.

> ShaggyDoc
Спасибо, вы помогли мне разобраться в ситуации.
В итоге, я нашел во встроенном в Inno Setup Pascal'е функции для работы с  Visual Basic ActiveX DLL:

function CreateOleObject(const ClassName: string): Variant;
function GetActiveOleObject(const ClassName: string): Variant;
procedure CoFreeUnusedLibraries;

Правда, когда попытался их использовать, снова
застрял:

{ Create PreCheck COM Automation object }
{-------------PreInnstallCheck------------------}
const
  ServerName = 'Class_PreCheck';//имя класса
function InitializeSetup(): Boolean;
var
  VB_Server: Variant;
begin
   VB_Server := CreateOleObject(ServerName);
   Result := VB_Server.CheckValue;
end;

Код компилируется, но при запуске возникает ошибка:
Runtime Error (at 1:55);
Invalid class string
Впечатление такое, что не проходит имя сервера.
В принципе, у встроенного Pascal немало возможностей, и мою проверку да и многое другое можно просто прописать в секции Code.
Но жаль, если не смогу воспользоваться привычным для меня Visual Basic 6.0.

Нашел, наконец, ошибку в своем коде.
Пусть умные учатся (на чужих ошибках).
При вызове компонента надо было указать: "Имя_проекта.Имя_класса":

const
  ServerName = '[b]PreCheck.[/b]Class_PreCheck';
function InitializeSetup(): Boolean;
var
  VB_Server: Variant;
begin
   VB_Server := CreateOleObject(ServerName);
   Result := VB_Server.CheckValue;
   if Result then
   MsgBox('You fine fellow, Leonid!', mbInformation, mb_Ok);
end;

Что касается невозможности создания обычных dll в VB6, то да - в "классическом VB6" это невозможно. Но я слыхал что-то про PowerBasic, там вроде бы возможно. Сам я не разбирался и не проверял.