{"id":94,"date":"2007-10-05T11:26:36","date_gmt":"2007-10-05T08:26:36","guid":{"rendered":"http:\/\/pblog.ru\/?p=94"},"modified":"2008-08-11T00:55:10","modified_gmt":"2008-08-10T21:55:10","slug":"%d0%bc%d0%b8%d0%ba%d1%80%d0%be%d0%be%d0%ba%d0%be%d1%88%d0%ba%d0%be-%d0%bd%d0%b0-%d0%b4%d0%b5%d0%bb%d1%84%d0%b8-1280-%d0%b1%d0%b0%d0%b9%d1%82","status":"publish","type":"post","link":"http:\/\/pblog.ru\/?p=94","title":{"rendered":"\u041c\u0438\u043a\u0440\u043e\u043e\u043a\u043e\u0448\u043a\u043e \u043d\u0430 \u0434\u0435\u043b\u0444\u0438 (1280 \u0431\u0430\u0439\u0442)"},"content":{"rendered":"

\u0412 \u043c\u043e\u0435\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 http:\/\/pblog.ru\/?p=90<\/a> \u043f\u0440\u0438\u0432\u043e\u0434\u0438\u043b\u0430\u0441\u044c \u043c\u0435\u0442\u043e\u0434\u0438\u043a\u0430 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043c\u0438\u043d\u0438\u0430\u0442\u044e\u0440\u043d\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439 \u043d\u0430 Delphi… \u041c\u043d\u043e\u0433\u0438\u043c \u043d\u0430\u0432\u0435\u0440\u043d\u043e \u043a\u0430\u0436\u0435\u0442\u0441\u044f \u0447\u0442\u043e \u0442\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u043d\u0435 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u0442\u043e\u043b\u043a\u043e\u0432\u043e\u0435 \u043e\u043a\u043e\u043d\u043d\u043e\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435… \u041f\u043e\u043f\u0440\u043e\u0431\u0443\u044e \u043f\u0440\u0438\u0432\u0435\u0441\u0442\u0438 \u043f\u0440\u0438\u043c\u0435\u0440\u044b:
\n
\nUNIT WinMin;<\/p>\n

INTERFACE<\/p>\n

Procedure Run;<\/p>\n

IMPLEMENTATION<\/p>\n

const<\/p>\n

user32 = 'user32.dll';
\n WM_DESTROY = $0002;
\n CS_VREDRAW = 1;
\n CS_HREDRAW = 2;
\n ID = PChar(32512);
\n COLOR_BTNFACE = 15;
\n WS_OVERLAPPED = 0;
\n WS_CAPTION = $C00000;
\n WS_SYSMENU = $80000;
\n WS_THICKFRAME = $40000;
\n WS_MINIMIZEBOX = $20000;
\n WS_MAXIMIZEBOX = $10000;
\n Ed_1 = 311;
\n WS_EX_STATICEDGE = $20000;
\n WS_VISIBLE = $10000000;
\n WS_CHILD = $40000000;<\/p>\n

WS_OVERLAPPEDWINDOW =(
\n WS_OVERLAPPED
\n or WS_CAPTION
\n or WS_SYSMENU
\n or WS_THICKFRAME
\n or WS_MINIMIZEBOX
\n or WS_MAXIMIZEBOX
\n );<\/p>\n

type<\/p>\n

TWndClassEx = packed record
\n cbSize : Integer;
\n style : Integer;
\n lpfnWndProc : Pointer;
\n cbClsExtra : Integer;
\n cbWndExtra : Integer;
\n hInstance : integer;
\n hIcon : Integer;
\n hCursor : Integer;
\n hbrBackground : Integer;
\n lpszMenuName : PChar;
\n lpszClassName : PChar;
\n hIconSm : Integer;
\n end;<\/p>\n

TPoint = packed record
\n X: Longint;
\n Y: Longint;
\n end;<\/p>\n

TMSG = packed record
\n hwnd : Integer;
\n message : integer;
\n wParam : Longint;
\n lParam : Longint;
\n time : integer;
\n pt : TPoint;
\n end;<\/p>\n

HWND = integer;
\n UINT = integer;
\n HMENU = integer;
\n DWORD = integer;
\n BOOL = boolean;
\n LRESULT = Longint;
\n ATOM = Word;
\n HINST = integer;<\/p>\n

procedure PostQuitMessage(nExitCode: Integer); stdcall; external user32 name '_PostQuitMessage@4';
\nfunction DefWindowProc(hWnd: HWND; Msg: UINT; wParam: Longint; lParam: Longint): LRESULT; stdcall; external user32 name '_DefWindowProcA@16';
\nfunction RegisterClassEx(const WndClass: TWndClassEx): ATOM; stdcall; external user32 name '_RegisterClassExA@4';
\nfunction ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; stdcall; external user32 name '_ShowWindow@8';
\nfunction GetMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax: UINT): BOOL; stdcall; external user32 name '_GetMessageA@16';
\nfunction TranslateMessage(const lpMsg: TMsg): BOOL; stdcall; external user32 name '_TranslateMessage@4';
\nfunction DispatchMessage(const lpMsg: TMsg): Longint; stdcall; external user32 name '_DispatchMessageA@4';
\nfunction LoadIcon(hInstance: HINST; lpIconName: PChar): integer; stdcall; external user32 name '_LoadIconA@8';
\nfunction LoadCursor(hInstance: HINST; lpCursorName: PAnsiChar): integer; stdcall; external user32 name '_LoadCursorA@8';
\nfunction CreateWindowEx(dwExStyle: DWORD; lpClassName: PChar; lpWindowName: PChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer; hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall; external user32 name '_CreateWindowExA@48';<\/p>\n

var
\n wc : TWndClassEx;
\n Wnd : Integer;
\n Mesg : TMsg;<\/p>\n

function WindowProc(wnd:Integer; Msg : Integer; Wparam:Longint; Lparam:Longint):LongInt; stdcall;
\nBegin
\n if msg=wm_destroy then
\n Begin
\n postquitmessage(0);
\n Result:=0;
\n exit;
\n End
\n else Result:=DefWindowProc(wnd,msg,wparam,lparam);
\nEnd;<\/p>\n

Procedure RegCls;
\nbegin
\n wc.cbSize:=sizeof(wc);
\n wc.style:=cs_hredraw or cs_vredraw;
\n wc.lpfnWndProc:=@WindowProc;
\n wc.cbClsExtra:=0;
\n wc.cbWndExtra:=0;
\n wc.hInstance:=1;
\n wc.hIcon:=LoadIcon(0,ID);
\n wc.hCursor:=LoadCursor(0,ID);
\n wc.hbrBackground:=COLOR_BTNFACE+1;
\n wc.lpszMenuName:=nil;
\n wc.lpszClassName:='TWnd';
\n RegisterClassEx(wc);
\nend;<\/p>\n

Procedure Run;
\nbegin
\n RegCls;
\n Wnd:=CreateWindowEx ( 0, 'TWnd', 'WinMin', ws_overlappedwindow, 100, 150, 400, 250, 0, 0, 1, nil);
\n ShowWindow(Wnd,1);
\n While GetMessage(Mesg,0,0,0) do
\n begin
\n TranslateMessage(Mesg);
\n DispatchMessage(Mesg);
\n end;
\nend;
\nend.<\/code><\/p>\n

\u042d\u0442\u043e\u0442 \u043a\u043e\u0434 \u0441\u043e\u0437\u0434\u0430\u0451\u0442 \u043e\u043a\u043d\u043e \u043f\u043e\u0434\u043e\u0431\u043d\u043e\u0435 \u0442\u043e\u043c\u0443 \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0441\u043e\u0437\u0434\u0430\u0451\u0442 \u0434\u0435\u043b\u0444\u0438 \u043f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u043d\u043e\u0432\u043e\u0433\u043e \u043e\u043a\u043e\u043d\u043d\u043e\u0433\u043e \u043f\u0440\u043e\u0435\u043a\u0442\u0430, \u043d\u043e \u0440\u0430\u0437\u043c\u0435\u0440\u043e\u043c 1280 \u0431\u0430\u0439\u0442…<\/p>\n

\u0418 \u0442\u0435\u043f\u0435\u0440\u044c \u043f\u043e\u043f\u0440\u043e\u0431\u0443\u0435\u043c \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u043f\u043e\u0434\u043e\u0431\u0438\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f…. \u0440\u0430\u0437\u043c\u0435\u0440 \u044d\u0442\u043e\u0433\u043e \u043f\u0440\u043e\u0435\u043a\u0442\u0430 1912 \u0431\u0430\u0439\u0442 (\u043a\u0430\u043a \u043c\u043d\u0435 \u043a\u0430\u0436\u0435\u0442\u0441\u044f \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u043c\u043d\u043e\u0433\u043e)…. \u0428\u0430\u0431\u043b\u043e\u043d\u0430 \u043a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440\u0430, \u043d\u0438 \u043a\u0430\u043a\u0438\u0445 \u0441\u043e\u0431\u044b\u0442\u0438\u0439 \u043d\u0435 \u043e\u0431\u0440\u0430\u0431\u0430\u0442\u0443\u0435\u0442\u0441\u044f \u0438 \u043a\u043d\u043e\u043f\u043a\u0438 \u0432 \u043e\u0431\u0449\u0435\u043c-\u0442\u043e \u043f\u043e\u043a\u0430 \u043d\u0435 \u0440\u0430\u0431\u043e\u0447\u0438\u0435, \u043d\u043e \u043c\u044b \u0438\u043c\u0435\u0435\u043c 20 \u043a\u043d\u043e\u043f\u043e\u043a \u0438 \u044d\u0434\u0438\u0442, \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u044b\u0435 \u0432 \u0446\u0438\u043a\u043b\u0435… \u043e\u0441\u0442\u0430\u043b\u043e\u0441\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0438:
\n\u0421\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0434\u043b\u044f \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438 \u043d\u0435 \u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442 \u0412\u0410\u0422-\u043d\u0438\u043a:
\n@DCC32 -JP \u0418\u043c\u044f_\u043f\u0440\u043e\u0435\u043a\u0442\u0430.PAS
\n@LINK \/ALIGN:4 \/FORCE:UNRESOLVED \/SUBSYSTEM:WINDOWS \/MERGE:.data=.text \/MERGE:.rdata=.text \/ENTRY:Run$qqrv \/STUB:stub.bin user32.lib \u0418\u043c\u044f_\u043f\u0440\u043e\u0435\u043a\u0442\u0430.obj<\/code>
\n\u0418\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u044b: http:\/\/virusoff.pisem.su\/microcompil.rar
\nUNIT Calc;<\/p>\n

INTERFACE<\/p>\n

Procedure Run;<\/p>\n

IMPLEMENTATION<\/p>\n

const<\/p>\n

user32 = 'user32.dll';
\n WM_DESTROY = $0002;
\n CS_VREDRAW = 1;
\n CS_HREDRAW = 2;
\n ID = PChar(32512);
\n COLOR_BTNFACE = 15;
\n WS_OVERLAPPED = 0;
\n WS_CAPTION = $C00000;
\n WS_SYSMENU = $80000;
\n WS_THICKFRAME = $40000;
\n WS_MINIMIZEBOX = $20000;
\n WS_MAXIMIZEBOX = $10000;
\n Ed_1 = 311;
\n WS_EX_STATICEDGE = $20000;
\n WS_VISIBLE = $10000000;
\n WS_CHILD = $40000000;
\n BS_DEFPUSHBUTTON = 1;<\/p>\n

type<\/p>\n

TWndClassEx = packed record
\n cbSize : Integer;
\n style : Integer;
\n lpfnWndProc : Pointer;
\n cbClsExtra : Integer;
\n cbWndExtra : Integer;
\n hInstance : integer;
\n hIcon : Integer;
\n hCursor : Integer;
\n hbrBackground : Integer;
\n lpszMenuName : PChar;
\n lpszClassName : PChar;
\n hIconSm : Integer;
\n end;<\/p>\n

TPoint = packed record
\n X: Longint;
\n Y: Longint;
\n end;<\/p>\n

TMSG = packed record
\n hwnd : Integer;
\n message : integer;
\n wParam : Longint;
\n lParam : Longint;
\n time : integer;
\n pt : TPoint;
\n end;<\/p>\n

HWND = integer;
\n UINT = integer;
\n HMENU = integer;
\n DWORD = integer;
\n BOOL = boolean;
\n LRESULT = Longint;
\n ATOM = Word;
\n HINST = integer;<\/p>\n

procedure PostQuitMessage(nExitCode: Integer); stdcall; external user32 name '_PostQuitMessage@4';
\nfunction DefWindowProc(hWnd: HWND; Msg: UINT; wParam: Longint; lParam: Longint): LRESULT; stdcall; external user32 name '_DefWindowProcA@16';
\nfunction RegisterClassEx(const WndClass: TWndClassEx): ATOM; stdcall; external user32 name '_RegisterClassExA@4';
\nfunction ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; stdcall; external user32 name '_ShowWindow@8';
\nfunction GetMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax: UINT): BOOL; stdcall; external user32 name '_GetMessageA@16';
\nfunction TranslateMessage(const lpMsg: TMsg): BOOL; stdcall; external user32 name '_TranslateMessage@4';
\nfunction DispatchMessage(const lpMsg: TMsg): Longint; stdcall; external user32 name '_DispatchMessageA@4';
\nfunction LoadIcon(hInstance: HINST; lpIconName: PChar): integer; stdcall; external user32 name '_LoadIconA@8';
\nfunction LoadCursor(hInstance: HINST; lpCursorName: PAnsiChar): integer; stdcall; external user32 name '_LoadCursorA@8';
\nfunction CreateWindowEx(dwExStyle: DWORD; lpClassName: PChar; lpWindowName: PChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer; hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall; external user32 name '_CreateWindowExA@48';<\/p>\n

var
\n wc : TWndClassEx;
\n Wnd : Integer;
\n i,ii : Integer;
\n Mesg : TMsg;
\n Edit1: HWND;
\n Buttons: array[1..20] of HWND;<\/p>\n

function WindowProc(wnd:Integer; Msg : Integer; Wparam:Longint; Lparam:Longint):LongInt; stdcall;
\nBegin
\n if msg=wm_destroy then
\n Begin
\n postquitmessage(0);
\n Result:=0;
\n exit;
\n End
\n else Result:=DefWindowProc(wnd,msg,wparam,lparam);
\nEnd;<\/p>\n

Procedure RegClass;
\nbegin
\n wc.cbSize:=sizeof(wc);
\n wc.style:=cs_hredraw or cs_vredraw;
\n wc.lpfnWndProc:=@WindowProc;
\n wc.cbClsExtra:=0;
\n wc.cbWndExtra:=0;
\n wc.hInstance:=1;
\n wc.hIcon:=LoadIcon(0,ID);
\n wc.hCursor:=LoadCursor(0,ID);
\n wc.hbrBackground:=COLOR_BTNFACE+1;
\n wc.lpszMenuName:=nil;
\n wc.lpszClassName:='TCalc';
\n RegisterClassEx(wc);
\nend;<\/p>\n

const
\n sz : array [1..40] of integer = (11,51,91,11,51, 91,11,51,91,170, 131,131,131,131,170, 170,170,11,91,51, 97,97,97,65,65, 65,33,33,33,131, 131,98,66,33,33, 66,98,131,131,131);
\n cp : array [1..20] of PChar = ('1','2','3','4','5','6','7','8','9','=','+','-','*','\/','Bsp','sqrt','1\/x','+\/-',',','0');<\/p>\n

Procedure Btn(ii, BTN, ai, bi, ci, di:integer; capt:PChar);
\nbegin
\n Buttons[ii] := CreateWindowEx( WS_EX_STATICEDGE, 'Button', capt, WS_VISIBLE or WS_CHILD, ai, bi, ci, di, Wnd, BTN, i, nil );
\nend;<\/p>\n

Procedure Run;
\nbegin
\n RegClass;
\n Wnd:=CreateWindowEx ( 0, 'TCalc', '\u041a\u0430\u043b\u044c\u043a\u0443\u043b\u044f\u0442\u043e\u0440', WS_SYSMENU or WS_MINIMIZEBOX, 100, 150, 223, 195, 0, 0, 1, nil);
\n ShowWindow(Wnd,1);
\n for ii:=1 to 20 do
\n Btn(ii,100+ii,sz[ii],sz[ii+20],36,29,cp[ii]);
\n Edit1 := CreateWindowEx( WS_EX_STATICEDGE, 'Edit', '0',
\n WS_VISIBLE or WS_CHILD,
\n 11, 3, 195, 20, Wnd, Ed_1, i, nil );
\n While GetMessage(Mesg,0,0,0) do
\n begin
\n TranslateMessage(Mesg);
\n DispatchMessage(Mesg);
\n end;
\nend;
\nend.<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

\u0412 \u043c\u043e\u0435\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 http:\/\/pblog.ru\/?p=90 \u043f\u0440\u0438\u0432\u043e\u0434\u0438\u043b\u0430\u0441\u044c \u043c\u0435\u0442\u043e\u0434\u0438\u043a\u0430 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043c\u0438\u043d\u0438\u0430\u0442\u044e\u0440\u043d\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439 \u043d\u0430 Delphi… \u041c\u043d\u043e\u0433\u0438\u043c \u043d\u0430\u0432\u0435\u0440\u043d\u043e \u043a\u0430\u0436\u0435\u0442\u0441\u044f \u0447\u0442\u043e \u0442\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u043d\u0435 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u0442\u043e\u043b\u043a\u043e\u0432\u043e\u0435 \u043e\u043a\u043e\u043d\u043d\u043e\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435… \u041f\u043e\u043f\u0440\u043e\u0431\u0443\u044e \u043f\u0440\u0438\u0432\u0435\u0441\u0442\u0438 \u043f\u0440\u0438\u043c\u0435\u0440\u044b:<\/p>\n","protected":false},"author":19,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,7],"tags":[18,79,81,82,80],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/94"}],"collection":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/users\/19"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=94"}],"version-history":[{"count":1,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/94\/revisions"}],"predecessor-version":[{"id":110,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/94\/revisions\/110"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=94"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=94"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=94"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}