//---------------------------------------------------------------------------
HWND __fastcall TForm1::IpmsgOpen(AnsiString ClassName)
//IPmsg送信窓を開く
//ClassName：IPmsgクラス名(例:ipmsg_class_2427)
//返値:送信窓ハンドル(0:取得失敗)
{
    HWND hWnd;  //TaskTray内IPmsgのハンドル
 
    //IP Messengerハンドルの取得
    if((hWnd = ::FindWindow(ClassName.c_str(),NULL)) != NULL){
        ::SendMessage(hWnd,WM_USER + 121,0,0);	//送信ウィンドゥを開く
        ::Sleep(100);
        //新規に開いた送信ウィンドゥを探す
        return ::FindWindow("#32770","Send Message");
    //IP Messengerが起動していない
    }else{
        //起動しているIP Messengerを列挙
        mnuSend->Clear();
        mnuRSend->Clear();
        ::EnumWindows((WNDENUMPROC)EnumWindowsProc,(LPARAM)0);
     	//ハンドル取得NG
        ShowMessage("IP Messenger Open Error.");
       	return 0;
    }
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::IpmsgPaste(HWND hWnd,AnsiString msg)
//Clipboardから送信ウィンドゥに貼り付け
//hWnd:送信ウィンドゥハンドル
//msg:貼り付けるメッセージ
//戻り値:結果(true:OK,false:NG)
{
    HWND hEdit; 	//Editハンドル
    char buf[256];	//ClassName格納用
 
    //Editハンドル取得
   	if((hEdit = ::GetWindow(hWnd,GW_CHILD)) != NULL){
        //Windowの確認
        ::GetClassName(hEdit,buf,256);
        if((AnsiString)buf == "Edit"){
            //貼り付け
            ::SendMessage(hEdit,WM_SETTEXT,0,(LPARAM)(msg.c_str()));
            //カーソルを最後に移動
            ::SendMessage(hEdit,EM_SETSEL,msg.Length(),msg.Length());
            return true;
        }
    }
 	//ハンドル取得NG
    ShowMessage("Edit Error");
    return false;
}

Ly8tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KSFdORCBfX2Zhc3RjYWxsIFRGb3JtMTo6SXBtc2dPcGVuKEFuc2lTdHJpbmcgQ2xhc3NOYW1lKQovL0lQbXNn6YCB5L+h56qT44KS6ZaL44GPCi8vQ2xhc3NOYW1l77yaSVBtc2fjgq/jg6njgrnlkI0o5L6LOmlwbXNnX2NsYXNzXzI0MjcpCi8v6L+U5YCkOumAgeS/oeeqk+ODj+ODs+ODieODqygwOuWPluW+l+WkseaVlykKewogICAgSFdORCBoV25kOyAgLy9UYXNrVHJheeWGhUlQbXNn44Gu44OP44Oz44OJ44OrCgogICAgLy9JUCBNZXNzZW5nZXLjg4/jg7Pjg4njg6vjga7lj5blvpcKICAgIGlmKChoV25kID0gOjpGaW5kV2luZG93KENsYXNzTmFtZS5jX3N0cigpLE5VTEwpKSAhPSBOVUxMKXsKICAgICAgICA6OlNlbmRNZXNzYWdlKGhXbmQsV01fVVNFUiArIDEyMSwwLDApOwkvL+mAgeS/oeOCpuOCo+ODs+ODieOCpeOCkumWi+OBjwogICAgICAgIDo6U2xlZXAoMTAwKTsKICAgICAgICAvL+aWsOimj+OBq+mWi+OBhOOBn+mAgeS/oeOCpuOCo+ODs+ODieOCpeOCkuaOouOBmQogICAgICAgIHJldHVybiA6OkZpbmRXaW5kb3coIiMzMjc3MCIsIlNlbmQgTWVzc2FnZSIpOwogICAgLy9JUCBNZXNzZW5nZXLjgYzotbfli5XjgZfjgabjgYTjgarjgYQKICAgIH1lbHNlewogICAgICAgIC8v6LW35YuV44GX44Gm44GE44KLSVAgTWVzc2VuZ2Vy44KS5YiX5oyZCiAgICAgICAgbW51U2VuZC0+Q2xlYXIoKTsKICAgICAgICBtbnVSU2VuZC0+Q2xlYXIoKTsKICAgICAgICA6OkVudW1XaW5kb3dzKChXTkRFTlVNUFJPQylFbnVtV2luZG93c1Byb2MsKExQQVJBTSkwKTsKICAgICAJLy/jg4/jg7Pjg4njg6vlj5blvpdORwogICAgICAgIFNob3dNZXNzYWdlKCJJUCBNZXNzZW5nZXIgT3BlbiBFcnJvci4iKTsKICAgICAgIAlyZXR1cm4gMDsKICAgIH0KfQovLy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQpib29sIF9fZmFzdGNhbGwgVEZvcm0xOjpJcG1zZ1Bhc3RlKEhXTkQgaFduZCxBbnNpU3RyaW5nIG1zZykKLy9DbGlwYm9hcmTjgYvjgonpgIHkv6HjgqbjgqPjg7Pjg4njgqXjgavosrzjgorku5jjgZEKLy9oV25kOumAgeS/oeOCpuOCo+ODs+ODieOCpeODj+ODs+ODieODqwovL21zZzrosrzjgorku5jjgZHjgovjg6Hjg4Pjgrvjg7zjgrgKLy/miLvjgorlgKQ657WQ5p6cKHRydWU6T0ssZmFsc2U6TkcpCnsKICAgIEhXTkQgaEVkaXQ7IAkvL0VkaXTjg4/jg7Pjg4njg6sKICAgIGNoYXIgYnVmWzI1Nl07CS8vQ2xhc3NOYW1l5qC857SN55SoCgogICAgLy9FZGl044OP44Oz44OJ44Or5Y+W5b6XCiAgIAlpZigoaEVkaXQgPSA6OkdldFdpbmRvdyhoV25kLEdXX0NISUxEKSkgIT0gTlVMTCl7CiAgICAgICAgLy9XaW5kb3fjga7norroqo0KICAgICAgICA6OkdldENsYXNzTmFtZShoRWRpdCxidWYsMjU2KTsKICAgICAgICBpZigoQW5zaVN0cmluZylidWYgPT0gIkVkaXQiKXsKICAgICAgICAgICAgLy/osrzjgorku5jjgZEKICAgICAgICAgICAgOjpTZW5kTWVzc2FnZShoRWRpdCxXTV9TRVRURVhULDAsKExQQVJBTSkobXNnLmNfc3RyKCkpKTsKICAgICAgICAgICAgLy/jgqvjg7zjgr3jg6vjgpLmnIDlvozjgavnp7vli5UKICAgICAgICAgICAgOjpTZW5kTWVzc2FnZShoRWRpdCxFTV9TRVRTRUwsbXNnLkxlbmd0aCgpLG1zZy5MZW5ndGgoKSk7CiAgICAgICAgICAgIHJldHVybiB0cnVlOwogICAgICAgIH0KICAgIH0KIAkvL+ODj+ODs+ODieODq+WPluW+l05HCiAgICBTaG93TWVzc2FnZSgiRWRpdCBFcnJvciIpOwogICAgcmV0dXJuIGZhbHNlOwp9