Windows-Desktop

[lorbass]

Da hilft dir vielleicht Michael Dannhöfers StarBasic / OpenOffice.org Basic FAQ mit der Fragestellung Wie kann man auf die Windows-Registry zugreifen? weiter. Du musst nur noch den Registry-Schlüssel kennen, unter dem die Auflösung abgelegt ist.

Gruß
lorbass

[marcel_at_work]

Hallo Gabi,

Code: Alles auswählen

Dim sTemplateKeyName, sTemplateValueName, ResolutionX, ResolutionY
GlobalScope.BasicLibraries.LoadLibrary("ImportWizard")
sTemplateKeyName = "SYSTEM\CurrentControlSet\Hardware Profiles\Current\System\CurrentControlSet\Control\VIDEO\{69F9A034-CB43-4E32-BBDC-03A196855AE2}\0000\Mon10000083"
sTemplateValueName = "DefaultSettings.XResolution"
ResolutionX = QueryValue(HKEY_LOCAL_MACHINE, sTemplateKeyName, sTemplateValueName)
sTemplateValueName = "DefaultSettings.YResolution"
ResolutionY = QueryValue(HKEY_LOCAL_MACHINE, sTemplateKeyName, sTemplateValueName)
msgbox ResolutionX & ResolutionY

Der letzte Pfadteil in sTemplateKeyName kann allerdings von PC zu PC variieren, deshalb ist es vl. sinnvoll, START>AUSFÜHREN>"regedt32.exe" aufzurufen, um kurz mal in der Registry nach "Resolution" zu suchen.

Lg, Marci