VPF::проблема с работой WaitForSingleObject - Форум программистов

bems

Дата 14.3.2006, 14:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

event?

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

Обижено школьников: 8

Romikgy

Дата 14.3.2006, 14:32 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Teran, имхо можно поставить хук на закрытие необходимой тебе формы smile

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Демо

Дата 14.3.2006, 14:49 (ссылка)

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

Загрузка ...

Эксперт

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

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

Teran,

Если вторая программа твоя, то какие проблемы?
Используй Event's...

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

Teran

Дата 14.3.2006, 14:59 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

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

Цитата(Демо @ 14.3.2006, 14:49

)

Используй Event's...

не подскажеш коротенький примерчик?

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

Ни цего не понимаю

Демо

Дата 14.3.2006, 15:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

Приложение 1

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HEvent: THandle;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  HEvent := CreateEvent(nil,True,False,'UniqueNameEvent');
  if HEvent=0 then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Application.Terminate;
  end;
  WaitForSingleObject(HEvent,INFINITE);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if HEvent<>0 then CloseHandle(HEvent);
end;

end.

Приложение 2:

На форме 1:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

На форме 2:

Код


unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  HEvent: THandle;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  HEvent := CreateEvent(nil,True,False,'UniqueNameEvent');
  if HEvent=0 then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    CLose;
  end;
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if HEvent<>0 then
  begin
    SetEvent(HEvent);
    CloseHandle(HEvent);
  end;
end;

end.

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

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