{"id":13,"date":"2007-03-02T15:26:23","date_gmt":"2007-03-02T12:26:23","guid":{"rendered":"http:\/\/pblog.ru\/?p=13"},"modified":"2008-09-09T12:28:11","modified_gmt":"2008-09-09T09:28:11","slug":"%d0%bf%d0%b0%d0%bd%d0%b5%d0%bb%d1%8c-%d0%b7%d0%b0%d0%b4%d0%b0%d1%87-%d0%bf%d1%83%d1%81%d0%ba","status":"publish","type":"post","link":"http:\/\/pblog.ru\/?p=13","title":{"rendered":"\u041f\u0430\u043d\u0435\u043b\u044c \u0437\u0430\u0434\u0430\u0447. \u041f\u0443\u0441\u043a"},"content":{"rendered":"<p>\u041d\u0430\u0447\u043d\u0451\u043c \u0441 \u043e\u0431\u0449\u0435\u0433\u043e. \u041a\u0430\u043a \u0441\u043a\u0440\u044b\u0442\u044c \u0438 \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u044c \u041f\u0430\u043d\u0435\u043b\u044c \u0437\u0430\u0434\u0430\u0447:<\/p>\n<pre><code>procedure TForm1.Button1Click(Sender: TObject);<br \/>\nbegin<br \/>\nShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); \/\/ \u0421\u043a\u0440\u044b\u0442\u044c<br \/>\nend;<\/p>\n<p>procedure TForm1.Button2Click(Sender: TObject);<br \/>\nbegin<br \/>\nShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW); \/\/ \u041f\u043e\u043a\u0430\u0437\u0430\u0442\u044c<br \/>\nend;<\/code><\/pre>\n<p>\u0422\u0435\u043f\u0435\u0440\u044c \u0441\u0434\u0435\u043b\u0430\u0435\u043c \u0438\u043a\u043e\u043d\u043a\u0443 \u0440\u044f\u0434\u043e\u043c \u0441 \u0447\u0430\u0441\u0430\u043c\u0438:<br \/>\n<!--more--><br \/>\n<pre><code>  public<br \/>\n   procedure IconCallBackMessage( var Mess : TMessage ); message WM_USER+ 100;<br \/>\n  end;<\/p>\n<p>implementation<\/p>\n<p>uses ShellAPI;<\/p>\n<p>procedure TForm1.IconCallBackMessage( var Mess : TMessage );<br \/>\nvar<br \/>\n sEventLog : String;<br \/>\nbegin<br \/>\ncase Mess.lParam of<br \/>\n\/\/ \u0421\u0434\u0435\u043b\u0430\u0439\u0442\u0435 \u0437\u0434\u0435\u0441\u044c \u0432\u0441\u0435 \u0447\u0442\u043e \u0432\u044b \u0445\u043e\u0442\u0438\u0442\u0435. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0432\u044b\u0437\u043e\u0432 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u043d\u043e\u0433\u043e \u043c\u0435\u043d\u044e \u043f\u0440\u0438 \u043d\u0430\u0436\u0430\u0442\u0438\u0438 \u043f\u0440\u0430\u0432\u043e\u0439 \u043a\u043d\u043e\u043f\u043a\u0438 \u043c\u044b\u0448\u0438.<\/p>\n<p>WM_LBUTTONDBLCLK  :  sEventLog := '\u0414\u0432\u043e\u0439\u043d\u043e\u0439 \u0449\u0435\u043b\u0447\u043e\u043a \u043b\u0435\u0432\u043e\u0439 \u043a\u043d\u043e\u043f\u043a\u043e\u0439';<br \/>\nWM_LBUTTONDOWN    :  sEventLog := '\u041d\u0430\u0436\u0430\u0442\u0438\u0435 \u043b\u0435\u0432\u043e\u0439 \u043a\u043d\u043e\u043f\u043a\u0438 \u043c\u044b\u0448\u0438';<br \/>\nWM_LBUTTONUP      :  sEventLog := '\u041e\u0442\u0436\u0430\u0442\u0438\u0435 \u043b\u0435\u0432\u043e\u0439 \u043a\u043d\u043e\u043f\u043a\u0438 \u043c\u044b\u0448\u0438';<br \/>\nWM_MBUTTONDBLCLK  :  sEventLog := '\u0414\u0432\u043e\u0439\u043d\u043e\u0439 \u0449\u0435\u043b\u0447\u043e\u043a \u043c\u044b\u0448\u044c\u044e';<br \/>\nWM_MBUTTONDOWN    :  sEventLog := '\u041d\u0430\u0436\u0430\u0442\u0438\u0435 \u043a\u043d\u043e\u043f\u043a\u0438 \u043c\u044b\u0448\u0438';<br \/>\nWM_MBUTTONUP      :  sEventLog := '\u041e\u0442\u0436\u0430\u0442\u0438\u0435 \u043a\u043d\u043e\u043f\u043a\u0438 \u043c\u044b\u0448\u0438';<br \/>\nWM_MOUSEMOVE      :  sEventLog := '\u043f\u0435\u0440\u0435\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u043c\u044b\u0448\u0438';<br \/>\nWM_MOUSEWHEEL     :  sEventLog := '\u0412\u0440\u0430\u0449\u0435\u043d\u0438\u0435 \u043a\u043e\u043b\u0435\u0441\u0438\u043a\u0430 \u043c\u044b\u0448\u0438';<br \/>\nWM_RBUTTONDBLCLK  :  sEventLog := '\u0414\u0432\u043e\u0439\u043d\u043e\u0439 \u0449\u0435\u043b\u0447\u043e\u043a \u043f\u0440\u0430\u0432\u043e\u0439 \u043a\u043d\u043e\u043f\u043a\u043e\u0439';<br \/>\nWM_RBUTTONDOWN    :  sEventLog := '\u041d\u0430\u0436\u0430\u0442\u0438\u0435 \u043f\u0440\u0430\u0432\u043e\u0439 \u043a\u043d\u043e\u043f\u043a\u0438 \u043c\u044b\u0448\u0438';<br \/>\nWM_RBUTTONUP      :  sEventLog := '\u041e\u0442\u0436\u0430\u0442\u0438\u0435 \u043f\u0440\u0430\u0432\u043e\u0439 \u043a\u043d\u043e\u043f\u043a\u0438 \u043c\u044b\u0448\u0438';<br \/>\nend;<br \/>\nend;<\/p>\n<p>procedure TForm1.FormCreate(Sender: TObject);<br \/>\nvar nid : TNotifyIconData;<br \/>\nbegin<br \/>\nLoad_Form.Visible:=false;<\/p>\n<p>with nid do<br \/>\nbegin<br \/>\ncbSize := SizeOf( TNotifyIconData );<br \/>\nWnd := Form1.Handle;<br \/>\nuID := 1;<br \/>\nuFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;<br \/>\nuCallbackMessage := WM_USER + 100;<br \/>\nhIcon := Application.Icon.Handle; \/\/ \u0418\u043a\u043e\u043d\u043a\u0430 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f 16 \u043d\u0430 16 \u043f\u0438\u043a\u0441\u0435\u043b\u0435\u0439<br \/>\nszTip := '\u0418\u043c\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b';<br \/>\nend;<br \/>\nShell_NotifyIcon( NIM_ADD, @nid );<br \/>\nend;<\/code><\/pre><\/p>\n<p>\u0418 \u043f\u0440\u0438 \u0437\u0430\u043a\u0440\u044b\u0442\u0438\u0438 \u0443\u0434\u0430\u043b\u044f\u0435\u043c \u0438\u043a\u043e\u043d\u043a\u0443.<\/p>\n<p><pre><code>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br \/>\nvar nid : TNotifyIconData;<br \/>\nbegin<br \/>\n\/\/\u044d\u0442\u043e \u0432\u0430\u0436\u043d\u043e \u0434\u043b\u044f \u0442\u043e\u0433\u043e \u0447\u0442\u043e\u0431\u044b \u043d\u0435 \u0443\u0434\u0430\u043b\u0438\u0442\u044c \u0447\u0443\u0436\u0443\u044e \u0438\u043a\u043e\u043d\u043a\u0443 J<br \/>\nwith nid do<br \/>\nbegin<br \/>\ncbSize := SizeOf( TNotifyIconData );<br \/>\nWnd := Form1.Handle;<br \/>\nuID := 1;<br \/>\nuFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;<br \/>\nuCallbackMessage := WM_USER + 100;<br \/>\nhIcon := Application.Icon.Handle; \/\/ \u0418\u043a\u043e\u043d\u043a\u0430 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f 16 \u043d\u0430 16 \u043f\u0438\u043a\u0441\u0435\u043b\u0435\u0439<br \/>\nszTip := '\u0418\u043c\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b';<br \/>\nend;<br \/>\nShell_NotifyIcon( NIM_DELETE, @nid );<br \/>\nend;<br \/>\n<\/code><\/pre><br \/>\n\u0421 \u0438\u043a\u043e\u043d\u043a\u043e\u0439 \u043c\u044b \u0440\u0430\u0441\u043f\u0440\u0430\u0432\u0438\u043b\u0438\u0441\u044c \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u0443 \u041f\u0443\u0441\u043a\u0443. \u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u0440\u0430\u0431\u043e\u0442\u044b \u043d\u0430\u0434\u043e \u043e\u0442\u043a\u0440\u044b\u0442\u044c \u041f\u0443\u0441\u043a \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u044d\u0442\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438:<\/p>\n<pre><code>procedure TForm1.Button1Click(Sender: TObject);<br \/>\nbegin<br \/>\n  SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);<br \/>\nend;<\/code><\/pre>\n<p>\u0422\u0430\u043a \u0436\u0435 \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u043c\u0435\u043d\u044f\u0442\u044c \u0430\u043a\u0442\u0438\u0432\u043d\u043e\u0441\u0442\u044c \u041f\u0443\u0441\u043a\u2019\u0430:<\/p>\n<pre><code>procedure TForm1.Button1Click(Sender: TObject);<br \/>\nbegin<br \/>\n EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), false);<br \/>\n\/\/ \u0437\u0430\u0431\u043b\u043e\u043a\u0438\u0440\u043e\u0432\u0430\u0442\u044c<br \/>\nend;<\/p>\n<p>procedure TForm1.Button2Click(Sender: TObject);<br \/>\nbegin<br \/>\n EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), true);<br \/>\n\/\/ \u0440\u0430\u0437\u0431\u043b\u043e\u043a\u0438\u0440\u043e\u0432\u0430\u0442\u044c<br \/>\nend;<br \/>\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u041d\u0430\u0447\u043d\u0451\u043c \u0441 \u043e\u0431\u0449\u0435\u0433\u043e. \u041a\u0430\u043a \u0441\u043a\u0440\u044b\u0442\u044c \u0438 \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u044c \u041f\u0430\u043d\u0435\u043b\u044c \u0437\u0430\u0434\u0430\u0447: \u0422\u0435\u043f\u0435\u0440\u044c \u0441\u0434\u0435\u043b\u0430\u0435\u043c \u0438\u043a\u043e\u043d\u043a\u0443 \u0440\u044f\u0434\u043e\u043c \u0441 \u0447\u0430\u0441\u0430\u043c\u0438:<\/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":[347,348,318,346,310,345],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/13"}],"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=13"}],"version-history":[{"count":3,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/13\/revisions"}],"predecessor-version":[{"id":231,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/13\/revisions\/231"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=13"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=13"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=13"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}