Windows-Desktop

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Windows-Desktop

Re: Windows-Desktop

von marcel_at_work » Mi, 16.06.2010 20:08

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

Re: Windows-Desktop

von lorbass » Mi, 16.06.2010 18:48

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

Nach oben