Zitat von
Gargamel:
Keine Ahnung, wo da der Fehler liegt.
Ich denke, ich schon:
Delphi-Quellcode:
displaydevice[NumberDisplayDevice].DeviceName:=Info.DeviceName;
displaydevice[NumberDisplayDevice].DeviceName:=Info.DeviceString; // <--- !!!
AdapterName := StrAlloc(SizeOf(Info.DeviceName));
StrCopy(AdapterName, Info.DeviceName);
EnumDisplayDevices(AdapterName, 0, Info, 0);
displaydevice[NumberDisplayDevice].Monitorname:=Info.DeviceString;
Dadurch wird der folgende Aufruf wegen EnumDisplayDevices für den Monitor falsch und dadurch kommt es zu weiteren Fehlern. Copy & Paste Fehler halt...