use Win32::GUI;
use Win32::API;
my $rushhandle = Win32::GUI::FindWindow("tfmrush", "");
$command="RushApp.Util.Standalone.Login('backup','','')";
my $copy_data_struct = pack( 'L2P', 2, length( $command ), $command );
#Win32::GUI::PostMessage($rushhandle,WM_COPYDATA,$wparm,$lpCopydatastruct);
#my $SendMessage=new Win32::API("User32","SendMessage",[qw(N N N N)],'N');
#my $lresult=$SendMessage->Call($rushhandle,WM_COPYDATA,$wparm,$lpCopydatastruct);
Win32::GUI::SendMessage($rushhandle, WM_COPYDATA, 0, $copy_data_struct);

##</code><code>##

  TargetWindow := FindWindow('TfmRush', nil);
  CopyDataStruct.dwData := 1000;
  CopyDataStruct.cbData := strlen(Data) + 1;
  CopyDataStruct.lpData := Data;
  wCallbackWindow.fIrcHandle := mWnd;
  SendMessage(TargetWindow, WM_COPYDATA, 0, LParam(@CopyDataStruct));

##</code><code>##

use Win32::GUI;
use Win32::API;
use constant WM_COPYDATA => 74;
my $rushhandle = Win32::GUI::FindWindow("tfmrush", "");
my $command = "RushApp.FTP.Login('backup','',0);";
my $copy_data_struct = pack('L2P', 1000, length( $command ), $command);
print Win32::GUI::SendMessage($rushhandle, WM_COPYDATA, 0, $copy_data_struct);