Thema: Delphi Windows 7 Theme wechseln

Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#11

AW: Windows 7 Theme wechseln

  Alt 10. Okt 2011, 08:56
Zitat:
Das öffnet zwar den Dialog, schließt ihn aber nicht wieder.
Wenn ShExecInfo über ein SendKeys verfügt sollte das doch ganz einfach mit SendKeys(VK_ENTER) zu schließen sein.
Ohne das du auf den OK Button drücken mußt.

Alternativ kannst du ja uses ShellObj einbinden und
objShell.Sendkeys(VK_ENTER) verwenden.

nicht getestet!

Zitat:
Ich weiß leider wirklich nicht, wie ich das Handle des Fensters bekommen soll.
Kein Problem! Allerdings wie du schon sagtest Sprachabhängig!

eng.
FindWindow('CabinetWClass', 'Personalization')
de.
FindWindow('CabinetWClass', 'Anpassung')


PS:
Wenn du den Dialog nicht sehen willst solltest du SW_HIDE anstelle SW_SHOWNORMAL verwenden oder?


gruss

Geändert von EWeiss (10. Okt 2011 um 09:53 Uhr)
  Mit Zitat antworten Zitat