Модератор: Модераторы
ZeroMemory(@wndClass, SizeOf(wndClass));
with wndClass do begin
style := CS_OWNDC;
lpfnWndProc := @WndProc;
hInstance := system.HInstance;
lpszClassName := PAnsiChar(s);
hIcon:= LoadIcon(system.HInstance, PAnsiChar('MAINICON'));
end;
if (0 = RegisterClass(wndClass)) then Die('RegisterClass() returned 0');
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 66