Monitornamen wie in Systemsteuerung auslesen

[hathor]

Aufruf:
Systemsteuerung\Alle Systemsteuerungselemente\Anzeige\Bildschirmauflösu ng

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var FN: String;
begin
FN:= 'Shell32.dll,Control_RunDLL desk.cpl'; 
ShellExecute(0,nil,PChar('Rundll32.exe'),PChar(FN),'',SW_SHOWNORMAL);
end;