Spectragram

[jaenicke]

Wie kommst du darauf, dass es unter Windows 10 keinen DWM mehr gibt? Die Transparenz usw. funktionieren dort problemlos, also die von dir genannten Controls.

[EWeiss]

Zitat von jaenicke:

Wie kommst du darauf, dass es unter Windows 10 keinen DWM mehr gibt? Die Transparenz usw. funktionieren dort problemlos, also die von dir genannten Controls.

Ich habe gelesen das es kein Aero mehr gibt.
Sage mir das ich falsch liege

Transparenz!
Zur Information ist teilweise emuliert da ich den Hintergrund in das Control kopiere.
Das hat aber nichts mit Aero zu tun.

Wenn unter W10 CheckAeroBlur NIL ist dann wird DWM nicht unterstützt.
Denn darauf hin prüfe ich ja.

DwmIsCompositionEnabled := GetProcAddress(hDwmapi, 'DwmIsCompositionEnabled');

gruss

[TiGü]

Delphi-Quellcode:

program DWM_API_TEST;

{$APPTYPE CONSOLE}

{$R *.res}


uses
  System.SysUtils,
  Winapi.Windows;

function IsCompositionEnabled: boolean;
var
  DwmIsCompositionEnabled: function(pfEnabled: PBoolean): HRESULT; stdcall;
  hDwmapi: THandle;
  Enabled: BOOL;
begin
  Result := False;
  if (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion >= 6) then
  begin
    hDwmapi := LoadLibrary('dwmapi.dll');
    if hDwmapi <> 0 then
      try
        DwmIsCompositionEnabled := GetProcAddress(hDwmapi, 'DwmIsCompositionEnabled');
        if Assigned(DwmIsCompositionEnabled) then
          Result := (DwmIsCompositionEnabled(@Enabled) = 0) and Enabled;
      finally
        FreeLibrary(hDwmapi);
      end;
  end;
end;

begin
  try
    Writeln(IsCompositionEnabled);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Liefert unter Windows 10 Professional Version 1607 Build 14393.187 ein True zurück.
Geht also!

[Aviator]

Zitat von EWeiss:

Zitat von jaenicke:

Wie kommst du darauf, dass es unter Windows 10 keinen DWM mehr gibt? Die Transparenz usw. funktionieren dort problemlos, also die von dir genannten Controls.

Ich habe gelesen das es kein Aero mehr gibt.
Sage mir das ich falsch liege

Also im TaskManager wird zumindest mal noch der Prozess angezeigt.

Ich hatte mal gelesen, dass es ab Windows 8 sogar gar nicht mehr möglich sein soll, Windows ohne DWM zu betreiben weil dort alles drüber gemacht wird. Wäre also sehr verwunderlich, wenn das jetzt plötzlich doch nicht mehr vorhanden wäre.

[EWeiss]

Zitat von Aviator:

Zitat von EWeiss:

Zitat von jaenicke:

Wie kommst du darauf, dass es unter Windows 10 keinen DWM mehr gibt? Die Transparenz usw. funktionieren dort problemlos, also die von dir genannten Controls.

Ich habe gelesen das es kein Aero mehr gibt.
Sage mir das ich falsch liege

Also im TaskManager wird zumindest mal noch der Prozess angezeigt.

Ich hatte mal gelesen, dass es ab Windows 8 sogar gar nicht mehr möglich sein soll, Windows ohne DWM zu betreiben weil dort alles drüber gemacht wird. Wäre also sehr verwunderlich, wenn das jetzt plötzlich doch nicht mehr vorhanden wäre.

Dann sollte es unter W10 auch funktionieren.
Was ich machen könnte alle abfragen der Os Version mal ändern so wie von jaenicke vorgeschlagen.
Ob es dann noch läuft keine Ahnung.

Dann müssten die Controls auch angezeigt werde.
Siehe pic

gruss

[EWeiss]

Habe es nochmal in geänderter form hochgeladen.
Es wird jetzt auf

if (Win32MajorVersion >= 6) and SKAERO_IsCompositionEnabled then

hin geprüft.
Wenn es dann läuft na dann lohnt sich die Weiterentwicklung ja doch noch.

gruss

[EWeiss]

Sorry für den Post..
Habe es nochmals hochgeladen.
Funktioniert nun mit Deaktivierter Desktopgestaltung.

Das einzige Problem das dann auftritt ist das die Combobox der DriveList wenn sie aufgeklappt wird nicht mehr Transparent ist.
Damit kann man aber zum testen mit leben.

Bei Deaktivierter Desktopgestaltung funktioniert natürlich auch Aero nicht..
Das sollte klar sein.

gruss

[Erdbär]

Startet unter/im aktuellen W10x64 Pro in Originalauflösung statt 125%zoom. Dann Ende Gelände beim Öffnen-Dialog.

Kann den "Siebenerschrott" - auf Wunsch hin - auch unter
- Win 8 (64bit, Pro)
- Win 8.1 (64bit, Pro)
- Win 10 (32bit, Home)
testen.

Darüberhinaus auch unter/in VMs:
- Win XP Pro (32bit)
- Win 07 Pro (32bit)
- Linux Mint (64bit)
- Linux Arch (64bit)

Allerdings bin ich auch kein Testpilot für Leute, die in einer Windows7-Zeitschleife murmeltierartig festhängen, Herr EWeiss