Delphi. Трюки и эффекты

Регистрация класса окна

function RegisterWindow():Boolean;

var

wcx: WNDCLASSEX;

begin

ZeroMemory(Addr(wcx), SizeOf(wcx));

//Формирование информации о классе окна

wcx.cbSize := SizeOf(wcx);

wcx.hInstance := GetModuleHandle(nil);

wcx.hIcon := LoadIcon(0, IDI_ASTERISK); //Стандартный значок

wcx.hIconSm := wcx.hIcon;

wcx.hCursor := LoadCursor(0, IDC_ARROW); //Стандартный указатель

wcx.hbrBackground := GetStockObject(WHITE_BRUSH); //Серый

//цвет фона

wcx.style := 0;

//..самые важные параметры

wcx.lpszClassName := \'MyWindowClass\ //Название класса

wcx.lpfnWndProc := Addr(WindowFunc); //Адрес функции

//обработки сообщений

//Регистрация класса окна

RegisterWindow := RegisterClassEx(wcx) <> 0;

end;