Win32::API::Struct Question about WINDOWPLACEMENT

Got it working!

First of all, the error message at the end is grossly misleading. Don't call it unless SetWindowPlacement returns false.

OK, here's what I changed:
- I moved the struct definitions up towards the start of the script;
- I imported the API's instead of doing Win32::API->new
- your creation of the struct objects was flawed, you called "new struct->new()", but that should of course simply be "struct->new()"

Without much further ado, here is my version:

    use warnings;
    use strict;

    use Data::Dumper;
    use Win32;
    use Win32::API;
    use Win32::API::Struct;

    Win32::API::Struct->typedef( 'POINT' => qw(
         LONG x;
         LONG y;
    ));

    Win32::API::Struct->typedef( 'RECT' => qw(
         LONG left;
         LONG top;
         LONG right;
         LONG bottom;
    ));

    Win32::API::Struct->typedef( 'WINDOWPLACEMENT' => qw(
         UINT length;
         UINT flags;
         UINT showCmd;
         POINT ptMinPosition;
         POINT ptMaxPosition;
         RECT rcNormalPosition;
    ));


    my $FindWindow = new Win32::API('user32', 'FindWindow', 'PP', 'N');

    ### using Import instead of new
    Win32::API->Import('user32', 'INT SetWindowPlacement(HWND hWnd, WINDOWPLACEMENT lpwndplc)');
    Win32::API->Import('user32', 'INT GetWindowPlacement(HWND hWnd, WINDOWPLACEMENT lpwndplc)');

    my $window = $FindWindow->Call("ThunderRT6FormDC", "Perl"); # Quickpost for EE

    my $UpperLeftPoint = Win32::API::Struct->new( 'POINT' );
    $UpperLeftPoint->{'x'} = 1;
    $UpperLeftPoint->{'y'} = 1;

    my $LeftPoint = Win32::API::Struct->new( 'POINT' );
    $LeftPoint->{'x'} = 1;
    $LeftPoint->{'y'} = 1;

    my $WindowSize = Win32::API::Struct->new( 'RECT' );
    $WindowSize->{'left'} = 1;
    $WindowSize->{'top'} = 1;
    $WindowSize->{'right'} = 1000;
    $WindowSize->{'bottom'} = 1000;

    my $WindowPlacement = Win32::API::Struct->new( 'WINDOWPLACEMENT' );
    $WindowPlacement->{'length'} = sizeof $WindowPlacement;

    print "Window: $window\n";

    my $ret = GetWindowPlacement($window, $WindowPlacement);
    print "GetWindowPlacement: $ret\n\n";
    print Dumper($WindowPlacement);
    printf "Errors (if any): [%0x] %s", Win32::GetLastError(), Win32::FormatMessage(Win32::GetLastError()) unless $ret;

    $WindowPlacement->{'flags'} = 0;
    $WindowPlacement->{'showCmd'} = 6;
    $WindowPlacement->{'ptMinPosition'} = $UpperLeftPoint;
    $WindowPlacement->{'ptMaxPosition'} = $LeftPoint;
    $WindowPlacement->{'rcNormalPosition'} = $WindowSize;

    $ret = SetWindowPlacement($window, $WindowPlacement);
    print "SetWindowPlacement: $ret\n\n";
    print Dumper($WindowPlacement);
    printf "Errors (if any): [%0x] %s", Win32::GetLastError(), Win32::FormatMessage(Win32::GetLastError()) unless $ret;