|
Вопрос # 3 826/ вопрос открыт / |
|
Здравствуйте, эксперты! Подскажите как сделать скриншот из Windows 7 в режиме OpenGL? (к примеру из counter strike 1.6). В Windows XP скриншот нормально делается практически любым способом, но в семёрке у меня не получается(
 |
Вопрос задал: sta321 (статус: Посетитель)
Вопрос отправлен: 27 февраля 2010, 21:39
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: IlluminatI
Здравствуйте, sta321!
Есть такая замечательная программа Fraps, ее можно взять на любом диске "Игромании" или в интернете: http://www.izone.ru/sys/diagnostics/fraps.htm
Программа платная, но в интернете есть и бесплатная =)
 |
Ответ отправил: IlluminatI (статус: 2-ой класс)
Время отправки: 27 февраля 2010, 22:19
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 28 февраля 2010, 15:30; участников в обсуждении: 3.
|
Ерёмин А.А. (статус: *Администратор), 27 февраля 2010, 22:25 [#1]:
sta321:
IlluminatI:
У нас вопрос по Delphi или нет?
|
|
|
sta321 (статус: Посетитель), 27 февраля 2010, 22:26 [#2]:
по Delphi. если есть буду рад куску исходника=)
|
|
|
IlluminatI (статус: 2-ой класс), 27 февраля 2010, 23:27 [#3]:
Хм, в вопросе не указано, что нужен исходный код программы, которая делает скриншот 
|
|
|
Ерёмин А.А. (статус: *Администратор), 28 февраля 2010, 10:49 [#4]:
Цитата (IlluminatI):
Хм, в вопросе не указано, что нужен исходный код программы, которая делает скриншот
Но вопрос задан в раздел о Delphi, а не в «Разные вопросы».
|
28 февраля 2010, 10:49: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Графика (2D и 3D) в приложениях модератором Ерёмин А.А.
|
|
IlluminatI (статус: 2-ой класс), 28 февраля 2010, 12:25 [#5]:
тогда, как я понимаю, Fraps не прокатит? 
попробуйте такой код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Canvas:TCanvas;
ScreenV:HDC;
begin
ScreenV := GetDC(0);
Canvas:=TCanvas.Create();
Canvas.Handle:=ScreenV;
Image1.Canvas.Copyrect(Rect(0,0,Image1.Width,Image1.Height),
Canvas, Rect(0,0,Screen.Width,Screen.Height));
ReleaseDC(0,ScreenV);
Canvas.Free;
end;
на форме должен быть компонент TImage. Сохранить в файл: Image1.Picture.SaveToFile('путь');
|
|
|
sta321 (статус: Посетитель), 28 февраля 2010, 15:30 [#6]:
работает только в windows XP, в windows 7 выдаёт чёрный квадрат(
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
