{"id":12,"date":"2007-03-02T15:25:29","date_gmt":"2007-03-02T12:25:29","guid":{"rendered":"http:\/\/pblog.ru\/?p=12"},"modified":"2008-09-10T08:15:58","modified_gmt":"2008-09-10T05:15:58","slug":"%d1%80%d0%b0%d0%b1%d0%be%d1%87%d0%b8%d0%b9-%d1%81%d1%82%d0%be%d0%bb","status":"publish","type":"post","link":"http:\/\/pblog.ru\/?p=12","title":{"rendered":"\u0420\u0430\u0431\u043e\u0447\u0438\u0439 \u0441\u0442\u043e\u043b"},"content":{"rendered":"

\u0418\u0442\u0430\u043a, \u0420\u0430\u0431\u043e\u0447\u0438\u0439 \u0441\u0442\u043e\u043b- \u044d\u0442\u043e \u043f\u0435\u0440\u0432\u043e\u0435 \u0447\u0442\u043e \u043c\u044b \u0432\u0438\u0434\u0438\u043c \u043f\u043e\u0441\u043b\u0435 \u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f. \u0421\u043d\u0430\u0447\u0430\u043b\u0430 \u044f \u0434\u0430\u043c \u043a\u043e\u0434, \u043a\u0430\u043a \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u0444\u043e\u043d\u043e\u0432\u044b\u0439 \u0440\u0438\u0441\u0443\u043d\u043e\u043a \u043d\u0430 \u0421\u0442\u043e\u043b\u0435. \u0412\u043e\u0442 \u0447\u0442\u043e \u043d\u0430\u0434\u043e \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c:<\/p>\n

implementation<\/p>\n
Uses ShlObj, ComObj;<\/p>\n
procedure ChangeWallpaper;
\nconst
\nCLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
\nvar
\nActiveDesktop: IActiveDesktop;
\nbegin
\nActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
\nas IActiveDesktop;
\nActiveDesktop.SetWallpaper('\u041f\u0443\u0442\u044c \u043a \u0444\u0430\u0439\u043b\u0443', 0);
\nActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
\nend;<\/code><\/pre>
\n
\n\u0417\u0430\u0442\u0435\u043c \u0432 \u043d\u0430\u0436\u0430\u0442\u0438\u0438 \u043d\u0430 \u043a\u043d\u043e\u043f\u043a\u0443 \u043f\u0438\u0448\u0435\u043c:<\/p>\n
procedure TForm1.ButtonClick(Sender: TObject);
\nbegin
\nChangeWallpaper;
\nend;<\/code><\/pre>\n
\u0412\u0441\u0451, \u0441 \u043f\u0435\u0440\u0432\u044b\u043c \u043f\u0443\u043d\u043a\u0442\u043e\u043c \u043f\u043e\u043a\u043e\u043d\u0447\u0435\u043d\u043e. \u0412\u0442\u043e\u0440\u043e\u0435, \u043a\u0430\u043a \u0441\u043a\u0440\u044b\u0442\u044c \u0438\u043a\u043e\u043d\u043a\u0438 \u043d\u0430 \u0440\u0430\u0431\u043e\u0447\u0435\u043c \u0441\u0442\u043e\u043b\u0435:<\/p>\n
procedure TForm1.Button1Click(Sender: TObject);
\nbegin
\nShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);\/\/\u0421\u043a\u0440\u044b\u0442\u044c
\nend;<\/p>\n
procedure TForm1.Button2Click(Sender: TObject);
\nbegin
\nShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW); \/\/\u041f\u043e\u043a\u0430\u0437\u0430\u0442\u044c
\nend;<\/code><\/pre>\n
\u0412\u0441\u0451 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430\u0440\u043d\u043e. \u0422\u0440\u0435\u0442\u044c\u0435, \u043a\u0430\u043a \u0437\u0430\u0437\u0443\u043c\u0438\u0442\u044c \u0447\u0430\u0441\u0442\u044c \u0421\u0442\u043e\u043b\u0430. \u041d\u0430\u043c \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u044c\u0441\u044f Timer, Image:<\/p>\n
private
\nprocedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
\npublic<\/p>\n
\/\/\u2026<\/p>\n
procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
\nbegin
\ninherited;
\nMsg.MinMaxInfo^.ptMinTrackSize := Point(158, 177); \/\/ \u041c\u0438\u043d\u0438\u043c\u0430\u043b\u044c\u043d\u044b\u0439 \u0440\u0430\u0437\u043c\u0435\u0440 \u0444\u043e\u0440\u043c\u044b
\nMsg.MinMaxInfo^.ptMaxTrackSize := Point(350, 350); \/\/ \u041c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u044b\u0439 \u0440\u0430\u0437\u043c\u0435\u0440 \u0444\u043e\u0440\u043c\u044b
\nend;<\/p>\n
\u0422\u0435\u043f\u0435\u0440\u044c \u0432 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0435 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u0440\u0430\u0437\u043c\u0435\u0440\u043e\u0432 \u0444\u043e\u0440\u043c\u044b \u043f\u0438\u0448\u0435\u043c:<\/p>\n
procedure TForm1.FormResize(Sender: TObject);
\nbegin
\nImage1.Picture:=nil;
\nend;<\/code><\/pre>\n
\u0418 \u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u043f\u0440\u0438 \u0443\u043d\u0438\u0447\u0442\u043e\u0436\u0435\u043d\u0438\u0438:<\/p>\n
procedure TForm1.FormDestroy(Sender: TObject);
\nbegin
\nTimer1.Interval:=0;
\nend;<\/code><\/pre>\n
\u0418 \u0444\u0438\u043d\u0430\u043b \u043f\u0438\u0448\u0435\u043c \u0432 \u0442\u0430\u0439\u043c\u0435\u0440\u0435:<\/p>\n
procedure TForm1.Timer1Timer(Sender: TObject);
\nvar
\nSrect,Drect,PosForme:TRect;
\nFWidth,FHeight,X,Y:Integer;
\nTmpX,TmpY:Real;
\nCanvasX:TCanvas;
\nKursor:TPoint;
\nbegin
\n\/\/ \u0423\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u043c \u044d\u043a\u0440\u0430\u043d, \u0435\u0441\u043b\u0438 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u043d\u0435 \u0441\u0432\u0451\u0440\u043d\u0443\u0442\u043e
\nIf not IsIconic(Application.Handle) then begin
\nGetCursorPos(Kursor);\/\/ \u041a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u043a\u0443\u0440\u0441\u043e\u0440\u0430
\nPosForme:=Rect(Form1.Left,Form1.Top,Form1.Left+Form1.Width,Form1.Top+Form1.Height);
\nIf not PtInRect(PosForme,Kursor) then begin<\/p>\n
If Panel1.Visible=True then Panel1.Visible:=False;
\nIf Image1.Visible=False then Image1.Visible:=True;<\/p>\n
\/\/ \u0414\u0430\u043b\u0435\u0435 \u043a\u043e\u0434 \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0434\u043b\u044f \u0443\u0432\u0435\u043b\u0438\u0447\u0435\u043d\u0438\u044f \u0432\u044b\u0431\u0440\u0430\u043d\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u044d\u043a\u0440\u0430\u043d\u0430.
\nFWidth:=Image1.Width;
\nFHeight:=Image1.Height;
\nDrect:=Rect(0,0,FWidth,FHeight);
\n\/\/zoom
\nTmpX:=FWidth \/ (TrackBar1.Position * 4);
\nTmpY:=FHeight \/ (TrackBar1.Position * 4);<\/p>\n
Srect:=Rect(Kursor.x,Kursor.y,Kursor.x,Kursor.y);
\nInflateRect(Srect,Round(TmpX),Round(TmpY));
\n\/\/ move Srect if outside visible area of the screen
\nIf Srect.LeftScreen.Width then OffsetRect(Srect,-(Srect.Right-Screen.Width),0);
\nIf Srect.Bottom>Screen.Height then OffsetRect(Srect,0,-(Srect.Bottom-Screen.Height));<\/p>\n
CanvasX:=TCanvas.Create; \/\/\u041f\u043e\u043b\u0443\u0447\u0430\u0435\u043c handle \u043e\u043a\u043d\u0430 \u0440\u0430\u0431\u043e\u0447\u0435\u0433\u043e \u0441\u0442\u043e\u043b\u0430.
\ntry
\nCanvasX.Handle:=GetDC(GetDesktopWindow);
\nImage1.Canvas.CopyRect(Drect,CanvasX,Srect); \/\/\u041f\u0435\u0440\u0435\u0434\u0430\u0451\u043c \u0447\u0430\u0441\u0442\u044c \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u0432 TImage.
\nfinally
\nCanvasX.Free;
\nend;
\nIf CheckBox1.Checked=True then begin
\nwith Image1.Canvas do begin
\nX:=TrackBar1.Position * 2 * (Kursor.X-Srect.Left);
\nY:=TrackBar1.Position * 2 * (Kursor.Y-Srect.Top);
\nMoveTo(X - (FWidth div 4),Y);
\nLineTo(X + (FWidth div 4),Y);
\nMoveTo(X,Y - (FHeight div 4));
\nLineTo(X,Y + (FHeight div 4));
\nend;
\nend;
\nApplication.ProcessMessages; \/\/ \u042d\u0442\u043e \u0447\u0442\u043e\u0431\u044b Windows \u043d\u0435 \u043f\u043e\u0432\u0438\u0441.
\nend
\nelse begin
\nIf Panel1.Visible=False then Panel1.Visible:=True;
\nIf Image1.Visible=True then Image1.Visible:=False;
\nend;
\nend;
\nend;<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
\u0418\u0442\u0430\u043a, \u0420\u0430\u0431\u043e\u0447\u0438\u0439 \u0441\u0442\u043e\u043b- \u044d\u0442\u043e \u043f\u0435\u0440\u0432\u043e\u0435 \u0447\u0442\u043e \u043c\u044b \u0432\u0438\u0434\u0438\u043c \u043f\u043e\u0441\u043b\u0435 \u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f. \u0421\u043d\u0430\u0447\u0430\u043b\u0430 \u044f \u0434\u0430\u043c \u043a\u043e\u0434, \u043a\u0430\u043a \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u0444\u043e\u043d\u043e\u0432\u044b\u0439 \u0440\u0438\u0441\u0443\u043d\u043e\u043a \u043d\u0430 \u0421\u0442\u043e\u043b\u0435. \u0412\u043e\u0442 \u0447\u0442\u043e \u043d\u0430\u0434\u043e \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c:<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,15],"tags":[306,294,356,354,316,350,315,349,352,311,353,351,355,312],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/12"}],"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\/5"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=12"}],"version-history":[{"count":3,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/12\/revisions"}],"predecessor-version":[{"id":232,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/12\/revisions\/232"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=12"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=12"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=12"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}