Во-первых, создайте в Delphi простую DLL: { Начало кода DLL }
Library MinMax;
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-файле добавьте следующие строки:
IMPORTS Min =MINMAX.Min Max =MINMAX.Max - Объявите в вашем C-приложени прототип функций, как показано ниже:
int FAR PASCAL Min(int x, y); int FAR PASCAL Min(int x, y); - Теперь из любого места вашего приложения вы можете вызвать функции Min и Max.
|