aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Falls Sie ein Programm im Grafikmodus geschrieben haben und die Exe-Datei dann verschicken wollen, können nur Jene das Programm ausführen, die wie Sie auch den passenden Grafiktreiber haben.

Dies kann umgangen werden, indem man den Grafiktreiber in die Exe-Datei integriert!

Programm

Zuerst müssen Sie den Grafiktreiber in eine .obj-Datei umwandel, da sie sich nur so integrieren lässt.

{$M 4000,0,0}
program umwandeln;
USES dos;

BEGIN 
  swapvectors;
  exec(getenv('comspec'),'/C binobj egavga.bgi egavga EGAVGADriverProc');
end;

Nun kann die neuerzeugte Datei integriert werden:

program Grafiktreiber;
USES dos,graph;

var fehler,a,b : integer;


procedure EGAVGADriverProc; External;
{$L C:\pascal\wintp\borlan~1.0\Bin\Egavga.OBJ}

begin

  fehler := RegisterBGIDriver (@EGAVGADriverProc);

   a:=detect;
  initgraph(a,b,'');

    {... Ihr Hautprogramm ...}    

  readln;
  closegraph;
END.

---