Скриншот экрана

[ViNcHeStEr]

Вопрос: как сделать скриншот экрана в Borland Pascal в графическом режиме?

[Hollander]

Наверное, тебе придется считать попиксельно весь экран и потом его записывать в файл, т.е. нужно будет изучить структуру формата в который ты хочешь сохранить. Это вариант если у тебя задача такая стоит, если тебе просто для отчетов нужно скрины делать есть проги которые их делают в консоле.

[ViNcHeStEr]

Да, скрины нужны для отчётов.

[Stilet]

Да, скрины нужны для отчётов.

А-а-а так тебе всего-то нужно свой паскаль запускать в виртуальной машине.
Чесно я лично другого выхода в свое время не нашел, не хотит паскаль-графика в окне показываться, а вот под VMWare вполне мормально.

[GenAcid]

Можно попробовать в DosBox'e, он по ctrl + F5 скрин снимает.

[Somebody]

Я когда-то функцию писал для сохранения в bmp.

unit savebmp;
interface
const
h640x16:array [1..59] of word=(
$4d42,$5876,$0002,$0000,$0000,$0076,$0000,$0028,$0000,$0280,$0000,$01e0,
$0000,$0001,$0004,$0000,$0000,$0000,$0000,$0f36,$0000,$0f36,$0000,$0010,
$0000,$0010,$0000,$0000,$0000,$00c0,$0000,$c000,$0000,$c0c0,$0000,$0000,
$00c0,$00c0,$00c0,$c000,$00c0,$c0c0,$00c0,$8080,$0080,$00ff,$0000,$ff00,
$0000,$ffff,$0000,$0000,$00ff,$00ff,$00ff,$ff00,$00ff,$ffff,$00ff);
procedure savebmp640x480x16(s:string);
implementation
uses graph;
var a:array [1..30720] of byte;
    q:word;
    f:file;
    x,y,t,z:integer;

procedure savebmp640x480x16;
begin
if pos('.',s)=0 then s:=s+'.bmp';
assign(f,s); rewrite(f,1);
blockwrite(f,h640x16,sizeof(h640x16));
for t:=0 to 4 do begin
    z:=479-96*t; q:=0;
    for y:=z downto z-95 do
        for x:=0 to 319 do begin
            z:=x shl 1; inc(q);
            a[q]:=getpixel(z,y) shl 4 or getpixel(z+1,y);
        end;
    blockwrite(f,a,sizeof(a));
    end;
close(f);
end;
end.

Если надо, есть ещё для 256 цветов с палитрой.