PrintScreen

← →
ArtikZ © (2007-09-04 16:03) [0]

Как во время выполнения проги програмно сделать PrintScreen рабочего стола?

← →
clickmaker © (2007-09-04 16:08) [1]

вариант "в лоб"
keybd_event(VK_SNAPSHOT, 0, 0, 0);
keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0);

← →
Ivolg © (2007-09-04 16:24) [2]

С помощью функции BitBlt();

Пример:
...
var
Bit: TBitMap;
begin
Bit:=TBitMap.Create;
Bit.Width := Screen.Width;
Bit.Height:= Screen.Height;
BitBlt(Bit.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
Bit.SaveToFile("C:\Screen.bmp");
Bit.Free;
end;

← →
Denis_ © (2007-09-04 16:24) [3]

procedure PrintScreenNow(filepath : string); var bmp: TBitmap; begin bmp := TBitmap.Create; bmp.Width := Screen.Width; bmp.Height := Screen.Height; BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, GetDC(GetDesktopWindow), 0, 0, SRCCopy); Image1.Picture.Bitmap:=bmp; Image1.Picture.SaveToFile(filename); end;

← →
Denis_ © (2007-09-04 16:26) [4]

а, блин, не успел.

← →
Anatoly Podgoretsky © (2007-09-04 16:34) [5]

> Denis_ (04.09.2007 16:24:03) [3]

Они немного разные, у тебя образ загоняется в Image1.Picture.Bitmap

← →
Denis_ © (2007-09-04 16:44) [6]

> Они немного разные, у тебя образ загоняется в Image1.Picture.
> Bitmap

ну это так, я копировал и не обратил внимание.Но ИМХО так даже лучше- сразу видно, чего там получилось.Тем более принцип один.

← →
clickmaker © (2007-09-04 16:59) [7]

> GetDC(GetDesktopWindow)

а потом удивляемся: куда ресурсы утекают?
ReleaseDC неплохо бы сделать

← →
Denis_ © (2007-09-04 17:12) [8]

> clickmaker © (04.09.07 16:59) [7]
>
> > GetDC(GetDesktopWindow)
>
> а потом удивляемся: куда ресурсы утекают?
> ReleaseDC неплохо бы сделать

не подумали мы....:(

← →
Инс © (2007-09-04 17:15) [9]

Почему все программы-шпионы так похожи друг на друга?

← →
clickmaker © (2007-09-04 17:17) [10]

> procedure PrintScreenNow(filepath : string);
> var
> bmp: TBitmap;
> begin
> bmp := TBitmap.Create;
> bmp.Width := Screen.Width;
> bmp.Height := Screen.Height;
> BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
>
> GetDC(GetDesktopWindow), 0, 0, SRCCopy);
> Image1.Picture.Bitmap:=bmp;
> Image1.Picture.SaveToFile(filename);
> end;

Ты забыл bmp.free и совсем непонятны 2 строки с Image1. А bmp.savetofile не судьба юзануть?

> Ты забыл bmp.free и совсем непонятны 2 строки с Image1.
> А bmp.savetofile не судьба юзануть?

ОТВЕТ :::

> ну это так, я копировал и не обратил внимание.Но ИМХО так
> даже лучше- сразу видно, чего там получилось.Тем более принцип
> один.

> не подумали мы....:(

PrintScreen Найти похожие ветки