{"type":"rich","url":"https://fortran66.hatenablog.com/entry/20111115/1321365730","provider_name":"Hatena Blog","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20111115%2F1321365730\" title=\"DOS\u7a93\u7d4c\u7531\u3067\u306f\u306a\u304f window \u3060\u3051\u3067\u3002 - 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>","title":"DOS\u7a93\u7d4c\u7531\u3067\u306f\u306a\u304f window \u3060\u3051\u3067\u3002","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","author_url":"https://blog.hatena.ne.jp/fortran66/","categories":["Win32"],"image_url":"http://cdn-ak.f.st-hatena.com/images/fotolife/f/fortran66/20111115/20111115225957.gif","version":"1.0","author_name":"fortran66","blog_url":"https://fortran66.hatenablog.com/","provider_url":"https://hatena.blog","height":"190","description":"\u5de6\u30af\u30ea\u30c3\u30af\u3067\u7fcc\u6708\u3001\u53f3\u30af\u30ea\u30c3\u30af\u3067\u7d42\u4e86\u3002\uff11\u679a\u76ee\u306b\u767d\u7d19\u304c\u51fa\u307e\u3059\u3002 \u30bd\u30fc\u30b9\u30fb\u30d7\u30ed\u30b0\u30e9\u30e0 \u4f59\u308a\u8003\u3048\u306a\u3044\u3067\u6d41\u7528\u3057\u305f\u306e\u3067\u4e71\u308c\u3066\u3044\u308b\u3002 module m_sub use ifwina use kernel32 type :: t_wnd integer (HANDLE) :: hWnd integer (HANDLE) :: hDC end type type (t_wnd), save :: wnd contains integer (LRESULT) function MainWndProc( hWnd, mesg, wParam, lParam ) ! call back procedure !DEC$\u2026","published":"2011-11-15 23:02:10"}