не могу разобраться с allocatehwnd

[grandmixer]

Почему я не могу отловить ни одного сообщения? Помогите пожалуйста!!!

program prog;

uses
  windows,
  messages,
  classes;

type
  mixer = class
    FWh:HWND;
    procedure WndProc(var Msg:TMessage);
    constructor Create;
    destructor Destroy; override;
  end;

var
  GrMix:mixer;
  f:text;
  Msg:TMsg;

constructor mixer.Create;
begin
  inherited Create;
  FWh:=AllocateHwnd(WndProc);
end;

destructor mixer.Destroy;
begin
  DeAllocateHwnd(FWh);
  inherited Destroy;
end;

procedure mixer.WndProc(var Msg:TMessage);
begin
  writeln(f,msg.Msg);
end;

begin
  GrMix:=mixer.Create;
  assignfile(f,'C:/my.txt');
  rewrite(f);
  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
  close(f);
  GrMix.Destroy;
end.

[Smogg]

Хм, дейсвитно...
Как минимум, должна выскочить ошибка на WM_CREATE при попытке писать в неоткрытый файл...
Если только Message Only Window WM_CREATE не получает.. Что вряд ли.

А как Вы сообщения для FWh посылаете?

[EUGY]

WM_CREATE окну конечно должно посылается, но только окно к тому моменту еще не имеет переназначенной оконной процедуры. Да и потом окно остается скрытым, какие сообщения оно будет получать?
Наверно можно убедиться так

GrMix:=mixer.Create;
ShowWindow (GrMix.FWh, SW_SHOW);

Не знаю, как именно можно в эмбракоделы студио, а классически -надо регистрировать класс окна /RegisterClass/, тогда гарантированно WM_CREATE отловится.

[vbilez]

что именно нужно ловить?

 
while GetMessage(Msga, 0, 0, 0) do
  begin

    TranslateMessage(Msga);
    DispatchMessage(Msga);
    assignfile(f,'C:/my.txt');
    append(f);
    writeln(f,inttostr(Msga.message));
    close(f);

  end;

[EUGY]

Сообщение от vbilez

что именно нужно ловить?

 
while GetMessage(Msga, 0, 0, 0) do

Далеко не все сообщения проходят через очередь.

[Smogg]

Сообщение от EUGY

WM_CREATE окну конечно должно посылается, но только окно к тому моменту еще не имеет переназначенной оконной процедуры. Да и потом окно остается скрытым, какие сообщения оно будет получать?

Как не имеет переназначенной оконной процедуры?
А зачем тогда в функцию передается она?
Наверное для того, чтобы зарегистрировать класс с нею.

// впрочем, это флуд вокруг паскаля. Я на собственном опыте убедился, что с WinApi надо работать в VS на С++. Во-первых, потому что вся документация на С, во-вторых, пототому что все дефайны в студии уже определены, а в третьих - Дельфя широко использует какие-то странные неочевидности, типа самого верхнего, но всегда невидимого окна Application..
В данном случае - непонятно, куда втыкнуть вызов GetLastError();
Все, на чем могу строить догадки - если хендель не нулевой, значит окно создано. А если нулевой? Что там за ошибка?

begin
 GrMix:=mixer.Create;

while GetMessage(Msga, 0, 0, 0) do
  begin

    TranslateMessage(Msga);
    DispatchMessage(Msga);
    assignfile(f,'C:/my.txt');
    append(f);
    writeln(f,inttostr(Msga.message));
    close(f);

  end;
end;

Смотрим логику по порядку:

1. Сначала Вы создаете окно. (тут в дебаге смотрим на вернувшийся хендл.)
2. Оконная процедура отрабатывает все инициирующие месседжи. И замолкает. (Как-то уточнить, какая именно оконная процедура отрабатывается)
3. Запускается цикл сообщений. (запустился и ждет чего-то)
4. Никаких сообщений никто нигде никому не посылает.
I.e. цикл сообщений ни разу не срабатывает.

[EUGY]

Как не имеет переназначенной оконной процедуры?
А зачем тогда в функцию передается она?
Наверное для того, чтобы зарегистрировать класс с нею.

Мне сейчас не на чем проверить, но судя по всему должно создаваться окно уже зарегистрированного класса, а потом уже идет смена процедуры.
Условно так

HWND XXAllocateHwnd(WNDPROC  proc)
{
    HWND hwnd = CreateWindow("TSomeClassWindow"....
    // DefWindowProc отрабатывает все инициирующие месседжи.

    // И только потом идет смена процедуры
    SetWindowLong (hwnd, GWL_WNDPROC, proc);

    return hwnd;
}

Смотрим логику по порядку:

Целиком поддерживаю Вашу логику, но смена оконной процедуры здесь идет после создания окна.

[Smogg]

Сообщение от EUGY

HWND XXAllocateHwnd(WNDPROC  proc)
{
    HWND hwnd = CreateWindow("TSomeClassWindow"....
    // DefWindowProc отрабатывает все инициирующие месседжи.

    // И только потом идет смена процедуры
    SetWindowLong (hwnd, GWL_WNDPROC, proc);

    return hwnd;
}

А, вон как... Да, скорее всего так и есть, зачем плодить сущности, регистрирую совершенно одинаковые классы...

Далеко не все сообщения проходят через очередь.

Кратенько, какие не и какие да?
Все ли сообщения из другого треда попадают в очередь? А если цикл не запущен?

[EUGY]

Если кратко и своими словами, то сообщения могут посылаться окну двумя способами SendMessage и PostMessage. В первом случае сообщение идет непосредственно в процедуру окна.
А во втором ставится в очередь и в процедуру окна оно попадет, только если главный цикл получит его и передаст дальше \DispatchMessage\.
Если главного цикла нет, то конечно PostMessage бесполезен.
А вообще функций для сообщений довольно много. Можно послать сообщение не окну, а просто из одного потока в другой \PostThreadMessage\. И получить его \GetMessage\.

[Smogg]

Вот почему PostMessage ничего не возвращает. Я-то раньше думал, что это просто защита от зависа чужого приложения.

А как и результат SendMessage получить и не ждать бесконечно ответа от зависшего приложения? Или Винда сама как-то это разруливает?