Re: XP colorscheme detection Help wanted

From: JohnK (johnkeystone_at_noreply.net)
Date: 05/01/04 

Date: Sat, 1 May 2004 22:33:49 +0200

Hi,
Thanks, had some trouble to get it running, but it works now!
For the record: I try to combine this with some controls called OsenXPForms.
The only 'bad' part is: he wants $80 for it. But it looks very good.
Any chance there is an alternative FREE?

John
Always developping for the non-profit org's, so I want it all FREE!

"Zoury" <yanick_lefebvre@hotmail.com> schreef in bericht
news:eewW75tLEHA.2976@TK2MSFTNGP10.phx.gbl...
> Hi John! :O)
>
> I don't know which API (if any) could give you this information directly
but
> you can read the following registry key/value
>
> key :
> HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager
>
> value :
> ColorName
>
>
>
> if don't know how to read a key from the registry :
>
> HOWTO: Use the Registry API to Save and Retrieve Setting
> http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q145679
>
>
>
> here's a really basic class that can save you some time..
> http://groups.google.com/groups?selm=%2333VNZD1CHA.1768%40TK2MSFTNGP12
>
> sample of use :
> '***
> ' Module1
> Option Explicit
>
> Private Sub Main()
>
> Dim reg As CRegistry
> Set reg = New CRegistry
>
> Select Case reg.GetValue(rkcCurrentUser, _
>
> "Software\Microsoft\Windows\CurrentVersion\ThemeManager", _
> "ColorName")
>
> Case "NormalColor"
> Debug.Print "Default (blue)"
>
> Case "HomeStead"
> Debug.Print "Olive Green"
>
> Case "Metallic"
> Debug.Print "Silver"
>
> Case Else
> Debug.Print "Unknown Color Scheme"
>
> End Select
>
> End Sub
> '***
>
> --
> Best Regards
> Yanick Lefebvre
> "JohnK" <johnk@noreply.net> wrote in message
> news:40927f81$0$144$3a628fcd@reader2.nntp.hccnet.nl...
> > Hi
> >
> > I need to determine what colorscheme XP is using, as there is Standard
> blue,
> > Olive green and Silver. How can I get a value within a VB program. Can
you
> > give an example please?
> > Second, the app. I'm making runs on different Windows versions, so only
> when
> > running XP the colortscheme option are needed. How can I see the Win
> version
> > running on? Do you have an example?
> >
> > Thanks,
> >
> > John
> >
> >
> >
> > ---
> > Outgoing mail is certified Virus Free.
> > Checked by AVG anti-virus system (http://www.grisoft.com).
> > Version: 6.0.672 / Virus Database: 434 - Release Date: 28-4-2004
> >
> >
>
> 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.669 / Virus Database: 431 - Release Date: 26-4-2004

Relevant Pages

  • Re: Registry learn to edit
    ... | Your hint stinks. ... The more you know about the registry the better. ... |> Outgoing mail is certified Virus Free. ...
    (microsoft.public.windowsxp.basics)
  • Re: Simulate mouse movement?
    ... John ... >> the mouse by API calls. ... > Outgoing mail is certified Virus Free. ...
    (microsoft.public.vb.general.discussion)
  • Re: 2N3906 reverse collector-emitter
    ... > Outgoing mail is certified Virus Free. ... I once measured the BE breakdown voltage for a number of Si switching ...
    (sci.electronics.design)
  • Re: Odd behaviour of label controls??
    ... I did not think of the Use Mnemonic property. ... John ... >> Outgoing mail is certified Virus Free. ...
    (microsoft.public.vb.controls)
  • Re: Extending the system partition
    ... > John S ... Outgoing mail is certified Virus Free. ... Checked by AVG anti-virus system. ...
    (microsoft.public.windowsxp.customize)