vs编译obj给delphi用 遇到api解决方法

Posted 2020-11-22 marklove

 

 #ifdef _WIN64 extern int MessageBoxA(HWND, LPCSTR, LPCSTR, UINT); .....etc

#pragma warning( disable:4273 )

 

 

A better solution is to rename MessageBoxA in the C code to something like MessageBoxADelphi and declare it extern int MessageBoxADelphi(HWND, LPCSTR, LPCSTR, UINT); In your Delphi code simply declare it like this: function MessageBoxADelphi(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; external user32 name ‘MessageBoxA‘; Now you will not have any warnings.

 

https://www.codeproject.com/Articles/264103/Using-COFF-C-object-files-with-Delphi-X2