Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.08.2018, 15:58   #1
angelman78
 
Регистрация: 30.03.2016
Сообщений: 5
По умолчанию Вызов функции из EXE файла в своей программе. VBA и Delphi.

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

У меня возникла проблема с вызовом функции из делфи также как в 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 вне форума Ответить с цитированием
Старый 12.09.2018, 12:39   #2
angelman78
 
Регистрация: 30.03.2016
Сообщений: 5
По умолчанию

Тема закрыта.
angelman78 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
jQuery вызов функции из другого файла Bilargo JavaScript, Ajax 3 21.07.2016 22:11
Вызов функции из другого файла kostya67 PHP 4 19.10.2014 16:55
Редактирование файла excel при запущенной программе vba IRomanKozlov Microsoft Office Excel 1 14.01.2014 12:39
Описание и вызов функции в коде на Паскаль(Delphi) adaptes Помощь студентам 1 27.12.2013 12:42
Вызов функции из не подключенного файла Byurrer Общие вопросы C/C++ 4 06.04.2011 20:51