#perl -w
use strict;
use Win32::API;

my %colordesc = (
     0 => "Scrollbars",
     1 => "Background",
     2 => "Active Caption",
     3 => "Inactive Caption",
     4 => "Menu",
     5 => "Window",
     6 => "Window Frame",
     7 => "Menu Text",
     8 => "Window Text",
     9 => "Caption Text",
    10 => "Active Border",
    11 => "Inactive Border",
    12 => "Application Workspace",
    13 => "Highlight",
    14 => "Highlight Text",
    15 => "Button Face",
    16 => "Button Shadow",
    17 => "Gray Text",
    18 => "Button Text",
    19 => "Inactive Caption Text",
    20 => "Button Highlight",
    21 => "3D Objects Shadow",
    22 => "3D Objects Highlight",
    23 => "Tooltip Text",
    24 => "Tooltip Background",
    26 => "Hot-track Highlight",
    27 => "Active Caption Gradient",
    28 => "Inactive Caption Gradient",
);


my $GSC = new Win32::API(
    "user32",
    "GetSysColor",
    ['N'], 'N',
);

my $SSC = new Win32::API(
    "user32",
    "SetSysColors",
    ['N', 'P', 'P'], 'N',
);

my($i, $r, $g, $b, $w, $c);
my @c;
my @oc;
for $i (0..28) {
    next if $i == 25;
    push(@oc, $GSC->Call($i));
}

srand();
for $i (0..28) {
    next if $i == 25;
    $r = int(rand()*255);
    $g = int(rand()*255);
    $b = int(rand()*255);
    push(@c, $r + $g*255 + $b*(255**2));
    # ffff'));
}
$w = pack("I" x 28, (0..24), (26..28));
$c = pack("I" x 28, @c);
$SSC->Call(28, $w, $c);

for $i (0..28) {
    next if $i == 25;
    PrintColor($i);
}

print "\nPress ENTER to restore original colors:";
my $enter = <STDIN>;

$w = pack("I" x 28, (0..24), (26..28));
$c = pack("I" x 28, @oc);
$SSC->Call(28, $w, $c);

sub PrintColor {
    my($index) = @_;
    print "$colordesc{$index}: ";
    my $C = $GSC->Call($index);
    my $R = $C & 0x0000FF;
    my $G = ($C & 0x00FF00) >> 8;
    my $B = ($C & 0xFF0000) >> 16;
    printf("%d, %d, %d\n", $R, $G, $B);
}