| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как получить скриншот [D5, D6, Win95/98, Win2k, WinXP]

Belov ©   (2002-06-10 15:27:00) 

Привет всем !
Не подскажите как получить скриншот активного окна
Если можно с примером

---

VID   (2002-06-10 18:09:00) [1]

TO BELOV: Как, как... Когда ты нажимаешь ALT+PRINT_SCREEN, куда помещается захваченное изображение? Вот и тяни его из CLipboard как BITMAP

---

Belov   (2002-06-10 16:51:00) [2]

2 [BAD]Angel
А дальше то как ?
Как например вывести даную картинку в Image1

2 SB John
смешно, просто описаться можно

---

[BAD]Angel   (2002-06-10 16:16:00) [3]

unit Unit1;

interface

uses
Windows, Classes, Forms, Controls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
vkey1, vkey2: Byte;
code1, code2: Byte;
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
vkey1:=VK_MENU;
vkey2:=VK_SNAPSHOT;
code1:=Lo(MapVirtualKey(VKey1, 0));
code2:=Lo(MapVirtualKey(VKey2, 0));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VKey1, code1, 0, 0);
keybd_event(VKey2, code2, 0, 0);
sleep(50);
keybd_event(VKey2, code2, KEYEVENTF_KEYUP, 0);
keybd_event(VKey1, code1, KEYEVENTF_KEYUP, 0);
end;

end.

---

SB.John   (2002-06-10 15:56:00) [4]

А если хочешь программно, то

ShowMessage("Нажмите пожалуйста PrintScreent"); :)

---

Игорь Шевченко   (2002-06-10 15:34:00) [5]

Alt+PrintScreen

---

Наверх