Вызов функции из EXE файла в своей программе. VBA и Delphi.

[angelman78]

Доброго времени программеры!

У меня возникла проблема с вызовом функции из делфи также как в VBA.

Итак в VBA через Reference подключена библиотека. Сама программа с расширением exe (InSec.exe). В VBA использован следующий код вызова:

Dim Sec As New InSec.Security
...
...
If Sec.GetUserRights("Admin","") Then
....
....
Else
....
End

Сама программа InSec.exe написана на delphi 6. Проверил декомпилятором.
Функция GetUserRight через VBA описана так (по клавише F2):
GetUserRights(PermissionTag As String, Condition) As Boolean
Вопрос:
Как можно перенести вызов функции в делфи?
Если можно, подробно.
На просторах интернета нашел примерный способ, но уверен что неправильно, и не то:
procedure TForm1.Button1Click(Sender: TObject);
var Handle: THandle;
func: Function (PermissionTag, Condition: String): Boolean; StdCall;
begin
Handle:=0;
try
try
Handle:=LoadLibrary(PChar('C:\Progr am Files (x86)\InSec\'+'InSec.exe'));
@func:=GetProcAddress(Handle,'GetUs erRights');
{CheckStr(func(s));}
if func('ADMIN','') then label1.Caption:='Разрешено' else label1.Caption:='Запрещено';
except
;
end;
finally
FreeLibrary(Handle);
end;

end;

[angelman78]

Тема закрыта.