[Tooreagen]

Привет! Делаю лабораторную по программированию, задача передать сообщение из одной программы в другу с помощью пользовательского сообщения. Первая программа передает сообщение:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

Const wm_My=wm_User+300;
type
  TwmMy= packed record
    Msg: Cardinal;
    str:array[0..10] of char;
    WParam,LParam : LongInt;
    end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Windowname:hwnd;
  mess:TWMMY;
begin
  WindowName:=FindWindow(PChar(0),'Destination');
  mess.str:='123?321';
  SendMessage(WindowName,wm_my,mess.WParam,mess.LParam);
end;

end.


Вторая принимает сообщение:

unit target;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

const
wm_my=wm_user+300;
type
  TwmMy= packed record
    Msg: Cardinal;
    str:array [0..10] of char;
    WParam,LParam:LongInt;
    end;
  TDestination = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
  private
    procedure wmMy(var msg:TwmMy );message wm_my;
  public
    { Public declarations }
  end;

var
  Destination: TDestination;

implementation

{$R *.dfm}
procedure TDestination.wmMy(var msg:TwmMy);
var p:integer;
begin
 with msg do
 begin
  p:=pos('?',str);
  Label2.Caption:=IntToStr(p);
 end;
end;
end.

Admin: Пользуемся тегами!

Здесь я нахожу позицию символа ? в переданной строке. Не пойму где ошибка, помогите. Пишу на делфи 7.

[0nni]

Для пересылки данных между процессами нужно воспользоваться сообщением WM_COPYDATA, а то что ты написал, ну никак не будет работать.