Hallo,
würde gerne die Funktion
DwmGetColorizationColor benutzen. Nutze die DWMApi-
Unit, die hier im Forum zu finden ist.
Auszug:
Delphi-Quellcode:
...
TDwmGetColorizationColor = function(out pcrColorization: PDWORD; out pfOpaqueBlend: PBOOL): HRESULT; stdcall;
...
var
DwmGetColorizationColor: TDwmGetColorizationColor;
...
function DWM_GetColorizationColor(var pcrColorization: DWORD; var pfOpaqueBlend: BOOL): HRESULT;
Versuche die Funtion bisher so zu verwenden (das Ausgabeformat für farbe soll laut
msdn "0xAARRGGBB" sein):
Delphi-Quellcode:
var
blend: bool;
farbe : dword;
begin
dwmapi.DwmGetColorizationColor(PDWORD(farbe),PBOOL(blend));
a := copy(IntToHex((integer(farbe)),8),1,2);
r := copy(IntToHex((integer(farbe)),8),3,2);
g := copy(IntToHex((integer(farbe)),8),5,2);
b := copy(IntToHex((integer(farbe)),8),7,2);
Dort kommt aber nur Unsinn heraus. Wollte nun fragen, ob jemand weiß, wie ich die Funktion richtig benutzen muss bzw. wie ich den dword-wert richtig umwandeln kann.
Danke im Voraus
