Hier aus der Doku von
FreePascal:
Delphi-Quellcode:
var
gd,gm : integer;
PathToDriver : string;
begin
gd:=detect; { highest possible resolution }
gm:=0; { not needed, auto detection }
PathToDriver:=’C:\PP\BGI’; { path to BGI fonts,
drivers aren’t needed }
InitGraph(gd,gm,PathToDriver);
if GraphResult<>grok then
halt; ..... { whatever you need }
CloseGraph; { restores the old graphics mode }
end.
(alles unter Reference zur
Unit Graph)
Und was und wo du welche Dateien brauchst und viielleicht irgendwelche Pfade einbinden musst, weis ich nicht.
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.