Delphi API函数调用示例

Delphi 的 API 函数,用起来还挺顺手的,是你想跟操作系统打交道的时候,省事不少。像是弹个消息框、操作文件、动态分配内存这些事,基本都靠它。

Windows API 函数大多长得像 C 语言那套东西,Delphi 也得跟着声明一遍函数原型,像这样:

function MessageBoxA(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;

声明完别忘了引进 DLL 库,像user32.dllkernel32.dll这些,里面藏着不少能用的函数。方法也简单:

function MessageBoxA; external 'user32.dll' stdcall;

之后你就能在代码里随便用了,比如:

ResultCode := MessageBoxA(0, '这是一个消息框', '提示', MB_OK);

不过用的时候别大意,参数类型跟 Delphi 的有出入。像string得转成PChar,不然容易报错。还有一些老派函数分A(Ansi)和W(Unicode)版本,选对关键。

一些小细节也值得注意:像返回值要看清楚,有时候失败也不会直接报错,你得自己去判断,比如CreateFile那类;句柄类型最好别用Cardinal,用THandle更稳妥;要是遇到需要传结构体的 API,那你就得老老实实地定义packed record,并搞清楚内存布局。

,Delphi 用 API 还蛮灵活的,写熟了之后能干的事儿挺多的。如果你经常要跟系统打交道,这篇总结能帮你理清不少关键点。

rar 文件大小:358.39KB