Delphi и АСМ. универсальный запуск

[Пепел Феникса]

интересует следующее:
реализация универсального запуска подпрограмм(stdcall тип аргументов известен и порядок известен, и также тип возвращаемого значения)
типы аргументов могут быть следующие: указатель(в основном PChar), дробное(real 8б) и целое(int 4б)..
возвращаем указатель:

получается чтото типа следующего:

var P:pointer;
     i,j:integer;
begin
 for i:=0 to Proc.ArgumentsCount-1 do
  case Proc.Arguments[i] of
   'i': begin
        j:=IntToStr(Argument[i]);
        asm
         push//далее не знаю
        end;
  //дальше case
  end;
 asm
  call//тоже не знаю что тут(вроде адрес)
 //и главное как забрать результат в P?
 end; 
end;

Argument = array of string;
Proc=record;
 ArgumentsCount:integer;
 Arguments:array of char;
 Address:pointer;
end;

1)верный ли порядок аргументов?(допустим функция

Proc(i:integer;p:PChar;f:real):pointer;stdcall

)
2)возможно ли по данной схеме работать с ДЛЛ?
3)как потом очистить стек если гдето будет ошибка при заталкивании переменных?
pop ведь так?

[Goodwin98]

Если честно, я не очень понял, что вам нужно сделать. Какой-то жуткий способ запустить процедуру?

  call//тоже не знаю что тут(вроде адрес)
 //и главное как забрать результат в P?

  call Proc
 mov [P],eax ; результат возвращается в eax

1)верный ли порядок аргументов?

Аргументы в stdcall запихиваются в стек в обратном порядке, т.е. первым должен зайти real ( т.к. он 8 байт, то это еще и в 2 этапа - вначале одна половика, затем другая), после пойдет PChar, и в конце integer.

2)возможно ли по данной схеме работать с ДЛЛ?

Почти со всеми DLL, кроме сишных, так и работают.

3)как потом очистить стек если гдето будет ошибка при заталкивании переменных?
pop ведь так?

Я думаю более целесообразно будет запомнить положение указателя стека (регистр esp) где-нибудь (на асме напр обычно его сохраняют в регистре ebp) и в случае ошибки восстанавливать его значение.

[Пепел Феникса]

Какой-то жуткий способ запустить процедуру?

почти
просто функа может быть как Proc(i1,i2,i3:integer)ointer;
так и та что я ранее привел(но мне известен тип и порядок аргументов)..

Почти со всеми DLL, кроме сишных, так и работают.

а с Сишными что делать?(сишные это С и С++, или только чистый С?)

[Goodwin98]

а с Сишными что делать?(сишные это С и С++, или только чистый С?)

Я имею ввиду чистый Си, в его функциях стек после вызова не выравнивается, это должна делать вызывающая прогамма, т.е. ваша

push arg2
push arg1
call C_proc
add esp,8 ; 2 параметра по 4 байта

[Пепел Феникса]

спасибо
тему можно закрыть.