[WhiteKing]

Кто-нибудь может помочь или подсказать решения двух этих задач:
1. Создать два 16-разрядных приложения MS-DOS одновременно исполняющихся под управлением Windows и взаимодействующих между собой на уровне файлов
2. Создать 32-разрядное приложение Windows с двумя одновременно взаимодействующими между собой процессами на уровне сообщений

[Aristarh Dark]

1. Пишешь 2 программы на паскале которые работают с одним файлом (чтение/запись)
2. WM_COPYDATA

[WhiteKing]

С первым я разобрался. Кто-нибудь может подсказать по подробней второе задание, реализовать в Дельфи

[WhiteKing]

Что-то нашел. Но не могу понять соответствует заданию или нет.
Кто-нибудь может посмотреть и объяснить. Буду очень благодарен.

Код:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
aCopyData: TCopyDataStruct;
hTargetWnd: HWND;
begin
with aCopyData do
begin
dwData := 0;
cbData := StrLen(PChar(Edit1.Text)) + 1;
lpData := PChar(Edit1.Text)
end;
hTargetWnd := FindWindowEx(0, 0, nil, PChar('WM_COPYDATA-Receiver'));
if hTargetWnd <> 0 then
SendMessage(hTargetWnd, WM_COPYDATA, Longint(Handle), Longint(@aCopyData))
else
ShowMessage('No Recipient found!');
end;

procedure TForm1.WMCopyData(var Msg: TWMCopyData);
var
sText: array[0..99] of Char;
begin
StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
label1.Caption := sText;
end;

end.

Admin: Справка по ВВ кодам - http://www.delphisources.ru/forum/misc.php?do=bbcode

[W1ndow]

Опробуй технологию DDE как раз решает вторую твою проблему, всё простенько и понятненько, почитай где-нить, если не получится я тебе помогу.