VPF::Вторая копия программы и данные из файла

MacTep

Дата 12.5.2006, 11:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Цитата(Демо @ 12.5.2006, 08:45

)

Для этого проще воспользоваться MMF - Memory Mapped File.

Примерчик можно? Первый раз слышу о MMF.

Это сообщение отредактировал(а) MacTep - 13.5.2006, 20:06

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

MacTep

Дата 13.5.2006, 20:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

А вот еще вопрос такой: обязательно что ли использовать WM_COPYDATA. Просто не получится разве при помощи ParamStr(1)?

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Демо

Дата 14.5.2006, 16:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Цитата(MacTep @ 12.5.2006, 11:19

)

Примерчик можно? Первый раз слышу о MMF.

Вот простенький пример, очень схематично и упрощенно, но для демонстрации подойдет:

unit

Код


Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure OnWM_USER1(var Message: TMessage); message WM_USER+1;
    { Public declarations }
  end;

var
  Form1: TForm1;
  HM: THandle;
  PM: PChar;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  H: THandle;
  GL: Cardinal;
  isDump: Boolean;
  s: String;
begin
  isDump := False;
  HM := CreateFileMapping(0,nil,PAGE_READWRITE,0,100,'MMF1');
  GL := GetLastError;
  if HM=0 then
  begin
    ShowMessage(SysErrorMessage(GL));
    Exit;
  end;

  if GL=ERROR_ALREADY_EXISTS then isDump := True;

  PM := MapViewOfFile(HM,FILE_MAP_ALL_ACCESS,0,0,100);
  if PM=nil then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    CloseHandle(HM);
    Exit;
  end;
  if not isDump then
  begin
    H := Form1.Handle;
    Move(H,PM[0],SizeOf(THandle));
    s := 'Сообщение для передачи(Первая копия)';
    GL := Length(s);
    Move(GL,PM[SizeOf(THandle)],SizeOf(Cardinal));
    Move(s[1],PM[SizeOf(THandle)+SizeOf(Cardinal)],GL);
  end
  else
  begin
    s := 'Сообщение для передачи(Вторая копия)';
    Move(PM[0],H,SizeOf(THandle));
    GL := Length(s);
    Move(GL,PM[SizeOf(THandle)],SizeOf(Cardinal));
    Move(s[1],PM[SizeOf(THandle)+SizeOf(Cardinal)],GL);
    SendMessage(H,WM_USER+1,0,0);
    Application.Terminate;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  UnMapViewOfFile(PM);
  CloseHandle(HM);
end;

procedure TForm1.OnWM_USER1(var Message: TMessage);
var
  s: String;
  Len: Cardinal;
begin
  Move(PM[SizeOf(THandle)],Len,SizeOf(Cardinal));
  SetLength(s,Len);
  Move(PM[SizeOf(THandle)+SizeOf(Cardinal)],s[1],Len);
  ShowMessage('Приложение уже запущено. Получено сообщение - '+s);
end;

end.

Это сообщение отредактировал(а) Демо - 14.5.2006, 16:33

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »