function MessageBoxA(hwwnd: integer; lpText, lpCaption: PChar; uType: integer): Integer; stdcall; external 'user32.dll';