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.