안녕하세요. 최용일입니다.



뭐 여러가지 방법이 있겠지만 메세지를 사용하시는것이 제일 간단할 것 같은데요.



사용자 정의 메세지를 하나 만들고 씨에서 델파이로 메세지를 보내시면 되죠.



정보는 메세지 구조체의 WParam이나 LParam에 넣어서 전달하시고요. 델파이에서는



이 메세지를 처리하는 메세지 함수만 하나 작성하시면 되겠는데요.



SendMessage는 API함수이니까 비주얼씨에서도 사용가능할 것입니다.



아래는 델파이 프로그램끼리 메세지를 받는 구창민님 예제인데 중요한것은 씨냐



델파이냐가 아니라 메세지를 주고 받는 것입니다. 참고하세요...



^^ 항상 즐코하세요.



----------------------------------------------------------------------------------

// 던지는 넘

----------------------------------------------------------------------------------

unit usndr;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



type

tData = Record

s: String[250];

end;



var

Form1: TForm1;

lWMsgHandle : longint;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

lWMsgHandle := RegisterWindowMessage('나으문자열');

end;



procedure TForm1.Button1Click(Sender: TObject);

var

DataStruct: TCopyDataStruct;

Data: TData;

begin

Data.s := '나는 구창민이다, 나는 18살이다..읔..돌날아온다..';

DataStruct.dwData := lWMsgHandle;

DataStruct.cbData := SizeOf(TData);

DataStruct.lpData := @Data;

SendMessage(hwnd_BroadCast, WM_CopyData, wParam(Application.Handle), lParam(@DataStruct));

end;



end.





----------------------------------------------------------------------------------

// 받는넘:

----------------------------------------------------------------------------------



unit urcv;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs,

StdCtrls;



type

TFReceiver = class(TForm)

Memo1: TMemo;

procedure FormCreate(Sender: TObject);

private

f_my_Messagehandle: longint;

procedure WndProc(var wpMessage: TMessage); override;

public

end;



type

tData = Record

s: String[250];

end;



var

FReceiver: TFReceiver;



implementation



{$R *.DFM}



procedure TFReceiver.FormCreate(Sender: TObject);

begin

f_my_Messagehandle := RegisterWindowMessage('나으문자열');

end;



procedure TFReceiver.WndProc(var wpMessage: TMessage);

var

Data: TData;

begin

If (wpMessage.Msg = WM_CopyData) And

(PCopyDataStruct(wpMessage.lParam)^.dwData = f_my_Messagehandle) Then

begin

CopyMemory(@data, PCopyDataStruct(wpMessage.lParam)^.lpData, SizeOf(TData));

wpMessage.Result := 1;

Memo1.lines.add(Data.s); //메모박스에 받은 문자열을 나타낸다.

end

else

inherited WndProc(wpMessage);

end;



end.