#1 24.07.2005 18:02:04

MexDelphi
ProMember
Ort: Göppingen
Registriert: 24.01.2005
Beiträge: 235
Web-Seite

DirctX Version ermitteln

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 smile

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:
Attachment Icon DXVFileVersion.pas, Größe: 11,890 bytes, Downloads: 950
Attachment Icon DXVDXDiag.pas, Größe: 4,487 bytes, Downloads: 770

goto: http://mexdelphi.cybton.com

Offline

 

Brett Fußzeile

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson