Delphi WM_COPYDATA

[iCaesy]

С первой проги передаю во вторую сообщение, вторая прога при получении ищет директорию винды, и отсылает строку обратно.
Вот код, в чем ошибка, назад не возвращает =((

Отсылаем / Принимаем:

unit Unit1;

interface

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

  var WM_SUBSCRIBETIME, WM_UNSUBSCRIBETIME : Cardinal;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
  procedure WMCopyData(var msg: TMessage);message WM_COPYDATA;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var srvhandle : THandle;
begin
 srvhandle := FindWindow(nil ,'Server');
 if srvhandle<>0 then begin
   PostMessage(srvhandle,WM_SUBSCRIBETIME,integer(Self.Handle),0);
   Button1.Caption:='Server found !' end
  else
   begin
   PostMessage(srvhandle,WM_UNSUBSCRIBETIME,integer(Self.Handle),0);
   Button1.Caption := 'Server not found !';
   end;
end;

procedure TForm1.WMCopyData(var msg: TMessage);
 var
    WinDir: String;
    m:cardinal;
 begin
 m := PCopyDataStruct(msg.lParam)^.dwData;
 if PCopyDataStruct(msg.lParam)^.lpData <> nil then
  windir :=String(PCopyDataStruct(msg.lParam)^.lpData^);
 Label1.Caption:=windir;
 end;

initialization
  WM_SUBSCRIBETIME := RegisterWindowMessage('WM_SUBSCRIBETIME');
  WM_UNSUBSCRIBETIME:= RegisterWindowMessage('WM_UNSUBSCRIBETIME');
end.

Обрабатываем:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const MaxClients = 32;

  var WM_SUBSCRIBETIME, WM_UNSUBSCRIBETIME: Cardinal;

  var
  Form1: TForm1;
  TimeClientList : array[0..MaxClients-1] of THandle;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i : Integer;
  var CDS : TCopyDataStruct;
      WinDir: String;
      buffer: array [0..255] of char;
begin
  GetWindowsDirectory(buffer, SizeOf(buffer));
  windir:=buffer;
  Label1.Caption:=windir;
  CDS.dwData := 0;
  CDS.cbData := SizeOf(windir);
  CDS.lpData := @windir;

  for i:=0 to MaxClients-1 do
   begin
   if TimeClientList[i]<>0 then
    SendMessage(TimeClientList[i],WM_COPYDATA,Self.Handle,longint(@CDS) );
   end;
end;

initialization
  FillChar( TimeClientList, SizeOf(TimeClientList), 0);
finalization

end.

[iCaesy]

10символов