Текущий архив: 2003.10.27;
Скачать: CL | DM;

Вниз

Окно апи в ДЛЛ ?   Найти похожие ветки 

← →
Prov ©   (2003-08-21 12:49) [0]

Есть проблема:
Вот код ДЛЛ:

library Form;

uses
Windows,
messages;

{$R *.res}
var
VisualForm: hWnd;
WindowClass: TWndClassEx;
Mesg: TMsg;

function WindowProc(HWND: hWnd; Msg: integer; wParam: WPARAM; lParam: LPARAM):LongInt; stdcall;
Begin
case Msg of
WM_DESTROY:
begin
PostquitMessage(0);
//UnRegisterClass("Window", hInstance);
end;
end;
Result:= DefWindowProc(HWND, Msg, wParam, lParam);
end;

procedure CreateForm; stdcall;
begin
with WindowClass do
begin
WindowClass.cbSize:= SizeOf(WindowClass);
WindowClass.style:= WS_OVERLAPPED;
WindowClass.lpfnWndProc:= @WindowProc;
WindowClass.hInstance:= hInstance;
WindowClass.hIcon:= LoadIcon(hInstance, idi_application);
WindowClass.hCursor:= LoadCursor(hInstance, idc_arrow);
WindowClass.hbrBackground:= Color_BtnFace + 1;
WindowClass.lpszMenuName:= nil;
WindowClass.lpszClassName:= "Window";
RegisterClassEx(WindowClass);
end;
RegisterClassEx(WindowClass);
VisualForm:= CreateWindow("Window",
"Window",
WS_OVERLAPPED,
100,
100,
100,
100,
0,
0,
hInstance,
nil);
ShowWindow(VisualForm, SW_SHOW);

while GetMessage(Mesg, 0, 0, 0) do
begin
TranslateMessage(Mesg);
DisPatchMessage(Mesg);
end;
end;

exports
CreateForm;

begin

end.

Когда вызываю процедуру CreateForm - ничего нету... А должна появится форма..

Помогите советом.
Заранее благодарен..

---

← →
Крот ©   (2003-08-21 13:07) [1]

Я не знаю поможет ли , но вот это

while GetMessage(Mesg, 0, 0, 0) do
begin
TranslateMessage(Mesg);
DisPatchMessage(Mesg);
end;
end;

надо точно убрать - цикл выборки сообщений есть в исполняемом модуле.

---

← →
Игорь Шевченко ©   (2003-08-21 13:09) [2]

ГДЕ ПРОВЕРКА РЕЗУЛЬТАТОВ ФУНКЦИЙ ?!?!

---

← →
Prov ©   (2003-08-21 16:37) [3]

Спасибо Вам большое - додумался...

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.021 c