HelloWin

HelloWin

被Delphi惯坏了，发现写一个原生的Form这么麻烦
vc版本

#include  < windows.h >

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ;

int  WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                    PSTR szCmdLine,  int  iCmdShow)
{
      static  TCHAR szAppName[]  =  TEXT ( " HelloWin " ) ;
     HWND         hwnd ;
     MSG          msg ;
     WNDCLASS     wndclass ;

     wndclass.style          =  CS_HREDRAW  |  CS_VREDRAW ;
     wndclass.lpfnWndProc    =  WndProc ;
     wndclass.cbClsExtra     =   0  ;
     wndclass.cbWndExtra     =   0  ;
     wndclass.hInstance      =  hInstance ;
     wndclass.hIcon          =  LoadIcon (NULL, IDI_APPLICATION) ;
     wndclass.hCursor        =  LoadCursor (NULL, IDC_ARROW) ;
     wndclass.hbrBackground  =  (HBRUSH) GetStockObject (WHITE_BRUSH) ;
     wndclass.lpszMenuName   =  NULL ;
     wndclass.lpszClassName  =  szAppName ;

      if  ( ! RegisterClass ( & wndclass))
     {
          MessageBox (NULL, TEXT ( " This program requires Windows NT! " ), 
                      szAppName, MB_ICONERROR) ;
           return   0  ;
     }
     
     hwnd  =  CreateWindow (szAppName,                   //  window class name
                          TEXT ( " The Hello Program " ),  //  window caption
                          WS_OVERLAPPEDWINDOW,         //  window style
                          CW_USEDEFAULT,               //  initial x position
                          CW_USEDEFAULT,               //  initial y position
                          CW_USEDEFAULT,               //  initial x size
                          CW_USEDEFAULT,               //  initial y size
                          NULL,                        //  parent window handle
                          NULL,                        //  window menu handle
                          hInstance,                   //  program instance handle
                          NULL) ;                      //  creation parameters
     
     ShowWindow (hwnd, iCmdShow) ;
     UpdateWindow (hwnd) ;
     
      while  (GetMessage ( & msg, NULL,  0 ,  0 ))
     {
          TranslateMessage ( & msg) ;
          DispatchMessage ( & msg) ;
     }
      return  msg.wParam ;
}

LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
     HDC         hdc ;
     PAINTSTRUCT ps ;
     RECT        rect ;
     
      switch  (message)
     {
      case  WM_CREATE:
          PlaySound (TEXT ( " hellowin.wav " ), NULL, SND_FILENAME  |  SND_ASYNC) ;
           return   0  ;
          
      case  WM_PAINT:
          hdc  =  BeginPaint (hwnd,  & ps) ;
          
          GetClientRect (hwnd,  & rect) ;
          
          DrawText (hdc, TEXT ( " Hello, Windows 98! By ZhangSK " ),  - 1 ,  & rect,
                    DT_SINGLELINE  |  DT_CENTER  |  DT_VCENTER) ;
          
          EndPaint (hwnd,  & ps) ;
           return   0  ;
          
      case  WM_DESTROY:
          PostQuitMessage ( 0 ) ;
           return   0  ;
     }
      return  DefWindowProc (hwnd, message, wParam, lParam) ;
}

Delphi版本

program HelloWin;

uses
  Windows,
  Messages,
  MMSystem,
  SysUtils;

Const
  AppName:String  =   ' HelloWin ' ;
  Null:Integer  =   0 ;

function WndProc(WindowHwnd:HWND;TheMessage:UINT;WPARAMS:wParam;LPARAMS:lParam):Integer;stdcall;
var
  ClientDC:HDC;
  ps:TPaintStruct;
  ClientRect:TRect;
  sUser, sPower: string;
begin
   case  TheMessage of
  WM_CREATE: begin
     PlaySound( ' hellowin.wav ' , null ,SND_FILENAME or SND_ASYNC);
     Result: = 0 ;
  end;
  WM_PAINT: begin
     ClientDc: = BeginPaint(WindowHwnd,ps);
     GetClientRect(WindowHwnd,ClientRect);
     DrawText(ClientDc,PChar( ' Hello,Window98! ' ), - 1 ,ClientRect,DT_SINGLELINE or
              DT_CENTER OR DT_VCENTER);
     sUser : =   ' ZhangSK '' Testing ' ;
     sPower : =   ' POWERD BY DELPHI ' ;
     TextOut(ClientDC,  5 ,  5 , PChar(sUser), Length(sUser));
     TextOut(ClientDC, ClientRect.Right - 200 , ClientRect.Bottom - 30 , PChar(sPower), Length(sPower));
     Endpaint(Windowhwnd,ps);
     Result: = 0 ;
  end;
  WM_DESTROY: begin
     PostQuitMessage( 0 );
     Result: = 0 ;
  end;
   else
    Result: = DefWindowProc(WindowHwnd,TheMessage,WPARAMS,LPARAMS);
  end;
end;


  
var
  WinHwnd:HWND;
  WinMsg:MSG;
  WinClass:WNDCLASS;
  ECode:DWORD;
  EString:PChar;
begin
  WinClass.style: = CS_HREDRAW OR CS_VREDRAW;
  WinClass.lpfnWndProc: = @WndProc;
  WinClass.cbClsExtra: = 0 ;
  WinClass.cbWndExtra: = 0 ;
  WinClass.hInstance: = hInstance;
  WinClass.hIcon: = LoadIcon(NULL,IDI_APPLICATION);
  WinClass.hCursor: = LoadCursor(Null,IDC_ARROW);
  WinClass.hbrBackground: = HBRUSH(GetStockObject(WHITE_BRUSH));
  WinClass.lpszMenuName: = nil;
  WinClass.lpszClassName: = PChar(AppName);

   if  (RegisterClass(WinClass) = 0 ) then
  begin
    MessageBox( null , ' This application need WINDOWS platform ' , ' message ' ,MB_ICONERROR);
    exit;
  end;

  WinHwnd: = CreateWindow(PChar(AppName), ' First SDK Application ' ,WS_OVERLAPPEDWINDOW,
                        CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,
                         0 , 0 ,hInstance,nil);
   if  Iswindow(WinHwnd)then
  begin
    ShowWindow(WinHwnd,SW_SHOWNORMAL);
    updateWindow(WinHwnd);
  end
   else  begin
    ECode: = GetLastError;
    EString: = PChar(Inttostr(LoWord(ECode)));
    Messagebox( null ,EString, ' Error ' ,MB_ICONERROR);
    exit;
  end;

   while (Getmessage(WinMsg, null , 0 , 0 )) do
  begin
    TranslateMessage(WinMsg);
    DispatchMessage(WinMsg);
  end;

  UnregisterClass(PChar(AppName),hInstance);
end.