Kontrast per API ...

[Darty]

Hmmm langsam kommt Licht hier rein oder auch nicht ....
Also dass heisst dann ...

• dmICMIntent ist ein Member (Variable) von dmFields ??
• dmICMIntent sind mehrere Werte gespeichert. Und eine davon ist DMICM_CONTRAST ?

Wenn dass wirklich so ist, wie rufe ich dann die Werte aus dem dmICMIntent bzw wie übergebe ich dann die Werte ?

Code:

function change_contrast(contrast: word): boolean; 
var lpDevMode: TDeviceMode; 
begin  
  Result := EnumDisplaySettings(nil, 0, lpDevMode);  
  if Result then begin
    lpDevMode.dmFields := dmICMIntent;

// Hier fehlt etwas ??? Oder kann man da schon dmICM_Contrast aufrufen ??
// Wenn ja kannst es an einem Beispiel zeigen ??

    Result := ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL; 
  end; 
end;

Dsas ist der fast gleiche Code wie oben ... Nur fehlt dazwischen etwas Wüsste da jemand etwas ?? Du Luckie ?