Ne postoji ni jedna procedura koja ce ti to odraditi, moras sve odraditi rucno. Posto nisi definisao, predpostavicu da ti treba za tekstualni ekran.
Sto se tice stampanja, pogledaj Help za Printer Unit. Ne secam se bas najbolje, ali mislim da je u njemu definisana Lst ili bese Lpt promenljiva preko koje se izvodi stampanje. Nemam intaliran TP pa da sada isprobam, ali mislim da ne bi trebao da bude problem da ovo skontas i sam.
Posto zelis da odstampas sadrzaj ekrana, trebace ti i funkcija kojom mozes da "procitas" sta se nalazi na odredjenoj poziciji na ekranu:
Code:
Function GetChar (x, y : Integer) : Char;
Var
Regs : Registers;
Begin
GotoXY (X, Y);
FillChar (Regs, SizeOf (Regs), 0);
Regs.AH := 8;
Regs.BH := 0;
Intr ($10, Regs);
GetChar := Chr (Regs.AL);
End;
Znaci, dve For petlje, jedna od 1-80, druga od 1-25 (ako koristis klasican tekstualni video mod - 80x25) i udri, karakter po karakter...
E, da,.... u Uses moras da dodas DOS i CRT.
Nadam se da ce ovo pomoci ...