/****************************************************************************
    PROGRAM: Mhello.c
    PURPOSE: "Pienin Windows-ohjelma".  Tulostaa näyttöön tekstin Hello World
    Editor:  Vesa Lappalainen  typistänyt malliohjelmista.
****************************************************************************/
#include <windows.h>            /* Tarvitaan kaikissa Windows C-ohjelmissa */
#include <string.h>
#include <stdlib.h>
#include <dir.h>

extern  char    **_Cdecl  environ;

static char cur[100];

LONG FAR PASCAL MainWndProc(HWND hWnd, unsigned message, WPARAM wParam, LPARAM lParam)
{
    int i;
    PAINTSTRUCT ps;

    switch (message)
    {
        case WM_PAINT:            /* Viesti: Piirrä ikkuna uudelleen       */
            if ( BeginPaint(hWnd,&ps) )  {
              TextOut(ps.hdc, 10,  0, cur, strlen(cur));
//              TextOut(ps.hdc, 10, 10, "Hello World!",12);
              TextOut(ps.hdc, 10, 30, getenv("WHAT"),strlen(getenv("WHAT")));
              for (i=0; environ[i]; i++)
                TextOut(ps.hdc, 10,50+20*i,environ[i],strlen(environ[i]));
            }
            EndPaint(hWnd,&ps);
            return (NULL);
        case WM_DESTROY:          /* Viesti: ikkuna hävitetään             */
            PostQuitMessage(0);
            return (NULL);
        default:                  /* Antaa Windowsin käsitellä muut        */
            break;
    }
    return (DefWindowProc(hWnd, message, wParam, lParam));
}

int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
    WNDCLASS  wc;   /* Ikkunaluokka                                        */
    HWND    hWnd;   /* Pääikkunan kahva                                    */
    MSG msg;        /* Viesti                                              */
    if (lpCmdLine); /* Hämäystä, jottei valitusta param. käytt.            */

    if (!hPrevInstance) {       /* Onko muita esiintymiä käynnisssä?       */
      wc.style         = NULL;           wc.lpfnWndProc    = MainWndProc;   
      wc.cbClsExtra    = 0;              wc.cbWndExtra     = 0;              
      wc.hInstance     = hInstance;       
      wc.hIcon         = LoadIcon(NULL, IDI_APPLICATION); 
      wc.hCursor       = LoadCursor(NULL, IDC_ARROW);   
      wc.hbrBackground = GetStockObject(WHITE_BRUSH); 
      wc.lpszMenuName  = NULL;           wc.lpszClassName  = "WHelloWClass";
      if (!RegisterClass(&wc)) return (FALSE);  
    }

    hWnd = CreateWindow("WHelloWClass","Windows Hello",WS_OVERLAPPEDWINDOW,
                        CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,       
                        NULL,NULL,hInstance,NULL);
    if (!hWnd) return (FALSE);
    getcwd(cur,100);
    ShowWindow(hWnd, nCmdShow);     /* Näytetään ikkuna                    */
    UpdateWindow(hWnd);             /* Lähetetään WM_PAINT viesti          */

    {
      static char str[1000];
      wsprintf(str,"WHAT: %s\nPATH: %s\nKutsu: %s\nNyky: %s",
               (LPSTR)getenv("WHAT"),(LPSTR)getenv("PATH"),lpCmdLine,(LPSTR)cur);
      MessageBox(GetFocus(),str,"MHELLO",MB_OK|MB_ICONINFORMATION);

      putenv("Kana=kuusi");
      putenv("PATH=viisi");
    }

    while (GetMessage(&msg,NULL,NULL,NULL)) {
        TranslateMessage(&msg);     /* Tulkitaan virtuaaliset näp. koodit  */
        DispatchMessage(&msg);      /* Lähetetään viesti ikkunalle         */
    }
    return (msg.wParam);      /* Palautetaan PostQuitMessage-funktion arvo */
}