SendMessage (Передать строку другому приложению)

char* str = "C:\\example.mp3";      
SendMessage(h, WM_GETSTRING ,(WPARAM)str, NULL);

AnsiString S = "C:\\example.mp3";
char* str = S.c_str();
SendMessage(h, WM_GETSTRING ,(WPARAM)str, NULL);

void __fastcall TMainForm::OnGetString(TMessage& Msg)
{
    char* Str = (char*)Msg.WParam;
    Label1->Caption = String(Str);
}

COPYDATASTRUCT cd;
AnsiString sBuffer = "Test string";
cd.lpData=&sBuffer;
cd.cbData= sBuffer.Length();
 
SendMessage(hwnd,WM_COPYDATA, 0, (LPARAM) &cd);

void TForm1::WMCopyData(TWMCopyData &Msg) {
       const AnsiString sText = Msg.CopyDataStruct.lpData;
}

const AnsiString sText = Msg.CopyDataStruct.lpData;

const AnsiString sText = (char*)Msg.CopyDataStruct->lpData;

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
 
//---------------------------------------------------------------------------
class TForm1 : public TForm {
__published: // IDE-managed Components
    TButton *btn1;
    void __fastcall btn1Click(TObject *Sender);
 
private: // User declarations
 
public: // User declarations
    __fastcall TForm1(TComponent* Owner);
 
    void __fastcall OnWMCopyData(TWMCopyData &Msg);
 
    BEGIN_MESSAGE_MAP
 
        MESSAGE_HANDLER(WM_COPYDATA, TWMCopyData, OnWMCopyData);
 
    END_MESSAGE_MAP(TForm);
};
 
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
    this->Caption = "Receiver";
    // this->Caption = "Sender"; // РАССКОММЕНТИРОВАТЬ ДЛЯ ВТОРОГО ЭКЗЕМПЛЯРА.
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::OnWMCopyData(TWMCopyData &Msg) {
    const AnsiString sTest = (char*)Msg.CopyDataStruct->lpData;
    ShowMessage(sTest);
}
 
void __fastcall TForm1::btn1Click(TObject *Sender) {
    COPYDATASTRUCT cd;
    const AnsiString sTest = "Testing string";
    cd.cbData = sTest.Length() + 1;
    cd.lpData = sTest.c_str();
    SendMessageA(FindWindowA(NULL, "Receiver"), WM_COPYDATA, 0, (LPARAM)&cd);
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::btnRegClick(TObject *Sender)
{
    TRegistry *Reg;
    AnsiString fname;
    Reg = new TRegistry;
    try {
        Reg->RootKey = HKEY_CLASSES_ROOT;
        Reg->OpenKey("\\.mp3",true);
        Reg->WriteString("","XboolPlayer");
        Reg->CloseKey();
 
        Reg->RootKey = HKEY_CLASSES_ROOT;
        Reg->OpenKey("\\.m3u",true);
        Reg->WriteString("","XboolPlayer");
        Reg->CloseKey();
 
        Reg->RootKey = HKEY_CLASSES_ROOT;
        Reg->OpenKey("\\.plc",true);
        Reg->WriteString("","XboolPlayer");
        Reg->CloseKey();
 
        Reg->OpenKey("\\XboolPlayer",true);
        Reg->WriteString("","My document");
        Reg->CloseKey();
 
        Reg->OpenKey("\\XboolPlayer\\Shell\\Open\\Command",true);
        Reg->WriteString("",ParamStr(0)+"\"%1\"");
        Reg->CloseKey();
 
        Reg->OpenKey("\\XboolPlayer\\DefaultIcon",true);
        Reg->WriteString("",ParamStr(0)+", 1");
        Reg->CloseKey();
 
        Reg->OpenKey("\\.mp3\\DefaultIcon",true);
        Reg->WriteString("",ParamStr(0)+", 1");
        Reg->CloseKey();
    }
    __finally {
        if (Reg != NULL) {
            delete Reg;
        }
    }
}

WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
        Application->Initialize();
       . . .

HANDLE hMutex=CreateMutexA(NULL,TRUE,"XboolPlayer");
if (!GetLastError()==ERROR_ALREADY_EXISTS)
{
    CloseHandle(hMutex);
    ShowMessage("You can do it!");
}

    HANDLE hMutex=CreateMutexA(NULL,TRUE,"XboolPlayer");

HANDLE hMutex=CreateMutexA(NULL,TRUE,"XboolPlayer");
if (GetLastError()==ERROR_ALREADY_EXISTS)
{
        CloseHandle(hMutex);
        ShowMessage("You can do it!");
        exit(1);
}

WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
        HANDLE hMutex=CreateMutexA(NULL,TRUE,"XboolPlayer");
            // до этой строки не доходит))     
            if (GetLastError()==ERROR_ALREADY_EXISTS)
        {
            CloseHandle(hMutex);
            ShowMessage("You can do it!");
            exit(1);        
        }                           
        Application->Initialize();
       . . .

WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    HWND h = FindWindowA(NULL, "XboolPlayer");
    if (h) {
        COPYDATASTRUCT cd;
        const AnsiString sBuffer = ParamStr(1);
        cd.cbData = sBuffer.Length() + 1;
        cd.lpData = sBuffer.c_str();
        SendMessage(h, WM_COPYDATA,0, (LPARAM) &cd);
        Application->Terminate();
    }
    else
    try
    {
        Application->Initialize();
 
. . .

Application->ProcessMessages();

#define WM_MyDeskTopShow WM_USER+5
//---------------------------------------------------------------------------
USEFORM("UStyleWindow.cpp", FStyleWindow);
USEFORM("UMyDeskTop.cpp", FMyDeskTop);
//---------------------------------------------------------------------------
const char *mutexname = "mutexMyDeskTop091211";
//---------------------------------------------------------------------------
WINAPI _tWinMain(HINSTANCE,HINSTANCE,LPTSTR,int)
{
//------------------ Запущина ли копия программы ?----------------
        HWND  hMutex  = CreateMutex(NULL, true, mutexname);
        DWORD LastErr = GetLastError();
 
        if ((LastErr == ERROR_ALREADY_EXISTS)||
            (LastErr == ERROR_INVALID_HANDLE)||
            (!hMutex))
           {
            HWND hDesk = FindWindow("TFMyDeskTop",NULL);
 
            if(ParamCount()==1)
              {
              COPYDATASTRUCT cd;
              String text = ParamStr(1);
              cd.lpData = text.c_str();
              // Передача имени файла
              SendMessage(hDesk, WM_COPYDATA, 0, (LPARAM)&cd);
              }
            else
                {
                // Сообщение о том что надо паказать окно
                SendMessage(hDesk,WM_MyDeskTopShow,0,0);
                }
            exit(1);
           }
//-----------------------------------------------------------
    try
    {
        Application->Initialize();
        Application->MainFormOnTaskBar = true;
        Application->Title = "MyDeskTop";
        Application->CreateForm(__classid(TFMyDeskTop), &FMyDeskTop);
        Application->CreateForm(__classid(TFStyleWindow), &FStyleWindow);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }

//--------------------------------------------------------------------------
void __fastcall TFMyDeskTop::OnWMCopyData(TWMCopyData &Msg)
{
Visible= true;
SetForegroundWindow(Handle);
 
sFileDesk= (char*)Msg.CopyDataStruct->lpData;// изменение пути к текущему файлу
 
AcLoadFile->Execute();// Загрузка файла
AcUpdateListBox->Execute();
ImRepaint();
}
//----------------------------------------------------------------------------