Select Code to Download

use Win32::GUI;
use Win32::API;
...
#my $SendMessage=new Win32::API("User32","SendMessage",[qw(N N N N)],'
+N');
#my $lresult=$SendMessage->Call($rushhandle,WM_COPYDATA,$wparm,$lpCopy
+datastruct);
Win32::GUI::SendMessage($rushhandle, WM_COPYDATA, 0, $copy_data_struct
+);

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

use Win32::GUI;
use Win32::API;
...
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);