В примере к FakeDll dll экспортируются только процедуры, а я хочу импортировать с моёй фэйк-длл функцию, пробывал не получается. Можно ли это, или нет, и как?

-----
Лучше быть одиноким, но свободным © $me

| Сообщение посчитали полезным:

В каком именно примере?
Как пытался?
Правильно заданный вопрос содержит в себе минимум половину ответа!!!!

| Сообщение посчитали полезным:

Что за процедуры и функции? Это в дельфи такое разделение, в асме нет понятия процедура и функции, они все функции. И как ты пробовал? Пример где? И вопрос вообще по-русски задай.

| Сообщение посчитали полезным:

Простой примерчик: в длл функция возращает сумму двух чисел, и по нажатии на кнопку вызывается эта ф-ия, а результат выодим в кэпшене.
Вот исходники:

3fea_13.07.2008_CRACKLAB.rU.tgz - for forum.7z

-----
Лучше быть одиноким, но свободным © $me

| Сообщение посчитали полезным:

дело не в том что это, функция или процедура, а в том что оно не хочет(или я не так что-то делаю) работать с ф-ми или процедурами с параметрами.
В примере который был вместе с фэйк-длл:
...
// переменая через которую будут работать с процедурой
Proc : procedure;
...
procedure TForm1.Button6Click(Sender: TObject);
begin
Proc := FakeDll.GetFDProcAddress(Proc1Name); // присваиваем адрес процедуры
Proc; // вызываем процедуру
end;
...

А я хочу так:
...
Proc : procedure(n: integer);
...
procedure TForm1.Button6Click(Sender: TObject);
begin
Proc := FakeDll.GetFDProcAddress(Proc1Name); // присваиваем адрес процедуры
Proc(2); // вызываем процедуру
end;
...
выдает ошибку
при нормальном вызове все работает

может я не правильно объявляю переменую, или еще что-то не так делаю

-----
Лучше быть одиноким, но свободным © $me

| Сообщение посчитали полезным:

зависит от соглашений.

Либо объявляй так
...
// переменая через которую будут работать с процедурой
Proc : procedure(n: integer); stdcall;
...

Либо так
...
// переменая через которую будут работать с процедурой
Proc : procedure(n: integer); cdecl;
...

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным:

PE_Kill
на самом деле и со стандартным борладовским fastcall все будет нормально, главное объявлять их абсолютно идентично

borov
когда ты вызывал Proc(2); как у тебя она была объявлена в FakeDll?

| Сообщение посчитали полезным:

drin пишет:
на самом деле и со стандартным борладовским fastcall все будет нормально
Не понял, если proc в dll - stdcall, то как она может корректно работать при вызове ее как fastcall?

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным:

PE_Kill
я же говорю что объявлять абсолютно идентично, если в fake_dll объявлять stdcall то и в том месте от куда вызывать объявлять как stdcall... или автор мапит не свою dll и не знает какие там соглашения внутри?

| Сообщение посчитали полезным:

у меня stdcall, а вобще это я решил потренироватся фэйкать дллки, для того чтобы за собой не таскать кучу длл'ок

-----
Лучше быть одиноким, но свободным © $me

| Сообщение посчитали полезным:

Не уверен, но помоему должно быть через указатель:

@Proc := FakeDll.GetFDProcAddress(Proc1Name);

И понавтыкать кучу проверок. =)

Но самое простое - в отладчике посмотреть кто там что со стеком делает =)

| Сообщение посчитали полезным:

Правильно описанный прототип и указатель на него это - уже пол дела.
Дельфи уже лет 8 в глаза не видел, могу ошибаться, но должно быть примерно так:


соответсно calling convention и тип результата подгоняется под конкретные нужды.

| Сообщение посчитали полезным:

type
TDLLFunction = function(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall;

var
HdeProcess: TDLLFunction;


.........................
hinstDLL := LoadLibrary(Pchar(dll_name2));
if hinstDLL=0 then
begin
exit;
end;
HdeProcess := TDLLFunction(GetProcAddress(hinstDLL,'HideProcess'));
if not Assigned(HdeProcess) then
begin
FreeLibrary(hinstDLL);
hinstDLL:=0;
exit;
end;
try

HdeProcess(GetCurrentProcessId, true);
except
end;


в ДЛЛ

function HideProcess(pid:DWORD; HideOnlyFromTaskManager:BOOL):BOOL; stdcall;

может поможет....

| Сообщение посчитали полезным: