library TimerDll;uses
SysUtils,Windows,
Classes;
var
SendHwnd : THandle;
I : Integer;
{$R *.res}procedure TimerOnTimer(hWnd: HWND;uMsg: UINT;idEvent: UINT;Time: DWORD);
begin
Inc(I);
end;Procedure TimerOn(hWnd: HWND;SendI: Integer); stdcall;
begin
I := SendI;
SendHwnd := hWnd;
SetTimer(hWnd, 1, 100, @TimerOnTimer);
end;Function TimerOff(): Integer; stdcall;
begin
KillTimer(SendHwnd, 1);
Result := I;
end;
exports
TimerOn,TimerOff;begin
end.为什么 我自己在Delphi中试没有问题 可C++中一用 返回值总是传进去的值啊?
SysUtils,Windows,
Classes;
var
SendHwnd : THandle;
I : Integer;
{$R *.res}procedure TimerOnTimer(hWnd: HWND;uMsg: UINT;idEvent: UINT;Time: DWORD);
begin
Inc(I);
end;Procedure TimerOn(hWnd: HWND;SendI: Integer); stdcall;
begin
I := SendI;
SendHwnd := hWnd;
SetTimer(hWnd, 1, 100, @TimerOnTimer);
end;Function TimerOff(): Integer; stdcall;
begin
KillTimer(SendHwnd, 1);
Result := I;
end;
exports
TimerOn,TimerOff;begin
end.为什么 我自己在Delphi中试没有问题 可C++中一用 返回值总是传进去的值啊?
我的程序没有问题的