Форум: "WinAPI";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];
ВнизОкно апи в ДЛЛ ? Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.025 c