Přidáno 695 bajtů,
4. 10. 2012, 16:17 Vrací řetězec obsahující jméno aktuálního driveru.
;Deklarace
function GetDriverName: string;
;Režim
:Reálný, Chráněný
;Poznámky
:[[GetDriverName]] vrátí po zavolání InitGraph jméno aktivního driveru.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[InitGraph]]
Vzorový příklad
{Getdrvnm.PAS}
{Vzorový příklad pro funkci GetDriverName.}
uses Graph;
var Driver, Mode: Integer;
begin
Driver := Detect; { Přepnutí do grafického režimu }
InitGraph(Driver, Mode, ' ');
if GraphResult < 0 then
Halt(1);
OutText('Using driver ' + GetDriverName);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]