Я еще ни разу не экспортировал функции, что я сдесь делаю неправильно:

unit MyAPI;

{$WEAKPACKAGEUNIT}

interface

uses Windows;

{ HPPEMIT '#include <windows.h>'}

{$EXTERNALSYM GET_XBUTTON_WPARAM}
function GET_XBUTTON_WPARAM(WParam:WORD):integer;stdcall;

implementation

function GET_XBUTTON_WPARAM;     external  'GET_XBUTTON_WPARAM'

end.

при компиляции программы курсор переходит на

begin
 Application.Initialize;//сюда
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.

при последующем нажатии компиляции происходит ошибка.
Так же надо указать значения XBUTTON1, XBUTTON2;
Подскажите пожалуйстта как решить эту проблему.

Вот пример который даёт справка по дельфи:

Код

library MinMax; function Min(X, Y: Integer): Integer; stdcall; begin  if X < Y then Min := X else Min := Y; end; function Max(X, Y: Integer): Integer; stdcall; begin  if X > Y then Max := X else Max := Y; end; exports  Min,  Max; begin end.

В MSDN написано:
Header: Declared in Winuser.h; include Windows.h.
но не указано какая DLL нужна для экспорта
Я посмотрел WinSock и получается, что нада добавить

const
 dll='.dll'

function GET_XBUTTON_WPARAM;     external  dll name 'GET_XBUTTON_WPARAM'

но я не знаю какая DLL нужна(((

Теперь ты меня совсем запутал, что тебе надо?

- экспортировать описанную тобой функцию чтобы она была доступна для других приложений?

- импортировать чью-то чужую функцию, чтобы использовать в своём приложении?

Мне нада экспортировать функцию описаную в MSDN как GET_XBUTTON_WPARAM для получения сведений о том какая кнопка мышки нажата(XBUTTON1 или XBUTTON2).

Я нашел где она лежит - User32.lib, но при подстановке тот же еррор((((

Примерно так:

Код

function GET_XBUTTON_WPARAM(WParam:WORD):integer;stdcall;external 'User32.dll'; procedure TForm1.Button1Click(Sender: TObject); begin  GET_XBUTTON_WPARAM(2); end;

только 2 примечания:

1) У меня такой функции в 'User32.dll' нет
2) То что тебе надо называется не экспортом а импортом

эта функция существует токо в Win2K

Цитата(Spawn @ 13.11.2002, 13:56)

эта функция существует токо в Win2K

А в XP она есть?

должна быть в Win2K, XP и NT