Új hozzászólás Aktív témák

• #640 DiVaD senior tag EEdem_Dtx #639

  Új Válasz 2005-03-23 14:31:12 #640

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  DiVaD

  senior tag

  válasz EEdem_Dtx #639 üzenetére

  Thx!
  A Te gondodra megoldás(mármint a bgi):
  
  procedure egavga; external; {$L EGAVGA.OBJ}
  procedure goth; external; {$L GOTH.OBJ}
  procedure trip; external; {$L TRIP.OBJ}
  procedure kilep(fnev: string);
  Begin
  Writeln('Nem sikerült beépíteni az ',fnev, ' állományt!');
  Halt(1);
  End;
  
  
  IF RegisterBGIdriver(@egavga)<0 then kilep('EGAVGA'); {ez a egavga.obj beágyazása}
  IF RegisterBGIfont(@goth) <0 then kilep('Goth'); {karakter font beágyazása}
  IF RegisterBGIfont(@trip) <0 then kilep('Trip'); {dettó}
  
  BGI-ből OBJ-t a binobj.exe-vel bírsz konvertálni
  
  

Új hozzászólás Aktív témák