DELPHI 如何用STDCALL 调用 API

[qq_15510627]

DELPHI 如何用STDCALL 调用 API

STDCALL 应该怎么用，写在什么地方
如何声明，让所有单元能用

[dyonggan]

写在公共单元的interface下就可以啦。 function funName(com:Integer; baud:Dword):Boolean;stdcall;external '******.dll';

[qq_15510627]

引用 1 楼 xsl510079027 的回复:

你可以参考一下windows单元里面的 我这举例的是静态调用 我举例吧 声明 function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall; 实现 function FindWindow; external user32 name 'FindWindowA';

请问声明和实现写在那里

[qq_15510627]

引用 2 楼 dongyonggan 的回复:

写在公共单元的interface下就可以啦。 function funName(com:Integer; baud:Dword):Boolean;stdcall;external '******.dll';

unit Unit1; interface //function timeGetTime:Integer;stdcall;external 'Winmm.dll' name 'timeGetTime'; //我这里写会报错 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; function timeGetTime:DWORD ;stdcall;external 'Winmm.dll' name 'timeGetTime'; //这里也可以写 var Form1: TForm1; //这里也可以写 implementation //这里也可以写 {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); begin ShowMessage(IntToStr(timeGetTime )); end; end. 请问我想让其他单元调用这个API函数应该怎么写

[虎子8]

你可以参考一下windows单元里面的 我这举例的是静态调用 我举例吧 声明 function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall; 实现 function FindWindow; external user32 name 'FindWindowA';

[dyonggan]

就你现在写的地方别的单元调不到吗？ 如果不行你就写到Form1: TForm1;下面试试

[虎子8]

windows单元不是有那么多的例子吗 声明写到implementation上面 实现写到下面。 当然你也可以像某些人那样只写一句 function timeGetTime:DWORD ;stdcall;external 'Winmm.dll' name 'timeGetTime'; 但这句放到implementation上面 外面单元才能调用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;
var
  Form1: TForm1;

implementation

{$R *.dfm}

  function FindWindow; external user32 name 'FindWindowA';

end.