Otevřít hlavní menu

Změny

GetDriverName

Přidáno 695 bajtů, 4. 10. 2012, 16:17
Created page with "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í ..."
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]]