{"title":"","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","published":"2008-06-10 01:18:00","author_url":"https://blog.hatena.ne.jp/fortran66/","image_url":"http://cdn-ak.f.st-hatena.com/images/fotolife/f/fortran66/20080610/20080610011716.gif","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20080610%2F1213028280\" title=\" - fortran66\u306e\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","blog_url":"https://fortran66.hatenablog.com/","provider_name":"Hatena Blog","author_name":"fortran66","height":"190","categories":["Win32"],"url":"https://fortran66.hatenablog.com/entry/20080610/1213028280","description":"Fortran2003 \u3067\u306e C \u547c\u3073\u51fa\u3057\u898f\u7d04\u3068\u3001Win32 \u3067\u306e\u547c\u3073\u51fa\u3057\u898f\u7d04\u304c\u3001\u7570\u306a\u3063\u3066\u3044\u308b\u3088\u3046\u306a\u306e\u3067\u3001\u4ee5\u4e0b\u306e\u5185\u5bb9\u306f\u9593\u9055\u3063\u3066\u3044\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u540d\u79f0\u306e\u898f\u7d04\u3057\u304b\u5408\u3063\u3066\u3044\u306a\u3044\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002 MODULE m_sub USE ifwin CONTAINS INTEGER (LRESULT) FUNCTION MainWndProc( hWnd, mesg, wParam, lParam ) BIND(C, NAME = 'MainWndProc') IMPLICIT NONE INTEGER (HANDLE) , VALUE, INTENT(IN) :: hWnd INTEGER (UINT)\u2026","width":"100%","version":"1.0","type":"rich"}