CreateThread и DLL

[NEoMASTERR]

Здравствуйте, пытаюсь создать поток из дллки, ThreadFunc вообще не вызывается, как быть?

library Blabla;

uses
  windows,
  Messages;

function ThreadFunc(Param: pointer):dword;stdcall
begin
  messagebox(0,'blabla','',0);
end;

function windowproc(wnd: hwnd; msg: integer; wparam: wparam; lparam: lparam):lresult;stdcall;
begin
  case msg of
  wm_destroy:
    begin
      postquitmessage(0);
      result := 0;
      exit;
    end;
  else
    result := defwindowproc(wnd,msg,wparam,lparam);
  end;
end;

procedure CreateWinApiForm;
begin
  //...
  ShowWindow(Form,SW_MAXIMIZE);
end;

begin
  CreateWinApiForm;
  BeginThread(nil,0,@ThreadFunc,nil,0,thrid);

  while getmessage(mmsg,0,0,0) do
  begin
    translatemessage(mmsg);
    dispatchmessage(mmsg);
  end;
end.

program Project1;
uses
  Windows;

begin
  LoadLibrary('Blabla.dll');
end.

[Slym]

не правильно
CreateWinApiForm должен быть в ThreadFunc... иначе окно не привяжется к потоку

library Blabla;

uses
  windows,
  Messages;

function ThreadFunc(Param: pointer):dword;stdcall
begin
  CreateWinApiForm;
  while getmessage(mmsg,0,0,0) do
  begin
    translatemessage(mmsg);
    dispatchmessage(mmsg);
  end;
end;

function windowproc(wnd: hwnd; msg: integer; wparam: wparam; lparam: lparam):lresult;stdcall;
begin
  case msg of
  wm_destroy:
    begin
      postquitmessage(0);
      result := 0;
      exit;
    end;
  else
    result := defwindowproc(wnd,msg,wparam,lparam);
  end;
end;

procedure CreateWinApiForm;
begin
  //...
  ShowWindow(Form,SW_MAXIMIZE);
end;

begin
    BeginThread(nil,0,@ThreadFunc,nil,0,thrid);

end.

[NEoMASTERR]

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

не правильно
CreateWinApiForm должен быть в ThreadFunc... иначе окно не привяжется к потоку

Мне не нужно ничего привязывать, мне надо 2 потока, один для обработки сообщений, второй для рисования, суть в том что ThreadFunc вообще не вызывается, стоит бряк на том месте, ставил и messagebox.

Написал маленький графический движок, хочу убрать форму и сделать его самостоятельным.
Сделал таймер но думаю это слишком медленно

Притом BeginThread возвращает не ноль

library MyGlEngine;

uses
  windows,
  Messages,
  SysUtils,
  Classes;

var
  window:  TWndClassex;
  Form:   hwnd;
  mmsg:  msg;
  FTimerHandle:Cardinal;
  thrid:Cardinal;
  counter:int64;

{$R *.res}

function windowproc(wnd: hwnd; msg: integer; wparam: wparam; lparam: lparam):lresult;stdcall;
var
  dc : HDC;
  ps : PAINTSTRUCT;
begin
  case msg of
  wm_destroy:
    begin
      postquitmessage(0);
      result := 0;
      exit;
    end;
  WM_MOUSEMOVE:
    begin
      //SetWindowText(Form,pchar(inttostr(SMALLINT( lParam and $FFFF))+':'+inttostr(SMALLINT( (lParam shr 16) and $FFFF))+' counter:'+inttostr(counter)));
    end;
 { WM_PAINT:
    begin
      Inc(counter);
      dc := BeginPaint(form, ps);
      //TextOut(dc, 0, 0, PChar('Hello, Windows!'), 15);
      //Rectangle(dc,Random(350),Random(350),Random(350),Random(350));
      EndPaint(form, ps);

      //Result:=0;
    end;   }
  WM_TIMER:
    begin
      Inc(counter);
     // SetWindowText(Form,pchar('counter:'+inttostr(counter)));
    end;
  else
    result := defwindowproc(wnd,msg,wparam,lparam);
  end;
end;

procedure CreateWinApiForm;
begin
  window.cbsize := sizeof (window);
  window.style := cs_hredraw or cs_vredraw;
  window.lpfnwndproc := @windowproc;
  window.cbclsextra := 0;
  window.cbwndextra := 0;
  window.hinstance := hinstance;
  window.hicon := loadicon(0,idi_application);
  window.hcursor := loadcursor(0,idc_arrow);
  window.hbrbackground:=1;
  window.lpszmenuname := nil;
  window.lpszclassname := 'main_window';
  registerclassex(window);
  Form:= createwindowex(0,'main_window','Hello World from WinApi', WS_OVERLAPPEDWINDOW,300,300,350,130,0,0,hinstance,nil);
  ShowWindow(Form,SW_MAXIMIZE);

 // FTimerHandle := classes.AllocateHWnd(windowproc);
  //SetTimer(form, 1, 1, nil);
end;

function ThreadFunc(Param: pointer):dword;stdcall
begin
  SetWindowText(Form,'Blabla');
  PostQuitMessage(0);
  exit;
end;

begin

  CreateWinApiForm;
  SetWindowText(Form,pchar(inttostr(BeginThread(nil,0,@ThreadFunc,nil,0,thrid))));
  

  while getmessage(mmsg,0,0,0) do
  begin
    translatemessage(mmsg);
    dispatchmessage(mmsg);
  end;
end.