怎么用delphi作最小的程序

Question

怎么用delphi作最小的程序

Answer 1

program project;uses
  windows,Messages;{$R *.RES}const
  appname='abc';var
  aMessage:tmsg;
  hwindow,button1,button2:hwnd;function WindowProc(window:hwnd;amessage,wparam,lparam:longint):longint;stdcall;export;
begin
  windowproc:=0;
  case amessage of
    WM_DESTROY:
    begin
      destroywindow(button1);
      destroywindow(button2);
      PostQuitMessage(0);
      exit;
    end;
    wm_command:
    if lparam=button1 then
    begin
        MessageBox(hwindow,'fksd','kfdsl',MB_OK+MB_ICONINFORMATION);
    end;
  end;
  windowproc:=defwindowproc(window,aMessage,wParam,lParam);
end;function WinRegister:boolean;
var
  WindowClass:TWndClass;
begin
  WindowClass.style:=cs_hredraw or cs_vredraw ;
  windowclass.lpfnWndProc:=@windowProc;
  windowClass.cbClsExtra:=0;
  windowClass.cbWndExtra:=0;
  windowclass.hInstance:=hinstance;
  windowclass.hIcon:=LoadIcon(0,IDI_APPLICATION);
  windowclass.hCursor:=LoadCursor(0,IDC_ARROW);
  windowclass.hbrBackground:=COLOR_BTNSHADOW;
  windowclass.lpszMenuName:=nil;
  windowclass.lpszClassName:=appname;
  result:=Registerclass(windowClass)<>0;
end;function WinCreate:hwnd;
var
  hWindow:hwnd;
  pchartemp:pchar;
  param:tagCREATESTRUCT;
begin
  hwindow:=CreateWindowEx(WS_EX_RTLREADING or WS_EX_APPWINDOW,appname,'文件分解与合并演示程序',WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,0,0,hinstance,nil);
  if hwindow<>0 then
  begin
    param.cx:=20;
    param.cy:=20;
    param.dwExStyle:=WS_CHILD+BS_PUSHBUTTON;
    param.hInstance:=hinstance;
    param.hMenu:=0;
    param.hwndParent:=hwindow;
    param.lpszClass:='button';
    param.x:=20;
    param.y:=20;
    pchartemp:='Kingron TEMP';
    button1:=createwindow('button','合并文件',param.dwExStyle,param.y,param.y,60,30,hwindow,0,hinstance,@param);
    param.x:=40;
    param.y:=60;
    button2:=createwindow('button','分解文件',param.dwExStyle,param.y,param.y,60,30,hwindow,0,hinstance,@param);
    showwindow(hwindow,cmdshow);
    showwindow(button2,cmdshow);
    showwindow(button1,cmdshow);
    updatewindow(hwindow);
  end;
  result:=hwindow;
end;begin
  if not winregister then
  begin
    MessageBox(0,'窗口注册失败','错误',MB_OK+MB_ICONINFORMATION);
    exit;
  end;
  hwindow:=wincreate;
  while GetMessage(aMessage,0,0,0) do
  begin
    TranslateMessage(amessage);
    DispatchMessage(aMessage);
  end;
halt(amessage.wParam);  
end;