{"id":21,"date":"2007-03-02T15:34:04","date_gmt":"2007-03-02T12:34:04","guid":{"rendered":"http:\/\/pblog.ru\/?p=21"},"modified":"2008-09-09T09:42:02","modified_gmt":"2008-09-09T06:42:02","slug":"%d1%83%d0%bf%d1%80%d0%b0%d0%b2%d0%bb%d0%b5%d0%bd%d0%b8%d0%b5-%d0%ba%d0%bb%d0%b0%d0%b2%d0%b8%d0%b0%d1%82%d1%83%d1%80%d0%be%d0%b9","status":"publish","type":"post","link":"http:\/\/pblog.ru\/?p=21","title":{"rendered":"\u0423\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u043e\u0439"},"content":{"rendered":"

\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043c\u0430\u043b\u0435\u043d\u044c\u043a\u0438\u0439 \u043a\u043e\u0434 \u0434\u043b\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u043d\u0430\u0436\u0430\u0442\u0438\u044f \u043a\u043b\u0430\u0432\u0438\u0448\u0438 Print Screen:
\n


\n  private
\n    procedure AppIdle(Sender: TObject; var Done: Boolean);<\/p>\n
\/\/\u2026<\/p>\n
procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
\nbegin
\n  if GetAsyncKeyState(VK_SNAPSHOT)  0 then
\n    Form1.Caption := 'PrintScreen!';
\n  Done := True;
\nend;<\/p>\n
procedure TForm1.FormCreate(Sender: TObject);
\nbegin
\nApplication.OnIdle := AppIdle;
\nend;<\/code><\/pre><\/p>\n
\u0410 \u0442\u0435\u043f\u0435\u0440\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u044b\u0439 \u0430\u043d\u0430\u043b\u043e\u0433 Print Screen\u2019\u0430:
\n
\n
procedure TForm1.Button1Click(Sender: TObject);
\nvar
\n  bmp: TBitmap;
\nbegin
\n  bmp := TBitmap.Create;
\n  try
\n    bmp.Width := Screen.Width;
\n    bmp.Height := Screen.Height;
\n    BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
\n    GetDC(GetDesktopWindow), 0, 0, SRCCopy);
\n    Image1.Picture.Bitmap:=bmp;
\n  finally
\n    bmp.Free;
\n  end;
\nend;<\/code><\/pre><\/p>\n
\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u0441\u0432\u0435\u0447\u0435\u043d\u0438\u044f \u0434\u0438\u043e\u0434\u043e\u0432 \u043d\u0430 \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u0435: <\/p>\n
procedure TForm1.Button1Click(Sender: TObject);
\nbegin
\n\/\/ x \u2013 integer. X = 145 = Scroll Lock; X = 144 = Num Lock; X = 20 = Caps Lock
\n  if GetKeyState(X) and 1 = 0 then
\n    Form1.Caption := '\u041d\u0435 \u0433\u043e\u0440\u0438\u0442'
\n  else
\n    Form1.Caption := '\u0413\u043e\u0440\u0438\u0442';
\nend;<\/code><\/pre>\n
\u042d\u043c\u0443\u043b\u044f\u0446\u0438\u044f \u043d\u0430\u0436\u0430\u0442\u0438\u044f \u043a\u043b\u0430\u0432\u0438\u0448 \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 \u0434\u043b\u044f Memo1:<\/p>\n
SendMessage(Memo1.Handle, WM_CHAR, Ord(‘A’), 0);<\/p>\n
\u0418 \u043d\u0430 \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u043a \u043a\u043e\u0434\u044b \u0432\u0438\u0440\u0442\u0443\u0430\u043b\u044c\u043d\u044b\u0445 \u043a\u043b\u0430\u0432\u0438\u0448:<\/p>\n
vk_LButton   = $01;
\nvk_RButton   = $02;
\nvk_Cancel    = $03;
\nvk_MButton   = $04;   { \u0433\u0435\u043d\u0435\u0440\u044f\u0442\u0441\u044f \u0442\u043e\u043b\u044c\u043a\u043e \u0441\u0438\u0441\u0442\u0435\u043c\u043e\u0439 \u0432\u043c\u0435\u0441\u0442\u0435 \u0441 L & RBUTTON }
\nvk_Back      = $08;
\nvk_Tab       = $09;
\nvk_Clear     = $0C;
\nvk_Return    = $0D;
\nvk_Shift     = $10;
\nvk_Control   = $11;
\nvk_Menu      = $12;
\nvk_Pause     = $13;
\nvk_Capital   = $14;
\nvk_Escape    = $1B;
\nvk_Space     = $20;
\nvk_Prior     = $21;
\nvk_Next      = $22;<\/p>\n
vk_End       = $23;
\nvk_Home      = $24;
\nvk_Left      = $25;
\nvk_Up        = $26;
\nvk_Right     = $27;
\nvk_Down      = $28;
\nvk_Select    = $29;
\nvk_Print     = $2A;
\nvk_Execute   = $2B;
\nvk_SnapShot  = $2C;
\n{ vk_Copy      = $2C \u043d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u043e\u0439 }<\/p>\n
vk_Insert    = $2D;
\nvk_Delete    = $2E;
\nvk_Help      = $2F;
\n{ vk_A - vk_Z \u0442\u0430\u043a\u0438\u0435 \u0436\u0435, \u043a\u0430\u043a \u0438 \u0438\u0445 ASCII-\u044d\u043a\u0432\u0438\u0432\u0430\u043b\u0435\u043d\u0442\u044b: 'A' - 'Z' }
\n{ vk_0 - vk_9 \u0442\u0430\u043a\u0438\u0435 \u0436\u0435, \u043a\u0430\u043a \u0438 \u0438\u0445 ASCII-\u044d\u043a\u0432\u0438\u0432\u0430\u043b\u0435\u043d\u0442\u044b: '0' - '9' }<\/p>\n
vk_NumPad0   = $60;
\nvk_NumPad1   = $61;
\nvk_NumPad2   = $62;
\nvk_NumPad3   = $63;
\nvk_NumPad4   = $64;
\nvk_NumPad5   = $65;
\nvk_NumPad6   = $66;
\nvk_NumPad7   = $67;
\nvk_NumPad8   = $68;
\nvk_NumPad9   = $69;
\nvk_Multiply  = $6A;
\nvk_Add       = $6B;
\nvk_Separator = $6C;
\nvk_Subtract  = $6D;
\nvk_Decimal   = $6E;
\nvk_Divide    = $6F;
\nvk_F1        = $70;
\nvk_F2        = $71;
\nvk_F3        = $72;
\nvk_F4        = $73;
\nvk_F5        = $74;<\/p>\n
vk_F6        = $75;
\nvk_F7        = $76;
\nvk_F8        = $77;
\nvk_F9        = $78;
\nvk_F10       = $79;
\nvk_F11       = $7A;
\nvk_F12       = $7B;
\nvk_F13       = $7C;
\nvk_F14       = $7D;
\nvk_F15       = $7E;
\nvk_F16       = $7F;
\nvk_F17       = $80;
\nvk_F18       = $81;
\nvk_F19       = $82;
\nvk_F20       = $83;
\nvk_F21       = $84;
\nvk_F22       = $85;
\nvk_F23       = $86;
\nvk_F24       = $87;
\nvk_NumLock   = $90;
\nvk_Scroll    = $91;<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
\u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043c\u0430\u043b\u0435\u043d\u044c\u043a\u0438\u0439 \u043a\u043e\u0434 \u0434\u043b\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u043d\u0430\u0436\u0430\u0442\u0438\u044f \u043a\u043b\u0430\u0432\u0438\u0448\u0438 Print Screen: \u0410 \u0442\u0435\u043f\u0435\u0440\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u044b\u0439 \u0430\u043d\u0430\u043b\u043e\u0433 Print Screen\u2019\u0430:<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3],"tags":[306,308,309,307,247,242],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/21"}],"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=21"}],"version-history":[{"count":2,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/21\/revisions"}],"predecessor-version":[{"id":220,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/21\/revisions\/220"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=21"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=21"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=21"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}