[KOTIUM]

Извиняюсь но когда делаю так

Код:

while GetMessage(AMsg, 0, 0, 0) do
  begin
    TranslateMessage(AMsg);
    DispatchMessage(AMsg);
  end;

То всё остальное не запускается, а когда так

Код:

if GetMessage(AMsg, 0, 0, 0) then
  begin
    TranslateMessage(AMsg);
    DispatchMessage(AMsg);
  end;

То виснет чо делать???

даже так виснит

Код:

PeekMessage(AMsg, 0, 0, 0, PM_REMOVE);

TranslateMessage(AMsg);
DispatchMessage(AMsg);

Я с горя даже на WinSock хочу перейти только не знаю как на нем писать мне бы подробный туториальчик с примерами...