Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Mediacenter in Win8 erkennen? (https://www.delphipraxis.net/178984-mediacenter-win8-erkennen.html)

Mattze 6. Feb 2014 17:24

Mediacenter in Win8 erkennen?
 
Hi,

woran erkenne ich bei Win8(.1) in meinem Delphiprogramm, ob das Mediacenter installiert ist?

(Eine Möglichkeit wäre natürlich die Registry. Da steht "Windows 8 pro with Mediacenter". Aber geht es auch anders. Bei Win XP gab es da eine Systemmetric - SM_Mediacenter, aber die geht bei Win 8(.1) nicht mehr.)

Gruß
Mattze

hathor 6. Feb 2014 19:51

AW: Mediacenter in Win8 erkennen?
 
SystemParameters.IsMediaCenter-Eigenschaft

Plattformen

Windows 8.1, Windows Server 2012 R2, Windows 8, Windows Server 2012, Windows 7, Windows Vista SP2, Windows Server 2008 (Server Core-Rolle wird nicht unterstützt), Windows Server 2008 R2 (Server Core-Rolle wird mit SP1 oder höher unterstützt; Itanium wird nicht unterstützt)

http://msdn.microsoft.com/de-de/libr...vs.110%29.aspx

Mattze 6. Feb 2014 20:26

AW: Mediacenter in Win8 erkennen?
 
Erstmal danke!

Aber, au-weiha, da habe ich doch etwas vergessen:
Ich programmiere in D7pro.
Das kennt noch kein .Net - soviel ich weiß.

Geht das trotzdem irgendwie?

Interessant ist der Hinweis "Wird SM_MEDIACENTER zugeordnet."
Danach müsste es eigentlich auch bei Win8(.1) mit diese Systemmetric klappen -
tut es aber nicht, jedenfalls bei mir nicht.

Gruß
Mattze

hathor 6. Feb 2014 21:55

AW: Mediacenter in Win8 erkennen?
 
Suche nach:
WMC: ehshell.exe, located in "C:\Windows\ehome"

If FileExists('C:\Windows\ehome\ehshell.exe') then...

Mattze 9. Feb 2014 11:05

AW: Mediacenter in Win8 erkennen?
 
Hallo,

vielen Dank für den Dateihinweis.
Ich habe mir schon gedacht, dass das auf eine Dateiprüfung hinausläuft, aber ich wusste einfach nicht, welche ich da prüfen muss.
Also, nochmals, vielen Dank!

Gruß
Mattze

hathor 9. Feb 2014 11:29

AW: Mediacenter in Win8 erkennen?
 
Zitat:

Zitat von hathor (Beitrag 1247029)
If FileExists('C:\Windows\ehome\ehshell.exe') then...

Delphi-Quellcode:
function WMCexists: Boolean;
begin
  result := FileExists(GetEnvironmentVariable('windir')+'\ehome\ehshell.exe');
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:27 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz