Межпрограммное взаимодействие

[kettanaito]

mss, спасибо за код Работает безупречно.

program cdp;
...
var
  hMMF: THandle;
  pAppHwnd: PHandle;
  fw:THandle;
  data:TCopyDataStruct;
begin
  hMMF := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, SizeOf(THandle),PAnsiChar(ExtractFileName(ParamStr(0))));
  if GetLastError = ERROR_ALREADY_EXISTS then
    begin
    pAppHwnd := MapViewOfFile(hMMF, FILE_MAP_READ, 0, 0, SizeOf(THandle));
    fw:=FindWindow('Tcdpmain',nil);
     if paramcount>0 then
      begin
        with data do
          begin
          dwData := 0;
          cbData := StrLen(PChar(Paramstr(1))) + 1;
          lpData := PChar(Paramstr(1));
          end;
          SendMessage(fw, WM_COPYDATA, 0, Longint(@data));
        end;
      UnMapViewOfFile(pAppHwnd);
      CloseHandle(hMMF);
      Halt;
    end
  else
    begin
      pAppHwnd := MapViewOfFile(hMMF, FILE_MAP_WRITE, 0, 0, SizeOf(THandle));
      pAppHwnd^ := Application.Handle;
      UnMapViewOfFile(pAppHwnd);
  end;
  Application.Initialize;
  Application.Run;
  CloseHandle(hMMF);
end.

И обработчик сообщения:

procedure Tcdpmain.ReceiveMessage(var Msg: TWMCopyData);
var text:array[0..99] of Char;
begin
StrLCopy(text,Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
ShowMessage(text);
end;