www.delphidev.de / DirctX Version ermitteln

MexDelphi · 24.07.2005 18:02:04

Hallo,

hier zwei Units um die DX Version zu ermitteln.
Unit DXVDXDiag holt sich die Version mittels com interface aus DXDiag
und die Unit DXVFileVersion liest die Fileversionen aus.

Dies ist eine Lose übersetzung des Cpp Beispiels aus dem DX SDK
....Microsoft DirectX 9.0.. SDKSamplesC++Miscgetdxver

ich habe es in Zwei Teile gesplittet, da die 'älter' Variante eh bald obsolet ist

ein Aufruf könnte dann in etwa so aussehen:

Code: delphi


uses
  dxvdxdiag, dxvfileversion;
....
procedure tform1.formshow(sender: tobject);
var
  dxmajor,dxvminor : dword;
  dxletter : string;
  hr : hresult;
begin
hr := getdx_dxdiag(dxmajor,dxvminor,dxletter);
if hr <> s_ok then hr := getdx_fivers(dxmajor,dxvminor,dxletter);

if hr = s_ok
  then label1.caption := 'DirctX Version: ' + inttostr(dxmajor) + '.' +inttostr(dxvminor) + dxletter + ' gefunden'
  else label1.caption := 'Kein DirectX gefunden';
end;

Attachments:

DXVFileVersion.pas, Größe: 11,890 bytes, Downloads: 1,005

DXVDXDiag.pas, Größe: 4,487 bytes, Downloads: 833

#1 24.07.2005 18:02:04

DirctX Version ermitteln

Code: delphi

Brett Fußzeile