Vista Aero Effekt deaktiveren

[Larsi]

Hi,

wie kann ich den Vista Aero Effekt eigentlich für die Nutzung meines Programmes auf Wunsch ausschalten, natürlich in Delphi?

MFG Lars Wiltfang

Edit: Mir würde es schon reichen wenn die Schatten weg wären.

[turboPASCAL]

Zitat:

Edit: Mir würde es schon reichen wenn die Schatten weg wären.

Darf man fragen wieso bzw. wozu ?

Zitat:

wie kann ich den Vista Aero Effekt eigentlich für die Nutzung meines Programmes auf Wunsch ausschalten

Unter Nutzung der Forensuche oder Google. :stupid:

http://groups.google.com/group/borla...15e2d42fec6100


// Edit: Aber wenn du meinst nur für dein Programm "lokal" das geht nicht.

[Larsi]

Und wie muss ich die ganzen Variablen deklarieren? Bekomme sehr viele Fehler.

[Die Muhkuh]

Was für Fehler?

[Larsi]

Ok habs hingekriegt.

[Namenloser]

Da guckst du am besten auf msdn nach: http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

In Delphi musst du es dann so deklarieren:

Delphi-Quellcode:

type
  TDwmEnableComposition = function(uCompositionAction: longint): hResult;

...
var
  DwmEnableComposition: TDwmEnableComposition;

Sollte klappen, aber wie immer ohne Gewähr.

[freak4fun]

Zitat:

Zitat von Larsi

Ok habs hingekriegt.

Und wie? Könnte ja auch andere interessieren. :drunken:

[turboPASCAL]

@NamenLozer, Das Beispiel oben im Link gefällt dir wohl nicht ?

@freak4fun, fasst nur eine Copy&Paste Action


Eine AllinOne-Procedure:

Delphi-Quellcode:

procedure AeroSetEnable (enable: boolean);
const
  DWM_EC_DISABLECOMPOSITION = 0;
  DWM_EC_ENABLECOMPOSITION = 1;
var
  DwmEnableComposition: function(uCompositionAction: UINT): HRESULT; stdcall;
  DWMlibrary: THandle;
begin
  DWMlibrary := LoadLibrary ('DWMAPI.dll');

  if DWMlibrary <> 0 then
  begin
    DwmEnableComposition := GetProcAddress(DWMLibrary, 'DwmEnableComposition');

    if @DwmEnableComposition <> nil then
    begin
      if enable
        then DwmEnableComposition(DWM_EC_ENABLECOMPOSITION)
        else DwmEnableComposition(DWM_EC_DISABLECOMPOSITION);
    end;
  end;

  FreeLibrary(DWMlibrary);
end;


// Aufruf zum ausschalten des Aeroef.
procedure TForm1.FormCreate(Sender: TObject);
begin
  AeroSetEnable(false);
end;

// Edit:
Bin etwas zersteut heute, die Funktion im Link oben ist etwas desulat..
Ich habe mal hier eine einfache Variante bereitgestellt.

Wird die Procedure wie im Beispiel aufgerufen bleibt der Aeroeffect so lange aus bist das
Programm beendet wird.
In Normalfall würde ich LoadLibrary & FreeLibrary aus der Procedure lösen und die DLL
Im Create & Destroy laden bzw. entladen.

[Namenloser]

Zitat:

Zitat von turboPASCAL

@NamenLozer, Das Beispiel oben im Link gefällt dir wohl nicht ?

Doch, mein Code bezieht sich doch darauf :gruebel: Meine Glaskugel hat mir nunmal gesagt, dass DwmEnableComposition in Larsis Delphi nicht deklariert ist (weil ich selbst mal eine Dwm*-Funktion benutzen wollte und dieses Problem hatte).

[turboPASCAL]

Siehe Edit in Post #8. ;)