sub get_property {
    my $self = shift;
    my ($property) = @_;

    return ( $self->get_properties($property) )[0];
}

sub get_properties {
    use DDS; Dump(\@_);
    my $self = shift;
    my (@properties) = @_;
    my %properties = map { $_, "aiaia $_" } @properties;
    $self->exists or return undef;
    Win32::Setupsup::GetWindowProperties( $self->handle, \@properties, \my %properties ) or return undef;
}