Во-первых, создайте в Delphi простую DLL:
{ Начало кода DLL } libraryMinMax; function
Min(X, Y: Integer): Integer; export; begin
if
X < Y then
Min := X else
Min := Y; end
; function
Max(X, Y: Integer): Integer; export; begin
if
X > Y then
Max := X else
Max := Y; end
; exports
Min index
1, Max index
2; begin
end
.
{ Конец кода DLL }
Затем, для вызова этих функций из вашего C кода, сделайте следующее:
В вашем .DEF-файле добавьте следующие строки:
IMPORTSMin =MINMAX.Min Max =MINMAX.Max
Объявите в вашем C-приложени прототип функций, как показано ниже:
int FAR PASCAL Min(int x, y); int FAR PASCAL Min(int x, y);
Теперь из любого места вашего приложения вы можете вызвать функции Min и Max.