include(PUN_ROOT.'syn/css.php'); ?>
Sie sind nicht angemeldet.
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:
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;
Offline