Паскаль / do9 / iriepas201 / Irie Pascal / samples / winhello

program winhello;
const
    NULL_HANDLE = 0;
    CR = 13;

(***************************************************************
** The following two constants are defined by the windows API **
***************************************************************)
    MB_OKCANCEL = $00000001;
    MB_ICONEXCLAMATION = $00000030;

type
    MsgBoxRet = (IDNOMEM, IDOK, IDCANCEL, IDABORT, IDRETRY, IDIGNORE, IDYES, IDNO, IDCLOSE, IDHELP );
var
    csText, csCaption : cstring;
    RetVal : MsgBoxRet;

(* The following winapi function is exported from the windows dll 'user32.dll'
int MessageBoxA(
    HWND hWnd,  // handle of owner window
    LPCTSTR lpText,     // address of text in message box
    LPCTSTR lpCaption,  // address of title of message box  
    UINT uType  // style of message box
   );
*)

    function MessageBox(hWnd : word; var lpText, lpCaption : cstring; uint : word) : MsgBoxRet;
     external dll='user32.dll' name='MessageBoxA' stdcall;

begin
    csText := 'Hello world!!'+chr(CR)+'Press Cancel when done';
    csCaption := 'Irie Pascal Windows Hello World Program';
    repeat
    RetVal := MessageBox(NULL_HANDLE, csText, csCaption, MB_OKCANCEL + MB_ICONEXCLAMATION);
    until RetVal = IDCANCEL;
end.