DELPHI 如何用STDCALL 调用 API

2014-09-22 11:48:21 517 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SAP销售订单POD实操：从VL01N创建到VLPOD差异处理，保姆级避坑指南本文详细解析SAP销售订单POD全流程，从VL01N创建到VLPOD差异处理，提供保姆级避坑指南。涵盖核心业务逻辑、前置配置、销售订单创建、交货单处理及差异解决方案，帮助用户高效管理供应链执行环节，确保财务与物流的准确对接。阅读详情

DELPHI 如何用STDCALL 调用 API

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

...全文

ROG幻16Air新机避坑：Ubuntu 22.04下NVIDIA驱动、CUDA与Isaac Gym的兼容性实战本文详细记录了在ROG幻16Air新机上安装Ubuntu 22.04，并成功配置NVIDIA驱动、CUDA与Isaac Gym强化学习开发环境的完整实战过程。针对官方文档未明确支持Ubuntu 22.04的挑战，文章提供了从驱动安装、CUDA版本选择、Python虚拟环境搭建到Isaac Gym兼容性调试的一站式解决方案，帮助开发者在新硬件上高效部署机器人仿真与训练平台。阅读详情

qq_15510627

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

虎子8 2014-09-23

打赏
举报

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.

dyonggan 2014-09-23

打赏
举报

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

虎子8 2014-09-22

打赏
举报

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

qq_15510627 2014-09-22

打赏
举报

引用 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函数应该怎么写

qq_15510627 2014-09-22

打赏
举报

引用 1 楼 xsl510079027 的回复:

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

请问声明和实现写在那里

dyonggan 2014-09-22

打赏
举报

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

DELPHI 如何用STDCALL 调用 API

相关推荐